
【やりたい事】
毎回、最終行が変わる、表の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)"
ご存じの方、教えて下さい
No.4ベストアンサー
- 回答日時:
お礼を見ました。
質問に返された例では理由もなくA2セルからはなくA4セルからデータとして扱うように変更されていますが、気にしない。
自分なら Endプロパティを使って
Range(Selection, Selection.End(xlDown)).Select
こんな感じに入力範囲を拾って使うかな。
要は、Ctrl+↓ の操作です。(このコードは Shift+Ctrl+↓)
Endプロパティを使う前に
Range("A4").Select
のように1つ目のデータが入力されているA4セルを指定しておいてください。
それでデータの範囲を指定できます。
お返事ありがとうございます
突然、A2からA4へ変更となり、すいませんでした
ヒントになりました。試してみたいと思います
ありがとうございます
No.5
- 回答日時:
データはお礼欄に記載されたとおりとします。
さらに1~3行目までは毎回同一で、1つ目の表は4行目から始まり途中の空白行はないものとします。関数をマクロで使うなら、
j = WorksheetFunction.Match("", Range("A4:A100000"), 0) - 1
ではいかがでしょうか。
A列
1行
2行 =COUNTA(A3:A6)⇒答え3
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さん
No.3
- 回答日時:
=COUNTA(A:A)-COUNTA(A1)
A1が空なら、
=COUNTA(A:A)
だけでもOKです。
A1に確実に何かが入るのなら
=COUNTA(A:A)-1
でもOKです。
大変、申し訳ございません
説明が間違っていました
表が2つあり
1つ目の表の、件数をカウンタ件数にて
数えたいです。以下の例は3件です。
表が毎回、毎回、変わるのでA6の部分を
表の最終行にして、変化する1つ目の表の
件数を数えたいです
なお、表は毎回マクロにて作成します
ご指摘ありましたら、宜しくお願いします
A列
1行
2行 =COUNTA(A3:A6)⇒答え3
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さん
No.2
- 回答日時:
こんにちは
例示のコードを見ると、なさりたいことがさっぱりわからなくなりますが・・
よくわかりませんけれど・・・
仮に、関数の場合で
=COUNTA(A2:A1048576)
みたいなことをなさりたいのなら、
n = Application.CountA(Range("A2").Resize(Rows.Count - 1))
で、同じ結果が得られると思います。
大変、申し訳ございません
説明が間違っていました
表が2つあり
1つ目の表の、件数をカウンタ件数にて
数えたいです。以下の例は3件です。
表が毎回、毎回、変わるのでA6の部分を
表の最終行にして、変化する1つ目の表の
件数を数えたいです
なお、表は毎回マクロにて作成します
ご指摘ありましたら、宜しくお願いします
A列
1行
2行 =COUNTA(A3:A6)⇒答え3
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さん
No.1
- 回答日時:
ええと、こういう考え方を知ってますか?
999=1000-1
・・・
A列全体を対象
=COUNTA(A:A)
A1セルだけを対象
=COUNTA(A1)
('ω') あとは分かるよね。
CPUに余裕があるなら普通にこういう処理で充分です。
大変、申し訳ございません
説明が間違っていました
表が2つあり
1つ目の表の、件数をカウンタ件数にて
数えたいです。以下の例は3件です。
表が毎回、毎回、変わるのでA6の部分を
表の最終行にして、変化する1つ目の表の
件数を数えたいです
なお、表は毎回マクロにて作成します
ご指摘ありましたら、宜しくお願いします
A列
1行
2行 =COUNTA(A3:A6)⇒答え3
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さん
お探しの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も見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでオートフィルタで抽...
-
excel データを2行づつコピー
-
数値に見えるものはすべて数値...
-
マクロで最終行を取得してコピ...
-
列から特定の文字列検索→該当以...
-
エクセルで空白行を削除する ...
-
Excelで、マウスで範囲を選択し...
-
Excel マクロ 検索結果を別シ...
-
エクセルのVBAで指定した行数の...
-
【VBA】条件に一致しない行を削...
-
[EXCEL VBA]指定した文字と文字...
-
VBAでの重複データに色付け
-
【エクセルマクロ】シート内の...
-
VBAで保存しないで閉じると空の...
-
複数のマクロボタンをまとめて...
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
【Excel VBA】マクロでExcel自...
-
エクセル関数>参照ファイル名...
-
エクセル ボタンに設定したマク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
Excel VBAでオートフィルタで抽...
-
数値に見えるものはすべて数値...
-
VB.net
-
列から特定の文字列検索→該当以...
-
エクセルで空白行を削除する ...
-
Excel マクロ 検索結果を別シ...
-
エクセルのデータがない行には...
-
【マクロ】A列最終行までを、カ...
-
【VBA】条件に一致しない行を削...
-
各個体に対する平均値の自動計...
-
エクセルのVBAで指定した行数の...
-
EXCEL VBAでA列にある空白行よ...
-
VBAでの重複データに色付け
-
空白を複数行一気に挿入するには?
-
エクセルで階層図を作る方法
-
vbaエクセルマクロについて she...
-
【至急】Excel 同一人物の情報...
-
Excel97 指定した行だけマク...
おすすめ情報