以下宏将在 a 列传回所有工作表名称。 ( 很实用 ) Sub Maco1() For i = 1 To Sheets.Count Cells(i, 1) = Sheets(i).Name Next End Sub