【Excel】VBAマクロで掛け算（繰り返し：変数：列や行方向全部：セル範囲など）する方法

Sub kakezan1()
    ' 変数を宣言
    Dim saishuuretsu As Long  ' 最終列番号
    Dim saishuuretsu_moji As String ' 最終列のアルファベット
    Dim gyou As Long  ' 行番号
    Dim retu As Long  ' 列番号
    Dim kekkachi As Double  ' 掛け算結果
    
    ' 最終列番号を取得
    saishuuretsu = Cells(1, Columns.Count).End(xlToLeft).Column

    ' 最終列番号をアルファベットに変換
    saishuuretsu_moji = Split(Cells(1, saishuuretsu).Address(True, False), "$")(0)
    
    ' 2行目から最終行まで繰り返し
    For gyou = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        kekkachi = 1  ' 初期値を1にセット
        ' 1列目から最終列まで繰り返し掛け算
        For retu = 1 To saishuuretsu  
            kekkachi = kekkachi * Cells(gyou, retu).Value
        Next retu
        
        ' 掛け算結果を最終列の次のセルに記載
        Cells(gyou, saishuuretsu + 1).Value = kekkachi  
    Next gyou
    
    MsgBox "計算が完了しました！"
End Sub

Sub kakezan2()
    ' 変数宣言
    Dim saishuuretsu As Long  ' 最終列番号
    Dim saishuuretsu_moji As String ' 最終列アルファベット
    Dim saishuugyou As Long  ' 最終行番号
    Dim retu As Long  ' 列番号
    Dim gyoukekka As Double  ' 行の計算結果
    
    ' 最終列番号取得
    saishuuretsu = Cells(1, Columns.Count).End(xlToLeft).Column 

    ' 最終列アルファベット取得
    saishuuretsu_moji = Split(Cells(1, saishuuretsu).Address(True, False), "$")(0)
    
    ' 最終行番号取得 
    saishuugyou = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 1列目から最終列まで繰り返し
    For retu = 1 To saishuuretsu
        gyoukekka = 1  ' 初期値1にセット
        ' 2行目から最終行まで掛け算
        For gyou = 2 To saishuugyou  
            gyoukekka = gyoukekka * Cells(gyou, retu).Value
        Next gyou
        
        ' 掛け算結果を最終行の次の行に記載
        Cells(saishuugyou + 1, retu).Value = gyoukekka
    Next retu
    
    MsgBox "計算完了しました！"
End Sub