将单元格值从一个工作簿复制到另一个工作簿

Question

我编写了以下代码，以使用一些名称，并使用它们来填充时间表。

Sub InitNames()
    Dim i As Integer
    i = 0
    Dim name As String

    Windows("Employee Data.xlsx").Activate
    Sheets("Employees").Select
    Range("A2").Select
    Do Until IsEmpty(ActiveCell)
        name = ActiveCell.Value
        Workbooks("Timesheet").Sheets("ST").Range("A9").Offset(i * 9).Value = name
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub

基本上，目标表中的单元格彼此隔开9行，因此第一个名称将出现在单元格A9中，第二个将出现在A18中，第三个将出现在A27中，依此类推。 我确定我缺少了一件非常简单的事情，但是我没有从Excel得到任何反馈（没有错误消息）。 时间表中的单元格是合并的单元格，但是我无法更改它们（由所有者锁定），但是我认为这与它无关。

编辑 ：我添加了一行： OriginalValue = Workbooks("Timesheet").Sheets("ST").Range("A10").Offset((x - 2) * 9, 0).Value所以我可以看一下时间表中覆盖了哪些值，我注意到了一些有趣的事情：OriginalValue仅捕获第一个单元格的文本（A9），此后，对于每个单元格（A18，A27等），调试器仍会指示OriginalValue =“”，即使这些单元格还包含名称。 但是，当我打开另一个工作表并引用A9，A18等时，我正在拉名称。

编辑2 ：我修改了测试行以读取Workbooks("Timesheet").Sheets("ST").Range("A" & ((x - 1) * 9)).Value = "Test" ，它确实改变了所有目标单元格中​​的值。 为什么VBA允许我将“测试”分配给单元格值，而不是其他工作表中的名称？

Answer 1

尝试这样的事情。 它将完成您所请求的任务，而无需使用.Select或.Activate

Sub InitNames()
Dim i As Integer
Dim Wksht as Worksheet
i = 0

Set Wksht = Workbooks("Employee Data.xlsx").Sheets("Employees")
For i = 2 to Wksht.Range("A" & Wksht.Rows.Count).End(xlUp).Row
    Workbooks("Timesheet").Sheets("ST").Range("A9").Offset((i-2) * 9,0).Value = Wksht.Range("A" & i).Value
Next i
End Sub