請教VBA 出現 400問題

jsc0518

親愛的各位先進

1.若我將原始資料放置EXCEL VBA時，連續執行VBA，TEST OK
2.但若我再次按下VBA時，則會出現"400"的錯誤

請問要怎麼樣才能避免發生錯誤訊息400的出現

下載 (31.42 KB)

2017-3-4 19:12

jsc0518

我附的這個檔案是，跨工作表執行另一VBA(複製欄位動作)時發生錯誤
但若該VBA是在該工作表執行時，就正常
我哪裡應該要改?

下載 (52.42 KB)

2017-3-4 20:20

拷貝問題.rar (13.63 KB)

拷貝問題
下載次數: 1

2017-3-4 20:21

jsc0518

我發現，我是卡在像    Columns 語法
向下列語法若是要跨工作表執行時，該如何寫?

Columns("C:C").Select
    Selection.Copy
    Columns("D").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

lpk187

回復 3# jsc0518
不用.Select的

1. Sub S8()
   
2. 
   
3.     Columns("A").Copy
   
4.     Columns("B").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   
5.         :=False, Transpose:=False
   
6. 
   
7. End Sub

複製代碼

jsc0518

回復 4# lpk187


感謝您的回覆
測試成功，再次謝謝您!
:)