(VBA)遍历excel的宏脚本
时间：2006-06-15 来源：liulang0808
该宏可以遍历EXCEL里的每个表格,进而可以对存在的内容进行修改!
Sub ma()
Dim ss As String
For i = 1 To Sheets.Count 'Sheets.Count的值是指该EXCEL文件中存在的表格数量
Sheets(1).Cells(i, 1) = Sheets(i).Name '把每个表格的名字存在处于最前面的表格的第一列里
Next i
For j = 1 To i - 1
ss = Sheets(1).Cells(j, 1) 'ss必须定义为Sring类型,才能根据名称遍历每个表格,如果表名是数字表示,就要出问题的.
Sheets(ss).Cells(1, 2) = Sheets(j).Name
Sheets(j).Cells(1, 3) = Sheets(j).Name
Next j End Sub
Dim ss As String
For i = 1 To Sheets.Count 'Sheets.Count的值是指该EXCEL文件中存在的表格数量
Sheets(1).Cells(i, 1) = Sheets(i).Name '把每个表格的名字存在处于最前面的表格的第一列里
Next i
For j = 1 To i - 1
ss = Sheets(1).Cells(j, 1) 'ss必须定义为Sring类型,才能根据名称遍历每个表格,如果表名是数字表示,就要出问题的.
Sheets(ss).Cells(1, 2) = Sheets(j).Name
Sheets(j).Cells(1, 3) = Sheets(j).Name
Next j End Sub
相关阅读 更多 +
