[已解决]VBA 跨工薄复制列 粘贴列

yorkchenshunan

凌文 发表于 2015-9-13 19:06
修改了一下，通过了
Application.DisplayAlerts = FalseDim wb As Workbook
Dim ar1, ar2 ', i%, j%

貌似你把
ar1 = Range(Range("a5"), Range("b5").End(xlDown).Offset(, 9))   改成了
ar1 = Range(Range("a2"), Range("b5").End(xlDown).Offset(, 9))
将a2改回a5把，不然程序会copy表头