excel宏的应用1

如果在excel中有某行要在后面追加一个数字，而行数比较多我们可以利用office里的宏来实现
我们打开excel文件新建一个宏用vb建立一个过程如

Sub addID()
    Dim i
    i = 1

While i < 1000  '1000是总行数
    Me.Cells(i, 1) = Me.Cells(i, 1) & "mingfei"
   i = i + 1
Wend
End Sub

执行该宏则工作薄中第一列的每个cell中都在尾部追加一个"mingfei"