Em nhờ các bác xem giúp đoạn code này với, code này em copy cua anh DT Nguyen và sửa lại, nhưng báo lỗi ở dòng này
.Range("A" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rSTT.Value2
sửa mãi ko đc mong các pác giúp đỡ với
Option Explicit
Sub import_data()
Dim master As Worksheet 'sh As Worksheet
Dim iFileNum As Integer, iLastRowReport As Integer, iNumberOfRowsToPaste As Integer
Dim rSTT As Range, rHT As Range, rNN As Range, rSK As Range, rTL As Range, rKB As Range, rLO As Range, rCT As Range, rMK As Range
Dim iCurrentLastRow As Integer, iRowStartToPaste As Integer
Set master = ActiveWorkbook.Sheets("Data")
With ThisWorkbook.Sheets("NH")
iLastRowReport = .Range("A" & Rows.Count).End(xlUp).Row
iNumberOfRowsToPaste = iLastRowReport - 9 + 1
Set rSTT = .Range("A8:A" & iLastRowReport)
Set rHT = .Range("B8:B" & iLastRowReport)
Set rNN = .Range("C8:C" & iLastRowReport)
Set rSK = .Range("D8:D" & iLastRowReport)
Set rTL = .Range("E8:E" & iLastRowReport)
Set rKB = .Range("F8:F" & iLastRowReport)
Set rLO = .Range("G8:G" & iLastRowReport)
Set rCT = .Range("H8:H" & iLastRowReport)
Set rMK = .Range("I8:I" & iLastRowReport)
With ThisWorkbook.Sheets("Data")
iCurrentLastRow = .Range("A" & Rows.Count).End(xlUp).Row
iRowStartToPaste = iCurrentLastRow - 9 + 1
.Range("A" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rSTT.Value2
.Range("B" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rHT.Value2
.Range("C" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rNN.Value2
.Range("D" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rSK.Value2
.Range("E" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rTL.Value2
.Range("F" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rKB.Value2
.Range("G" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rLO.Value2
.Range("H" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rCT.Value2
.Range("I" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rMK.Value2
End With
End With
End Sub
