遍历工作簿中的所有工作表-解网

问：

我有一个包含 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

Excel VBA 循环

您想申请什么格式？为什么你要遍历工作表，而不使用循环变量，比如？而且根本不必要。对不起，老实说，但你能帮我解决这个问题吗？ 不是一个可以以令人满意的方式回答的问题。ws ws.range("A1").FormulaR1C1 = "Balance Sheet"Application.CutCopyMode = FalseSelect

1赞 braX 6/19/2022

您的范围不合格，因此它们采用活动工作表。添加以限定它们。 - 请勿使用或 .wsws.Range("A1").SelectSelectActiveCell

答：

1赞 Bryan 6/19/2022 #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

上一个：当上述单元格满足条件时，在单元格中插入文本（如果它有任何数字）

下一个：从文本文件复制数据（从PDF文件中提取的特定模式）

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

Loop through all sheets in workbook

评论