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

Question

I have a problem with error 1004. Bug is somewhere in use of Paste function, but I do not know where. 我遇到错误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

Thanks for your answers. 感谢您的回答。

Answer 1

Problem is in Clear function. 问题在于清除功能。 This is a solve: 这是一个解决方案：

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 个解决方案

解决方案1
0 已采纳 2017-07-18 10:59:07

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

问题描述

1 个解决方案

解决方案1 0 已采纳 2017-07-18 10:59:07

解决方案1
0 已采纳 2017-07-18 10:59:07