Sub 批处理某一列的每一个单元格()
' 宏由 WoooXVi 录制,时间: 2010-11-25
'
For i = 4 To 444
Dim cont
cont = Cells(i, 8) '获取单元格的内容
'处理cont
'比如连接一些字符串:cont = "原文字前面加上一些内容" & cont & "原文字后面加上一些内容"
Cells(i, 8).Value = cont
Next
End Sub