Gán dữ liệu từ vùng này sang vùng khác không có cùng số hàng, cột

[minhlev]

Nhờ các bác xem giúp dùng code gì để gán giá trị từ vùng dữ liệu này sang vùng dữ liệu khác mà không có cùng số hàng, cột.

 

[voda]

Bạn thử đoạn code này xem:

Sub gangiatri()
Dim i, j, a As Integer
a = 1
For i = 1 To 7
For j = 1 To 3
Sheet1.Cells(i, j) = Sheet1.Cells(a, 5)
Sheet1.Cells(i + 1, j) = Sheet1.Cells(a, 6)
a = a + 1
Next j
i = i + 1
Next i
End Sub

 

[anhtuan1066]

Bạn Voda ơi, cho mình hỏi... Cũng bài toán như trên nhưng tôi muốn khi ActiveCell của tôi nằm ở đâu thì Paste vào đấy! Có dc ko?
VD: Tôi đang chọn cell D16, thì khi chạy macro nó sẽ paste dử liệu từ D16:F21
ANH TUẤN

 

[Lam_A0]

Bạn Voda ơi, cho mình hỏi... Cũng bài toán như trên nhưng tôi muốn khi ActiveCell của tôi nằm ở đâu thì Paste vào đấy! Có dc ko?
VD: Tôi đang chọn cell D16, thì khi chạy macro nó sẽ paste dử liệu từ D16:F21
ANH TUẤN

Anh cứ đùa, đọc nhiều quá quên mất cơ bản rồi. Em xin múa rìu qua mắt thợ vậy, dùng Offset(row, column) là được.

 

[ThuNghi]

Thay

For i = 1 To 7
For j = 1 To 3
Sheet1.Cells(i, j) = Sheet1.Cells(a, 5)
Sheet1.Cells(i + 1, j) = Sheet1.Cells(a, 6)

Bằng

For i = 0 To 6
For j = 0 To 2
ActiveCell.Offset(i, j) = Sheet1.Cells(a, 5)
ActiveCell.Offset(i + 1, j) = Sheet1.Cells(a, 6)