Question

咨询了几个小时后，我对这个问题感到非常沮丧。

这是我的代码：

replication

我用.Copy尝试了同样的事情，但是我总是在bypassrls中遇到类型不匹配的情况。

如果有人能帮助我或向正确的方向指出我会很高兴

Answer 1

您几乎拥有它...您需要了解工作表和工作簿对象的工作方式。

如果您这样做： Set wb = Workbooks("MyWorkbook.xlsx")

然后：

Workbooks("MyWorkbook.xlsx") = wb

工作表也一样，因此，如果您有一个名为ws的变量，则可以这样做：

Set ws = wb.Sheets("MySheet")

ws.Cells(1, 2) = "Test"

或

Workbooks("MyWorkbook.xlsx").Sheets("MySheet").Cells(1, 2) = "Test"

Option Explicit
Sub Test()

    Dim dest As Workbook
    Set dest = ThisWorkbook 'this is a workbook reference
    Dim wsTo As Worksheet
    Set wsTo = dest.Worksheets(ActiveSheet) 'this is a worksheet reference

    Dim src As Workbook
    Set src = Workbooks.Open("C:\Users\...")
    Dim wsFrom As Worksheet
    Set wsFrom = src.Worksheets("Interview Vorlage")

    Dim icount As Long
    icount = 14

    'Now when we have everything up here defined, we can use the worksheet references,
    'because they already have a workbook reference.
    Dim i As Long
    For i = 14 To 369 Step 4
        wsTo.Cells(9, i).Value = wsFrom.Cells(7, icount).Value
        icount = icount + 1
    Next i

    src.Close False
    Set src = Nothing

End Sub

将范围复制到合并单元格的范围内

1 个答案: