VBA - 如何从单个单元格复制数据并粘贴到合并的单元格中

Question

我无法从一个工作簿中的单个单元格复制数据并将其放入另一个工作簿中的合并单元格中，并且想知道是否有解决方法。 我也尝试专门针对合并单元格的第一个单元格。 例如，如果我尝试将数据粘贴到由 d12:f12 组成的合并单元格中……我尝试专门粘贴到 d12 中。

Workbooks("Dummy Broadcast.xlsx").Worksheets("Sheet1").Range("A2").Copy
Workbooks("TestSheet.xlsm").Worksheets("Sheet1").Range("D12").PasteSpecialPaste:=xlPasteValues

错误信息是合并的单元格大小必须相同

Answer 1

无需通过粘贴板。 尝试：

Workbooks("TestSheet.xlsm").Worksheets("Sheet1").Range("D12").value = Workbooks("Dummy Broadcast.xlsx").Worksheets("Sheet1").Range("A2").Value

Answer 2

以上确实有效，但可能会丢失格式。

而是尝试

Workbooks("TestSheet.xlsm").Worksheets("Sheet1").Range("D12").Copy
Workbooks("Dummy Broadcast.xlsx").Worksheets("Sheet1").Range("A2").PasteSpecial Paste:=xlPasteValuesAndNumberFormat