[問題] EXCEL VBA PasteSpecial 方法失敗
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: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
→
10/03 10:09,
8年前
, 1F
10/03 10:09, 1F
→
10/03 10:10,
8年前
, 2F
10/03 10:10, 2F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
14
42