VBA如何循环？

Posted 2023-03-16

Sheet2.Name = Sheet2.Range("A4") & Sheet2.Range("C4")
我想循环这个到每个sheet表 应该dim as什么

参考技术A

1、循环出当前打开的所有工作簿名字

Sub 工作簿名字()

Dim wb As Workbook

For Each wb In Workbooks

MsgBox wb.Name

Next wbEnd Sub

我打开三个工作簿，从工程资源管理中的VBAProject可以看出来，我们运行第一段代码会得出每个工作簿的名字：

参考技术B Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
Sht.Name = Sht.Range("A4") & Sht.Range("C4")
next
遍历所有sheet