Excel VBA 出现错误提示

楼主是要把 Workbooks("一括変更.xls").Sheets("Sheet1") 中的 E2、F2、G2 复制到当前文件的 AF3、BE3、B12吧。

这样写又快又好呀：
Sub KTT()
ThisWorkbook.Sheets("原本").Range("AF3").UnMerge
Workbooks("一括変更.xls").Sheets("Sheet1").Range("E2").Copy Sheets("原本").Range("AF3")
ThisWorkbook.Sheets("原本").Range("BE3").UnMerge
Workbooks("一括変更.xls").Sheets("Sheet1").Range("F2").Copy Sheets("原本").Range("BE3")
ThisWorkbook.Sheets("原本").Range("B12").UnMerge
Workbooks("一括変更.xls").Sheets("Sheet1").Range("G2").Copy Sheets("原本").Range("B12")
End Sub

GoodLuck！
------------------------------
二楼 柴从琴 的回复我算是服了！居然是从我的一个回答中一字不漏地Copy来的，Copy可以，但你也要牛头对上马嘴呀！