Array函数将列标输入到工作表里:
Sub ColumnHeads()
Dim heading As Variant
Dim cell As Range
Dim i As Integer
i = 0
heading = Array("First Name", "Last Name", "Position", _
"Salary")
Workbooks.Add
For Each cell In Range("A1:D1")
cell.Formula = heading(i)
i = i + 1
Next
Columns("A:D").Select
Selection.Columns.AutoFit
Range("A1").Select
End Sub