[發問] 請問儲存格複製的問題

yiwei0707

請問一下"06"&"TEMP"皆在同一活頁簿裡
但用以下的方式會出現錯誤訊息
執行階段錯誤 '1004':
應用程式或物件定義上的錯誤

請問語法那裡有錯誤??
是否有大大可以幫忙解說一下。謝謝

1.     If K = 1 Then
   
2.     Else
   
3.         For I = 1 To K
   
4.             J = Sheets("TEMP").Cells(I, 1)
   
5.             Sheets("06").Range(Cells(J, 5), Cells(J, 6)) = Sheets("TEMP").Range(Cells(I, 2), Cells(I, 3))
   
6.         Next
   
7.     End If

複製代碼

Hsieh

回復 1# yiwei0707
    If K = 1 Then

    Else

        For I = 1 To K

            J = Sheets("TEMP").Cells(I, 1)

            Sheets("06").Range(Sheets("06").Cells(J, 5), Sheets("06").Cells(J, 6)) = Sheets("TEMP").Range(Sheets("TEMP").Cells(I, 2), Sheets("TEMP").Cells(I, 3))

        Next

    End If

yiwei0707

回復 2# Hsieh


    測試更改了之後就沒出現錯誤，但資料並不會COPY到"06"工作表的位子…

Hsieh

回復 3# yiwei0707


    這是針對程式碼錯誤的修正，至於資料沒辦法寫入，光看部份程式碼是無法給你任何建議的

yiwei0707

回復 4# Hsieh


    附上檔案，請大大幫忙協助一下。謝謝

分類銷售查詢.zip (669.57 KB)

下載次數: 5

2017-12-8 12:13

Hsieh

回復 5# yiwei0707


    還是出在指定工作表的問題
分類銷售查詢.rar (256.71 KB)

下載次數: 3

2017-12-10 09:52

yiwei0707

回復 6# Hsieh


    謝謝大大的幫忙~