循環瀏覽工作簿中的所有工作表

Question

我有一個包含 100 張表格的 excel 文件，所有表格都具有相同的布局，我需要對所有這些表格應用一些格式。

我需要的是一個循環遍歷工作簿的所有工作表相同代碼的宏。

我試過這個但不起作用

Dim ws As Worksheet 
For Each ws In ThisWorkbook.Worksheets
        Range("A1").Select
        Application.CutCopyMode = False
        ActiveCell.FormulaR1C1 = "Balance Sheet"         
        Range("Q1").Select
        Application.CutCopyMode = False
        ActiveCell.FormulaR1C1 = "Cash Flow"
Next ws
End Sub

你能幫我解決這個問題嗎？ 謝謝！！

Answer 1

將其替換為：

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    ws.Range("A1").Value = "Balance Sheet"
    ws.Range("Q1").Value = "Cash Flow"
    Application.CutCopyMode = False
Next ws