Excel 宏

实现1到40行的第一列 ，全部 累加一个字符串 A1

Sub Macro1()

 Dim i As Integer
For i = 1 To 40
Sheets(1).Cells(i, 1).Value = Conversion.CStr(Sheets(1).Cells(i, 1).Value) + "_A1"
Next i
End Sub

Excel vba

 Excel2007无法在未启用宏的工作簿中保存vb项目

新建 Microsoft Office Excel 工作表.xlsm

http://jingyan.baidu.com/article/4f7d571286cf471a2019273b.html

http://zhidao.baidu.com/link?url=UcnIoAT0lK-TumRmefgi84SKz-J9pj-rxao0g25AN5SVkn_aY6orUJbLQLtIwOotvxXqz0TxPvHFjSQ08C0JgK