【VBA】オートcountAがつくりたい

質問

VBAを使ってオートカウントＡのようなものを作りたいんですけど
ＶＢＡ初心者なため、何も思いつきません。

どなたかご教授おねがいします。

選択範囲の一番下のその一個下へ移動する。
=counta(選択範囲)を入力する。
だけなんですけど・・・

回答No.1

merlionXX · ベストアンサー

Sub test()
rng = Selection.Address
Selection.Offset(Selection.Rows.Count).Resize(1) = "=counta(" & rng & ")"
End Sub

お礼

ありがとうございます。試してみます。

回答No.2

BLUEPIXY

Public Sub AutoCountAIns()
Dim r As Range
Set r = Selection
r.Cells(r.Rows.Count + 1, r.Columns.Count).Formula = "=COUNTA(" + r.AddressLocal(False, False) + ")"
End Sub

お礼

ありがとうございます。試してみます。