小编tru*_*nks的帖子

有人可以帮我一些VBA代码.

我试图在工作簿之间复制2个单元格范围(两个工作簿都应该事先创建,因为我不希望代码在运行中创建新的工作簿).

首先,我需要复制这些范围 - 从booka.xls的"Sheet 3",Range:Cell H5到H列的最后一行,将数据复制到bookb.xls的"Sheet 1",从Cell B2开始细胞向下进入B柱

其次,我需要复制这些范围 - 从booka.xls的"Sheet 3",Range:Cell K5到K列的最后一行,将数据复制到bookb.xls的"Sheet 1",从Cell D2开始D列中的细胞

这是我到目前为止:

 Sub CopyDataBetweenBooks()

Dim iRow        As Long
    Dim wksFr       As Worksheet
    Dim wksTo       As Worksheet

    wksFr = "C:\booka.xls"
    wksTo = "C:\bookb.xls"

    Set wksFrom = Workbooks(wksFr).Worksheets("Sheet 3")
    Set wksTo = Workbooks(wksTo).Worksheets("Sheet 1")

    With wksFrom
        For iRow = 1 To 100
            .Range(.Cells(iRow, 8), .Cells(iRow, 9)).Copy wksTo.Cells(iRow, 8)
        Next iRow
    End With

End Sub