代码修改！

xuyouxm

以下代码在合并数据中，只能从A2开始复制，如果我想从A3开始复制，其它不变，应该怎么弄？请教！！！

Sub test()
Dim str As String
Dim wb As Workbook
Dim i, j, k As Integer

ThisWorkbook.Sheets(1).Range("a2:ao" & Range("a65536").End(xlUp).Row).ClearContents
str = Dir("d:\data\*.*")
For i = 1 To 100
    Set wb = Workbooks.Open("d:\data\" & str)
   
    Excel.Application.DisplayAlerts = False
   
    k = wb.Sheets(1).Range("a65536").End(xlUp).Row
    j = ThisWorkbook.Sheets("数据").Range("a65536").End(xlUp).Row
   
    wb.Sheets(1).Range("A2:ai" & k).Copy ThisWorkbook.Sheets("数据").Range("a" & j + 1)
     
   
   Excel.Application.DisplayAlerts = True
    wb.Close True
    str = Dir
    If str = "" Then
       Exit For
    End If
Next
End Sub

719404338

wb.Sheets(1).Range("a3:ai" & k).Copy ThisWorkbook.Sheets("数据").Range("a" & j + 1)