Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


28995 / 76732 ←次へ | 前へ→

【53026】Re:行数取得
発言  じゅんじゅん  - 07/12/12(水) 14:40 -

引用なし
パスワード
   ▼まる さん:
>はじめまして。
>エクセルを仕事でメインに使用しているのですが、
>いつも作業が遅いといわれるので
>マクロを勉強することにしました。
>毎回数十個のxlsファイルを手で数えているので
>手始めに行数を数えるマクロを作ろうと思っています。
>まずは自動記録からはじめてみました。
>
>1000件以上あるDBの件数を取得するマクロです。
>自動記録でやってみると↓こんな感じでした。
>毎回件数が変わるのに、セルを指定することは出来ません。
>Selection.Rows.Countを使って件数を取得するには
>どうしたらよいのでしょうか?
>アクティブシートのA列を数えるマクロにしようと思っています。
>
>Sub 行数取得()
>
>  Range("A1").Select
>  Selection.End(xlDown).Select
>  Range("A1176").Select
>  ActiveCell.FormulaR1C1 = "=COUNTA(R[-1174]C:R[-1]C)"
>  Range("A1176").Select
>
>End Sub
>
>お力をお貸しいただけると幸いです。

Sub try()
 Dim i As Long
 i = Range("A" & Rows.Count).End(xlUp).Row
 Range("A" & i + 1).Formula = "=COUNTA(A2:" & Range("A" & i).Address(0, 0) & ")"
End Sub
こんな感じのではどうでしょう?

0 hits

【53025】行数取得 まる 07/12/12(水) 13:31 質問
【53026】Re:行数取得 じゅんじゅん 07/12/12(水) 14:40 発言
【53027】Re:行数取得 まる 07/12/12(水) 14:58 発言
【53028】Re:行数取得 じゅんじゅん 07/12/12(水) 16:07 発言
【53032】Re:行数取得 まる 07/12/12(水) 16:54 発言
【53038】Re:行数取得 じゅんじゅん 07/12/12(水) 18:19 発言
【53055】Re:行数取得 まる 07/12/13(木) 0:14 お礼

28995 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free