Excel VBA質問箱 IV

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

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


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

17613 / 76732

←次へ　｜　前へ→


	【64568】選択セルの下が空白セルの場合にのみコピー

初心者 - 10/2/24(水) 10:40 -


	引用なし

	パスワード

　　　　Ａ　　　　Ｂ　　　　　　Ｃ
　　１　１２３　　９８７　　　　９９９
　　２　　　　　　８７６
　　３　５６９
　　４
　　５
　　６　７８９
　　７　　　　　　　　　　
と仮にシートがあったとすると

　　　　　Ａ　　　　Ｂ　　　　　　Ｃ
　　１　１２３　　９８７　　　　９９９
　　２　１２３　　８７６　　　　９９９
　　３　５６９　　８７６　　　　９９９
　　４　５６９　　８７６　　　　９９９
　　５　５６９　　８７６　　　　９９９
　　６　７８９　　８７６　　　　９９９
　　７　７８９　　８７６　　　　９９９　　　

というふうに数値が入ってるセルの下側が空白の場合のみ上の数値をコピーすると
いうマクロを作りたいです。

ここまでは本やネットで調べながらできましたが、
最終行+1行まで値がコピーされてしまいます。
最終行までにする場合はどうすればよいでしょうか？

Sub セルの自動入力()
'1.　開始行・列の取得
'2.　最終行・最終列の取得
'3.　開始列から最終列まで繰り返す
'4.　　開始行+1行から最終行まで繰り返す
'5.　　　セルの値が未入力のとき　１つ上のデータをセット
'6.　　　次のセルへ

　　Dim Row1 As Long, Row2 As Long
　　Dim Clm1 As Long, Clm2 As Long
　　Dim i As Long
　　Dim j As Long
　　
　　With Selection
　　　　Row1 = .Row
　　　　Row2 = Row1 + .Rows.Count
　　　　Clm1 = .Column
　　　　Clm2 = Clm1 + .Columns.Count - 1
　　End With
　　
　　For i = Clm1 To Clm2
　　　　For j = Row1 To Row2
　　　　　　If Cells(j, i).Value = "" Then _
　　　　　　　　Cells(j, i).Value = Cells(j - 1, i).Value
　　　　Next
　　Next
End Sub

0 hits

▼

【64568】選択セルの下が空白セルの場合にのみコピー 初心者 10/2/24(水) 10:40

≪