|
VBA初心者ですが、合計を求めるマクロを調べて作ってみました。
下記のような表です。
1.行数は増減します。
2.A列最終行に合計と入力し、A列最終行セルからC列最終行セルの
3.範囲内で中央揃えに。合計を求めたい列はDとEとGです。
☆出来れば部分的指導ではなく、模範的なものを教えていただけると
うれしいです。
A B C D E F G
氏名 住所 生年月日 口数 寄付金額 入金日 入金金額
↓↓このように書いて動かしましたが、途中で止まります。
どうかご教授お願いします。
Sub 合計行()
Dim i As Integer
Dim j As Long
Worksheets("申請").Activate
For i = 4 To 7
j = Application.Max(j, Cells(1048576, i).End(xlUp).Row + 1)
Next
For i = 4 To 7
Cells(j, i).FormulaR1C1 = "=SUM(R2C[0]:R[-1]C[0])"
Next i
Cells(j, 1).FormulaR1C1 = "合計"
'合計行
With .Range("a1").Offset(dic.Count + 1)
End With
End Sub
|
|