Bạn có thể dùng vòng lập như sau được không nhé
For i=1 to 3
.Offset(, i).Value = S26.Range("D" & 51+i)
next
V.V..
'.Offset(, 1).Value = S26.Range("D6")
'.Offset(, 2).Value = S26.Range("D7")
'.Offset(, 3).Value = S26.Range("D8")
'.Offset(, 4).Value = S26.Range("D9")
'.Offset(, 5).Value = S26.Range("D10")
'.Offset(, 6).Value = S26.Range("D11")
'.Offset(, 7).Value = S26.Range("D12")
'.Offset(, 8).Value = S26.Range("D13")
'.Offset(, 9).Value = S26.Range("D14")
'.Offset(, 10).Value = S26.Range("D15")
'.Offset(, 11).Value = S26.Range("D16")
Nếu em thay code như đoạn dưới thì dữ liệu sẽ vào đúng từ D6 - D16
Dim i As Long
With S2.Range("B65500").End(xlUp).Offset(1)
.Value = S26.Range("D5")
For i = 1 To 12
.Offset(, i).Value = S26.Range("D" & 5 + i)
Next
Nếu thay code này cho đoạn từ K5 - K16 thì dữ liệu lại nhập sai vào ô D5
.Value = S26.Range("K5")
For i = 1 To 12
.Offset(, i).Value = S26.Range("K" & 5 + i)
Next
'.Offset(, 12).Value = S26.Range("K5")
'.Offset(, 13).Value = S26.Range("K6")
'.Offset(, 15).Value = S26.Range("K7")
'.Offset(, 16).Value = S26.Range("K8")
'.Offset(, 17).Value = S26.Range("K9")
'.Offset(, 18).Value = S26.Range("K10")
'.Offset(, 19).Value = S26.Range("K11")
'.Offset(, 20).Value = S26.Range("K12")
'.Offset(, 21).Value = S26.Range("K13")
'.Offset(, 22).Value = S26.Range("K14")
'.Offset(, 23).Value = S26.Range("K15")
'.Offset(, 24).Value = S26.Range("K16")
Anh
MinhCong Sao em viết code như dưới mà dữ liệu ở ô D5 không nhập vào cột B tương ứng bên sheet TTKH anh nhỉ. Các sheet bên TTKH là sheet nhập
' ten mat hang 1
.Value = S26.Range("D5")
.Offset(, 1).Value = S26.Range("D5")
.Offset(, 2).Value = S26.Range("D6")
...........