実行時エラー1004アプリケーション定義とオブジェクトエラー

Question

エラー1004に問題があります。バグはどこか貼り付け機能を使用していますが、わかりません。

For i = 0 To citac 
If pole(i + 1) - pole(i) > 1 Then 
thissheet.Range("E" & CStr(pole(i) + 1) & ":E" & CStr(pole(i + 1))).Copy 
Else 
thissheet.Range("E" & CStr(pole(i) + 1)).Copy 
End If 

    For j = 2 To thiswbk.Worksheets.Count 
    thiswbk.Sheets(j).Range("A1:A100000").Clear 

    If pole(i + 1) - pole(i) > 1 Then 

    thiswbk.Sheets(j).Range("A1:A" & CStr(pole(i + 1) - pole(i))).PasteSpecial xlPasteAll 
    Else 
    **thiswbk.Sheets(j).Range("A1").PasteSpecial xlPasteAll**<-problem 

    End If 
    Next j 

Next i 

ご回答ありがとうございます。

Answer 1

問題がクリア機能にあります。これは解決です：

For j = 2 To thiswbk.Worksheets.Count 
    thiswbk.Sheets(j).Range("A1:A100000").Clear 
    Next j 

For i = 0 To citac 
If pole(i + 1) - pole(i) > 1 Then 
thissheet.Range("E" & CStr(pole(i) + 1) & ":E" & CStr(pole(i + 1))).Copy 
Else 
thissheet.Range("E" & CStr(pole(i) + 1)).Copy 
End If 

    For j = 2 To thiswbk.Worksheets.Count 

    If pole(i + 1) - pole(i) > 1 Then 

    thiswbk.Worksheets(j).Range("A1:A" & CStr(pole(i + 1) - pole(i))).PasteSpecial xlPasteAll 
    Else 
    thiswbk.Worksheets(j).Range("A1").PasteSpecial xlPasteAll 

    End If 
    Next j 

Next i