應用程序定義或對象定義的錯誤1004

Question

VBA的上線扔上面給出的錯誤Sheets("Sheet1").Range("A" & i).Copy Destination:=Sheets("Sheet2").Range("A" & i & "A" & LastCol - 1)

我所試圖做的實際上是（這是A2在第一次迭代）複製"A" & i細胞的範圍在名爲Sheet2的第二個工作表中。

Sub FindFill() 

Dim DatesRange As Range 
Dim i As Integer 
Dim TransposeThis As Range 
Dim LastCol As Integer 

If WorksheetFunction.CountA(Cells) > 0 Then 
    LastColumn = Cells.Find(What:="*", After:=[A1], _ 
    SearchOrder:=xlByColumns, _ 
    SearchDirection:=xlPrevious).Column 
End If 


With Sheets("Sheet1") 
    Set DatesRange = Range("B2" & LastCol) 
End With 
i = 1 
Do While i <= ActiveSheet.Rows.Count 
    Sheets("Sheet1").Range("A" & i + 1).Copy Destination:=Sheets("Sheet2").Range("A" & i & "A" & LastCol - 1) 
    i = i + 1 
Loop 




End 


End Sub 

Answer 1

你缺少一個 「：」 「A」

Range("A" & i & ":A" & LastCol - 1) 

隨訪

後，我通過你的意見去之前，我看到了很多錯誤，在你的代碼

1）你已黯淡i爲Integer。如果您的最後一行超過32,767，這可能會在Excel 2007之後出現錯誤。將其更改爲Long我建議查看此鏈接。

主題：整型，長和字節數據類型

鏈接：從上面的鏈接

整型變量之間保存值http://msdn.microsoft.com/en-us/library/aa164754%28v=office.10%29.aspx

報價 - 32,768和32,767，而長變量的範圍可以從-2,147,483,648到2,147,483,647

2）您正在查找最後一列，但在哪張表中？你必須完全符合這條道路。

If WorksheetFunction.CountA(Sheets("Sheet1").Cells) > 0 Then 
     LastCol = Cells.Find(What:="*", After:=[A1], _ 
     SearchOrder:=xlByColumns, _ 
     SearchDirection:=xlPrevious).Column 
    End If 

同樣是Range

這是正確的做法之前

With Sheets("Sheet1") 
    Set DatesRange = Range("B2" & LastCol) 
End With 

你缺少一個DOT的情況下...

.Range("B2.... 

而且Range("B2" & LastCol)不會放棄你想要的範圍。請參閱下面的代碼，瞭解如何創建您的範圍。

3）您正在使用變量LastColumn，但使用的是LastCol。我強烈建議使用Option Explicit我也建議查看此鏈接（請參閱鏈接中的第2點）。

主題：以「錯誤」是人類

鏈接：http://www.siddharthrout.com/2011/08/01/to-err-is-human/

4）會發生什麼，如果有.CountA(Sheets("Sheet1").Cells) = 0？ :)我建議你這個代碼，而不是

If WorksheetFunction.CountA(Sheets("Sheet1").Cells) > 0 Then 
     LastCol = Cells.Find(What:="*", After:=[A1], _ 
     SearchOrder:=xlByColumns, _ 
     SearchDirection:=xlPrevious).Column 
    Else 
     MsgBox "No Data Found" 
     Exit Sub 
    End If 

5）ActiveSheet.Rows.Count不會給你的最後一個活動行。它會給你該表中的總行數。我會建議獲取有數據的Col A的最後一行。

您可以使用此爲

With Sheets("Sheet") 
    LastRow =.Range("A" & .Rows.Count).End(xlup).row 
End With 

現在使用LastRow代替ActiveSheet.Rows.Count您可能還需要使用一個For Loop，這樣你就不必增加每次i。例如

For i = 1 to LastRow 

6）最後，你不應該使用End。原因很簡單。這就像使用POWER OFF按鈕切換您的計算機。 End語句突然停止代碼執行，而無需調用Unload，QueryUnload或Terminate事件或任何其他Visual Basic代碼。另外，其他程序保存的對象引用（如果有）也將失效。

7）根據您在Chat的形象，我相信您正在嘗試這麼做？這使用了一個不使用任何循環的代碼。

Option Explicit 

Sub FindFill() 
    Dim wsI As Worksheet, wsO As Worksheet 
    Dim DatesRange As Range 
    Dim LastCol As Long, LastRow As Long 

    If Application.WorksheetFunction.CountA(Sheets("Sheet1").Cells) = 0 Then 
     MsgBox "No Data Found" 
     Exit Sub 
    End If 

    Set wsI = Sheets("Sheet1") 
    Set wsO = Sheets("Sheet2") 

    With wsI 
     LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column 
     LastRow = .Range("A" & .Rows.Count).End(xlUp).Row 
     Set DatesRange = .Range("B1:" & Split(Cells(, LastCol).Address, "$")(1) & 1) 

     .Columns(1).Copy wsO.Columns(1) 
     DatesRange.Copy 
     wsO.Range("B2").PasteSpecial xlPasteValues, _ 
     xlPasteSpecialOperationNone, False, True 

     .Range("B2:" & Split(Cells(, LastCol).Address, "$")(1) & LastCol).Copy 
     wsO.Range("C2").PasteSpecial xlPasteValues 
    End With 
End Sub