VBA列出工作表數量/名稱
我們可以框選「有數值的儲存格」快速統計出項目個數,但如果有好多個「工作表」,該如何快速列出「工作表數量」,甚至是「工作表名稱」呢?
列出工作表數量
※輸入以下指令※
Sub 列出工作表數量()
Range(“A1”) = “工作表數量”
Range(“B1”) = Worksheets.Count
End Sub
![](https://lazyorangelife.com/wp-content/uploads/2023/02/VBA-列出工作表數量-1.png)
執行後則在「B1儲存格」列出工作表數量。
![](https://lazyorangelife.com/wp-content/uploads/2023/02/VBA-列出工作表數量-2.png)
列出工作表名稱
※輸入以下指令※
Sub 列出工作表名稱()
Range(“A1”) = “工作表名稱”
For i = 1 To Worksheets.Count
Cells(i + 1, 1) = Worksheets(i).Name
Next i
End Sub
![](https://lazyorangelife.com/wp-content/uploads/2023/02/VBA-列出工作表名稱-1.png)
執行後則在「A1儲存格」向下依序列出各「工作表名稱」。
![](https://lazyorangelife.com/wp-content/uploads/2023/02/VBA-列出工作表名稱-2.png)
列出工作表數量與名稱
※輸入以下指令※
Sub 列出工作表數量與名稱()
Range(“A1”) = “工作表數量”
Range(“B1”) = Worksheets.Count
Range(“A2”) = “工作表名稱”
For i = 1 To Worksheets.Count
Cells(i + 2, 1) = Worksheets(i).Name
Next i
End Sub
![](https://lazyorangelife.com/wp-content/uploads/2023/02/VBA-列出工作表數量名稱-1.png)
執行後則在「B1儲存格」列出工作表數量,「A2儲存格」向下依序列出各「工作表名稱」。
![](https://lazyorangelife.com/wp-content/uploads/2023/02/VBA-列出工作表數量名稱-2.png)