VBA列出工作表數量/名稱
我們可以框選「有數值的儲存格」快速統計出項目個數，但如果有好多個「工作表」，該如何快速列出「工作表數量」，甚至是「工作表名稱」呢？
列出工作表數量
※輸入以下指令※
Sub 列出工作表數量()
Range(“A1”) = “工作表數量”
Range(“B1”) = Worksheets.Count
End Sub
執行後則在「B1儲存格」列出工作表數量。
列出工作表名稱
※輸入以下指令※
Sub 列出工作表名稱()
Range(“A1”) = “工作表名稱”
For i = 1 To Worksheets.Count
Cells(i + 1, 1) = Worksheets(i).Name
Next i
End Sub
執行後則在「A1儲存格」向下依序列出各「工作表名稱」。
列出工作表數量與名稱
※輸入以下指令※
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
執行後則在「B1儲存格」列出工作表數量，「A2儲存格」向下依序列出各「工作表名稱」。
