循環遍歷所有活動的工作表

Question

與VBA一起工作的體驗非常弱，但現在遇到了真正需要的問題。

我需要將單元格的值從多個工作表（除了「摘要」）複製到一個工作表中，但面臨一個問題。當運行一個宏時，我得到了大約30行，包含我需要的值，但是所有30個值都屬於同一個工作表。似乎循環只運行在大約1個工作表中。你能幫我找到代碼中的錯誤嗎？

Sub CopyTotalSalesPrice() 

For Each Worksheet In ActiveWorkbook.Worksheets 
If Worksheet.Name <> "Summary" Then 

Worksheet.Cells(Rows.Count, 7).End(xlUp).Select 
End If 
    If Selection.Value > "0" Then 
     Selection.Copy 
     Worksheets("Summary").Cells(Rows.Count, 6).End(xlUp).Offset(2, 0).PasteSpecial (xlPasteValues) 

     Range("D4").Select 
     Selection.Copy 
     Worksheets("Summary").Cells(Rows.Count, 4).End(xlUp).Offset(2, 0).PasteSpecial (xlPasteValues) 

    End If 

Next Worksheet 

Worksheets("Summary").Select 
End Sub 

Answer 1

當使用單元格（Rows.Count，7）.End（xlUp）.Select和其他所有內容時，它們引用當前表單。所以，你要麼把它們中的Worksheet.Cells（Rows.Count，7）.END（xlUp）。選擇前面或你Worksheet.Activate

首先激活片，或者你可以做如下：

Sub CopyTotalSalesPrice() 
    For Each Worksheet In ActiveWorkbook.Worksheets 
     With Worksheet 
      If .Name <> "Summary" Then 
       .Cells(Rows.Count, 7).End(xlUp).Copy Destination:=Worksheets("Summary").Cells(Rows.Count, 6).End(xlUp).Offset(2, 0) 
       .Range("D4").Copy Destination:=Worksheets("Summary").Cells(Rows.Count, 4).End(xlUp).Offset(2, 0) 
      End If 
     End With 
    Next Worksheet 
    Worksheets("Summary").Select 
End Sub 

Answer 2

試試這個：

Sub CopyTotalSalesPrice() 

For Each Worksheet In ActiveWorkbook.Worksheets 
    If Worksheet.Name <> "Summary" Then 
     Worksheet.Select 
     Worksheet.Cells(Worksheet.Rows.Count, 7).End(xlUp).Select 
    End If 
    If Selection.Value > "0" Then 
     Selection.Copy 
     Worksheets("Summary").Cells(Worksheet.Rows.Count, 6).End(xlUp).Offset(2, 0).PasteSpecial (xlPasteValues) 

     Range("D4").Select 
     Selection.Copy 
     Worksheets("Summary").Cells(Worksheet.Rows.Count, 4).End(xlUp).Offset(2, 0).PasteSpecial (xlPasteValues) 

    End If 

Next Worksheet 

Worksheets("Summary").Select 
End Sub 

我換成這個Cells(Rows.Count, 7).End(xlUp).Select與Worksheet.Cells(Worksheet.Rows.Count, 7).End(xlUp).Select