|
Kioyuさん、みなさん、こんにちは。
Kioyuさん、マナさんのおっしゃる通り、Count関数を使うのがベストだと思います。
が、作成されたプロシージャは、あと一歩!のところまで出来ているようなので、
最後まで完成させたい・・ですよね。こんな感じで、いかかでしょう。
合計値を入れるための変数[Ans]を追加しました。
MsgBoxの先頭にある(')をはずすと、[Ans]の動きが分かると思います。
Sub 領収書総数()
Dim LastRow As Long
Dim i As Integer, LastClm As Integer
Dim Ans As Integer
LastClm = ActiveSheet.Cells(1, 2).End(xlToRight).Column
Ans = 0
For i = 2 To LastClm
LastRow = ActiveSheet.Cells(Rows.Count, i).End(xlUp).Row
Ans = Ans + Cells(LastRow, i).Value
'MsgBox "取得した数値=" & Cells(LastRow, i).Value & vbCr & _
"合計値=" & Ans
Next i
Range("H1").Value = Ans
End Sub
|
|