Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

51983 / 76732

←次へ　｜　前へ→


	【29597】Re:最終行での集計について

SS - 05/10/9(日) 1:12 -


	引用なし

	パスワード

自分なりに組んでいますが数値が入力されているセルのcount方法が分かりません。
アドバイスをお願いします。

Sub goukei()

Dim R as integer
Dim C as integer
Dim c1 as integer

With ActiveSheet.UsedRange
R = .Row + .Rows.Count
C = Range("D2").End(xlToRight).Count

For c1 = 4 To c

Cells(R, c1) = Range(Cells(3, c1), Cells(R, c1)).Count
Next c1
End With

End Sub

0 hits

▼

【29514】最終行での集計について SS 05/10/6(木) 20:17