要在excel档中每一行上插入相同的类容,但不用一个个复制再插入应该怎麼做?先谢了

来源:百度知道 编辑:UC知道 时间:2024/06/06 18:58:32
谢谢houtzwoo的回答.问题是我有试过.您的方法好象只适於插入一栏同样的内容.但我要是插入的内容如有三栏或者多栏呢\?
也就是说象您所述的工资条.如果头条有三栏或多栏呢>?那我是以什麼方式来完成?

利用排序功能。
http://www.lw90.com/paper/jingjilunwen/huijishenji/20070104/63031/

你可以写一个VBA的宏命令来实现,你可以点击EXCEL的“工具”菜单下的“宏”下的“Visual Basic 编辑器”。在编辑器的左边窗口里面双击你要编辑的Sheet,把下面的代码粘到“代码”窗里:

Private Sub 添加()
Dim i As Integer
Dim x As Integer

' 你要编辑的列
x = 2

' 你文档的总行数
Dim iRow As Integer

' 你想要添加的文字
Dim s As String

s="你要加入的内容!!!"

For i = 1 To iMaxRow

' 如果想把字符加到后面
Sheet1.Cells = Sheet1.Cells(i, x) & s

' 如果想把字符加到前面
Sheet1.Cells = s & Sheet1.Cells(i, x)
Next i
End Sub

然后在菜单里面选择“运行”下的“运行子过程/用户窗体”。