Mọi người giúp mình nhập dữ liệu từ sheet2 sang sheet 1

[ilu206]

Mình dùng phần nềm phân lớp nền đường thì kết xuất ra được số liệu ở sheet 2
Nhưng TVGS lại yêu cầu chỉnh lại theo biểu mẫu của sheet 1.
Mọi người giúp mình với.

 

[xuan.nguyen82]

Không hiểu công việc của bạn lắm, làm thế này theo ý hiểu của mình, không biết có đúng ý bạn không nhé.

Public Sub CaiGiDay()
Dim sArr(), dArr(), I As Long, J As Long
sArr = Sheet2.[C5:AQ15].Value
ReDim dArr(1 To UBound(sArr, 2), 1 To 5)
For J = 1 To UBound(sArr, 2)
    dArr(J, 1) = sArr(3, J)
    dArr(J, 2) = sArr(1, J)
    dArr(J, 4) = sArr(9, J)
    dArr(J, 5) = sArr(11, J)
Next J
Sheet1.[E5].Resize(J - 1, 5).Value = dArr
End Sub

Bạn xem file. click nut "caigiday"

 

[hoamattroicoi]

Mình cũng không hiểu công việc của bạn lắm, bạn thử xem cách này có được ko nhé, click vào nút Cainayday ^^

Sub Cainayday()
Sheet1.[E5:I45].ClearContents
Sheet2.[C5:AQ5].copy
Sheet1.[F5:F45].PasteSpecial 1, , , True
Sheet2.[C7:AQ7].copy
Sheet1.[E5:E45].PasteSpecial 1, , , True
Sheet2.[C13:AQ13].copy
Sheet1.[H5:H45].PasteSpecial 1, , , True
Sheet2.[C15:AQ15].copy
Sheet1.[I5:I45].PasteSpecial 1, , , True
Application.CutCopyMode = False
End Sub