![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
【やりたい事】
毎回、最終行が変わる、表のA2からA列最終行のデータが入っている所までの件数を数えたいです
カウンタ関数にて数えたいです。他、関数でもOK
最終行は、毎回、変わります(毎回、新しい表を作るコードの一部です)
例=COUNTA(A2:A10) この場合は、A10行が最終行です
最終行は、定義しています Range(Cells(2, 1), Cells(LASTROW, 1))
名前は、LASTROWです。動きます。
以下のとおり、考えましたが、数字の2をかえしてしまいます
【考えたコード:常に2を返します】
Range(Cells(2, 13), Cells(LASTROW, 13)).Formula2 = "=trim(h2)"
ご存じの方、教えて下さい
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_01.png?e8efa67)
- 画像を添付する (ファイルサイズ:10MB以内、ファイル形式:JPG/GIF/PNG)
- 今の自分の気分スタンプを選ぼう!
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
=COUNTA(A:A)-COUNTA(A1)
A1が空なら、
=COUNTA(A:A)
だけでもOKです。
A1に確実に何かが入るのなら
=COUNTA(A:A)-1
でもOKです。
No.2
- 回答日時:
こんにちは
例示のコードを見ると、なさりたいことがさっぱりわからなくなりますが・・
よくわかりませんけれど・・・
仮に、関数の場合で
=COUNTA(A2:A1048576)
みたいなことをなさりたいのなら、
n = Application.CountA(Range("A2").Resize(Rows.Count - 1))
で、同じ結果が得られると思います。
No.1
- 回答日時:
ええと、こういう考え方を知ってますか?
999=1000-1
・・・
A列全体を対象
=COUNTA(A:A)
A1セルだけを対象
=COUNTA(A1)
('ω') あとは分かるよね。
CPUに余裕があるなら普通にこういう処理で充分です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。 1 2024/01/08 16:23
- Visual Basic(VBA) Excel VBA 文字列のセルを反映させたいです 2 2024/02/24 00:06
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Excel(エクセル) マクロについて 2 2023/10/20 14:29
- Visual Basic(VBA) 追記する列を増やしたい 2つのデータを検索・照合して元データにないデータを下記マクロで商品名を追記し 9 2022/10/05 10:50
- Excel(エクセル) 【マクロ】VLOOKUPにて参照元にデータが無い場合【該当なし】と表示したい 3 2024/06/08 16:45
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【マクロ】A列最終行までを、カ...
-
エクセルで空白行を削除する ...
-
【VBA】条件に一致しない行を削...
-
エクセルのデータがない行には...
-
Excel VBA オートフィルタの結...
-
マクロで最終行を取得してコピ...
-
エクセルで特定の文字が入って...
-
VB.net
-
VBAでの重複データに色付け
-
Access2003レポート:最終ペー...
-
【VBA】条件に一致しない行を削...
-
VBAで入力の結果を他のセルに反...
-
エクセルで階層図を作る方法
-
Excel マクロ 検索結果を別シ...
-
エクセルのVBAで指定した行数の...
-
各個体に対する平均値の自動計...
-
エクセルVBAでデータの蓄積方法?
-
Excel VBAでオートフィルタで抽...
-
複数セルの入れ替え方法 excel vba
-
列から特定の文字列検索→該当以...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
エクセルで空白行を削除する ...
-
VB.net
-
エクセルのデータがない行には...
-
数値に見えるものはすべて数値...
-
【VBA】条件に一致しない行を削...
-
【マクロ】A列最終行までを、カ...
-
エクセルで階層図を作る方法
-
Excel VBAでオートフィルタで抽...
-
VBAでの重複データに色付け
-
Excel マクロ 検索結果を別シ...
-
Excel VBA オートフィルタの結...
-
各個体に対する平均値の自動計...
-
Access2003レポート:最終ペー...
-
EXCEL VBAでA列にある空白行よ...
-
Excel97 指定した行だけマク...
-
Excelで、あるセルの値に応じて...
-
エクセルのVBAで指定した行数の...
-
マクロにて指定の文字間の文字...
おすすめ情報