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

运行时错误1004应用程序定义和对象错误

1 个答案: