EXCEL文件中的简单VB编程，基本的访问方法

Private Sub CommandButton1_Click()
For i = 1 To Sheets.Count - 1

Dim shet
Dim shetd
shetd = "a" + Trim(str(i))
shet = "b" + Trim(str(i))

For j = 1 To 100

Dim sss
sss = "A" + Trim(str(j)) //数字转换成字符，截取掉空格，拼合成一个单元格地址

Dim ccc
ccc = Sheets(i).Range(sss).Value //获得某页某个单元格的内容

Dim d
d = Sheets(i).Name //获得某个sheet的名称

If ccc = "合计" Then

Dim row
row = "t" + Trim(str(j))

Sheets("统计").Range(shetd) = d //设置某个单元格的值

Sheets("统计").Range(shet) = Round(Sheets(i).Range(row).Value, 2)

End If
Next j
Next i
End Sub

Private Sub CommandButton2_Click()
For i = 1 To Sheets.Count - 1

Dim shet
Dim shetd
shetd = "a" + Trim(str(i))
shet = "b" + Trim(str(i))

For j = 1 To 100

Dim sss
sss = "A" + Trim(str(j))

Dim ccc
ccc = Sheets(i).Range(sss).Value

Dim d
d = Sheets(i).Name

If ccc = "平均" Then

Dim row
row = "t" + Trim(str(j))

Sheets("统计").Range(shetd) = d

Sheets("统计").Range(shet) = Round(Sheets(i).Range(row).Value, 2)

End If
Next j
Next i
End Sub