如何在excel中，每个表格插入1到1000的艺术字

与刚才的答案稍微不一样。
得用宏，稍微麻烦一些，请按步骤操作：
自己先做一个艺术字，设置大小格式到你喜欢为止，文字内容xx1，放到单元格A1，把第一行的行高调整到合适位置（是该艺术字正好或小于行高，主要为好看）。
设置第2到第500行与第一行一样的行高。

选中该艺术字（选中状态，而不是有个光标可以输入文字状态），同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Dim i As Integer
Dim xSh As Worksheet
Set xSh = ActiveSheet
Application.ScreenUpdating = False
Selection.Copy
For i = 2 To 500
Range("A" & i).Select
ActiveSheet.Paste
Selection.Text = "xx" & i
Next i
For i = 1 To 500
Range("B" & i).Select
ActiveSheet.Paste
Selection.Text = 500 + i
Next i
Range("C1").Select
Application.ScreenUpdating = True
End Sub

按F5运行此宏，OK。

还是不太明白～