循环遍历工作簿中的所有工作表

Question

我想在工作簿中的所有工作表上重复此代码。

有时可能有1-2个工作表，有时50+。

Sub HoursTotal() 
' 
' HoursTotal Macro 
' 

Range("F2").Select 
ActiveCell.FormulaR1C1 = "=SUM(C[-1])" 
Range("F1").Select 
ActiveCell.FormulaR1C1 = "Total Hours" 
Range("G1").Select 


End Sub 

Answer 1

这应该这样做。

Sub HoursTotal() 
    Dim ws As Worksheet 

    For Each ws In Worksheets 
     ws.Range("F2").FormulaR1C1 = "=SUM(C[-1])" 
     ws.Range("F1").FormulaR1C1 = "Total Hours" 
     ws.Range("G1").Select 'I don't think you need this line but I included it anyways 
    Next 
End Sub 

Answer 2

您当前密码的简单的修改应该这样做：

Sub HoursTotal() 
' 
' HoursTotal Macro 
' 

Dim ws as Worksheet 

For Each ws in Worksheets 

    ws.Range("F2").Select 
    ActiveCell.FormulaR1C1 = "=SUM(C[-1])" 
    ws.Range("F1").Select 
    ActiveCell.FormulaR1C1 = "Total Hours" 
    ws.Range("G1").Select 

Next ws 

End Sub 

但这里是什么样子没有Select的

Sub HoursTotal() 
' 
' HoursTotal Macro 
' 

Dim ws as Worksheet 

For Each ws in Worksheets 

    ws.Range("F2").FormulaR1C1 = "=SUM(C[-1])" 
    ws.Range("F1").FormulaR1C1 = "Total Hours" 
    ws.Range("G1").Select 

Next ws 

End Sub