VBA 最終行のひとつしたの行に黒丸を入れたい こんにちは VBA 素人です マクロ有効ブック名 あ

VBA 最終行のひとつしたの行に黒丸を入れたい

こんにちは VBA 素人です

マクロ有効ブック名　あいう
ワークシート名　　　かきく
セル範囲　　　　　　A1:X50000

実は今月は5万行までデータがほぼみっちり入っていましたが先月は33000行でした

このように下方向に毎月、
可変的なデータ範囲を前提にした質問です

データ範囲のすぐ一つ下の行に
黒丸を１つ、別 a から別 x まで入力を自動で行いたいです

No.2 ベストアンサー 回答者： zongai 回答日時： 2021/10/29 01:49

Sub kuromaru()

Dim x As Long
x = Cells(Rows.Count, 1).End(xlUp).Row
Range(Range("A" & x + 1), Range("X" & x + 1)) = "●"
End Sub

こんなのでいいかな？

この回答へのお礼

ありがとうございます。

お礼日時：2021/10/30 17:01

No.1 回答者： かわごえ 回答日時： 2021/10/29 01:47

最終のひとつ下にバリュー入れればよろしいのでは

ファイル形式がなんかわからんけどCSVだったらもっと簡単だと思います。

この回答へのお礼

ありがとうございますやってみます

お礼日時：2021/10/29 01:54