excel2003 如何用表格欄中的數據作標簽名

這個功能需要VBA。按ALT+F11打開VBA編輯，插入——模塊，將以下代碼復制粘貼，按F5運行。

Sub test()

Dim j, k As Integer

Dim na As String

j = Sheet1.Range("a65535").End(xlUp).Row

k = Worksheets.Count

For i = k + 1 To j + k

Worksheets.Add after:=Worksheets(Sheets.Count)

na = Sheet1.Cells(i - k, 1).Value

Worksheets(i).Name = na

Next i

End Sub