|
▼まる さん:
>はじめまして。
>エクセルを仕事でメインに使用しているのですが、
>いつも作業が遅いといわれるので
>マクロを勉強することにしました。
>毎回数十個の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
こんな感じのではどうでしょう?
|
|