Excel VBA質問箱 IV

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

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


28996 / 76732 ←次へ | 前へ→

【53025】行数取得
質問  まる  - 07/12/12(水) 13:31 -

引用なし
パスワード
   はじめまして。
エクセルを仕事でメインに使用しているのですが、
いつも作業が遅いといわれるので
マクロを勉強することにしました。
毎回数十個の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

お力をお貸しいただけると幸いです。

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 お礼

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