【やりたい事】
毎回、最終行が変わる、表の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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
データチェックを行うエクセルマクロをおしえてほしい
Excel(エクセル)
-
Excelの数値の小数点表示について質問です
Excel(エクセル)
-
数字入力後他の文字等が表示される方法について
Excel(エクセル)
-
-
4
2列に入っているデータを1列で表示する関数について
Excel(エクセル)
-
5
エクセルで数字の組み合わせを列記したい
Excel(エクセル)
-
6
【関数】スペースがいくつ入った後の文字列を取り出したい
Excel(エクセル)
-
7
エクセルのクイックアクセスツールバーには何を登録したら良いですか?罫線を引く「格子・枠なし・外枠」と
Excel(エクセル)
-
8
【マクロ】ファイル名の変更について
Excel(エクセル)
-
9
【マクロ】顧客番号にて一致させ、情報を表へ上書きする為には
Excel(エクセル)
-
10
エクセルでCtrl+Tでテーブルの作成ができますが、これがピボットテーブルですか?
Excel(エクセル)
-
11
エクセルの関数について教えてください
Excel(エクセル)
-
12
在庫管理表に使うエクセルの関数が分かりません
Excel(エクセル)
-
13
エクセルをエクセレントに究める
Excel(エクセル)
-
14
ある表にフィルターをかけて出てきた記号の個数を知りたいのですが、簡単な関数はないでしょうか?
Excel(エクセル)
-
15
【ExcelVBA】最終行の取得で困ってます
Excel(エクセル)
-
16
Excel 1の位の数字で処理を分岐させたい
Excel(エクセル)
-
17
Excel 対象のセルに入力が無いとセルに入力できないようにしたい
Excel(エクセル)
-
18
Excelの数式の効率化について
Excel(エクセル)
-
19
【マクロ】マクロが割当てされたボタンの作成する際に、作成先のモジュールにもマクロを保存できますか?
Excel(エクセル)
-
20
【マクロ】functionプロシージャの、変数について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel マクロ 検索結果を別シ...
-
エクセルのデータがない行には...
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
数値に見えるものはすべて数値...
-
オートフィルターの複数条件検...
-
【EXCEL VBA】行の表示・非表示...
-
エクセルで空白行を削除する ...
-
【VBA】条件に一致しない行を削...
-
Excel VBAでオートフィルタで抽...
-
VB.net
-
マクロコードについて教えてく...
-
Excel VBA オートフィルタの結...
-
Access2003レポート:最終ペー...
-
可視セルを別シートにコピーし...
-
エクセルで階層図を作る方法
-
【マクロ】A列最終行までを、カ...
-
条件に合った行を削除するマク...
-
【VBA】指定月のオートフィルタ...
-
VBAで保存しないで閉じると空の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VBA】条件に一致しない行を削...
-
エクセルで空白行を削除する ...
-
マクロで最終行を取得してコピ...
-
エクセルのデータがない行には...
-
数値に見えるものはすべて数値...
-
【マクロ】A列最終行までを、カ...
-
VB.net
-
Excel VBAでオートフィルタで抽...
-
【VBA】条件に一致しない行を削...
-
エクセルで階層図を作る方法
-
列から特定の文字列検索→該当以...
-
Excel マクロ 検索結果を別シ...
-
Excel97 指定した行だけマク...
-
各個体に対する平均値の自動計...
-
空白を複数行一気に挿入するには?
-
EXCEL2007マクロ/オートフィル...
-
Access2003レポート:最終ペー...
-
EXCEL VBAでA列にある空白行よ...
-
VBAでの重複データに色付け
-
Excel VBA オートフィルタの結...
おすすめ情報