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