(若是和其他不同软件互动之问题 请记得一并填写)
软件:EXCEL
版本:2010
宏这部分内容是希望将A:I内容先移至AA:AI重新编排后移回至A:I。
其中，AG值需要乘1000，之后贴至H2时为贴上数值。但执行到这边时会出现执行阶段错误1004 Class Range 的 PasteSpecial 方法失败。
google查询有人说要指定sheet才paste，但我的sheet名称非固定。
请问各位先进是否能指点怎么处理？
谢谢大家
(手机编排，伤眼请见谅)
Columns("A:I").Select
Selection.Cut
Columns("AA:AA").Select
ActiveSheet.Paste
Columns("AA:AB").Select
Selection.Cut
Columns("C:D").Select
ActiveSheet.Paste
Columns("AH:AH").Select
Selection.Cut
Columns("E:E").Select
ActiveSheet.Paste
If Range("C2").End(xlDown).Row <> Rows.Count Then
Dim r
r = Cells(Rows.Count, "C").End(xlUp).Row
Range("AH2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*1000"
Range("AH2:AH2").AutoFill Destination:=Range("AH2:AH" & r)
Range("AH2:AH" & r).Select
Selection.FillDown
Else
Range("AH2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*1000"
Range("AH2").Select
End If
Range("H2:H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
※ 编辑: cksmark129 (42.70.200.68), 10/03/2017 08:57:13