おしえて

【マクロ】A列最終行までを、カウンタ関数にて集計するには？=COUNTA(A2:A列最終行)

解決済

質問者：aoyama-reiko
質問日時：2024/07/31 08:05
回答数：5件

【やりたい事】
毎回、最終行が変わる、表のA2からA列最終行のデータが入っている所までの件数を数えたいです
カウンタ関数にて数えたいです。他、関数でもOK

最終行は、毎回、変わります（毎回、新しい表を作るコードの一部です）

例=COUNTA(A2:A10)　この場合は、A10行が最終行です

最終行は、定義しています Range(Cells(2, 1), Cells(LASTROW, 1))
名前は、LASTROWです。動きます。

以下のとおり、考えましたが、数字の２をかえしてしまいます

【考えたコード：常に２を返します】
Range(Cells(2, 13), Cells(LASTROW, 13)).Formula2 = "=trim(h2)"

ご存じの方、教えて下さい

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.4ベストアンサー

回答者：銀鱗
回答日時：2024/08/01 20:53

お礼を見ました。

質問に返された例では理由もなくA2セルからはなくA4セルからデータとして扱うように変更されていますが、気にしない。

自分なら Endプロパティを使って
　Range(Selection, Selection.End(xlDown)).Select　
こんな感じに入力範囲を拾って使うかな。

要は、Ctrl+↓ の操作です。（このコードは Shift+Ctrl+↓）

Endプロパティを使う前に
　Range("A4").Select
のように1つ目のデータが入力されているA4セルを指定しておいてください。
それでデータの範囲を指定できます。

- 0
- 件

通報する

この回答へのお礼

お返事ありがとうございます
突然、A2からA4へ変更となり、すいませんでした

ヒントになりました。試してみたいと思います
ありがとうございます

通報する

お礼日時：2024/08/01 21:32

No.5

回答者： googoo900
回答日時：2024/08/02 02:29

データはお礼欄に記載されたとおりとします。

さらに1～3行目までは毎回同一で、１つ目の表は4行目から始まり途中の空白行はないものとします。

関数をマクロで使うなら、
j = WorksheetFunction.Match("", Range("A4:A100000"), 0) - 1
ではいかがでしょうか。

A列
1行
2行 =COUNTA(A3:A6)⇒答え３
3行入力日　　名前
4行 1/1　　　Aさん
5行 1/2　　　Bさん
6行 1/3　　　Cさん
7行
8行
9行入力日　　名前
10行2/1　　　Dさん
11行2/2　　　Eさん
12行2/3　　　Fさん

- 0
- 件

通報する

No.3

回答者： taunamlz
回答日時：2024/07/31 10:38

=COUNTA(A:A)-COUNTA(A1)

A1が空なら、
=COUNTA(A:A)
だけでもOKです。

A1に確実に何かが入るのなら
=COUNTA(A:A)-1
でもOKです。

- 1
- 件

通報する

この回答へのお礼

大変、申し訳ございません
説明が間違っていました
表が２つあり
１つ目の表の、件数をカウンタ件数にて
数えたいです。以下の例は３件です。
表が毎回、毎回、変わるのでA6の部分を
表の最終行にして、変化する１つ目の表の
件数を数えたいです

なお、表は毎回マクロにて作成します
ご指摘ありましたら、宜しくお願いします

A列
1行
2行 =COUNTA(A3:A6)⇒答え３
3行入力日　　名前
4行 1/1　　　Aさん
5行 1/2　　　Bさん
6行 1/3　　　Cさん
7行
8行
9行入力日　　名前
10行2/1　　　Dさん
11行2/2　　　Eさん
12行2/3　　　Fさん

通報する

お礼日時：2024/08/01 20:26

No.2

回答者： fujillin
回答日時：2024/07/31 10:34

こんにちは

例示のコードを見ると、なさりたいことがさっぱりわからなくなりますが・・

よくわかりませんけれど・・・
仮に、関数の場合で
　=COUNTA(A2:A1048576)
みたいなことをなさりたいのなら、
　n = Application.CountA(Range("A2").Resize(Rows.Count - 1))
で、同じ結果が得られると思います。