Excel VBA質問箱 IV

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

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


17611 / 76732 ←次へ | 前へ→

【64570】Re:選択セルの下が空白セルの場合にのみコピー
発言  Hirofumi  - 10/2/24(水) 11:05 -

引用なし
パスワード
   Sub セルの自動入力()

  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
    Row2 = Row1 + .Rows.Count - 1
    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

Row2の時に1マイナスすれば善いのでは?

3 hits

【64568】選択セルの下が空白セルの場合にのみコピー 初心者 10/2/24(水) 10:40 質問
【64570】Re:選択セルの下が空白セルの場合にのみコ... Hirofumi 10/2/24(水) 11:05 発言
【64571】Re:選択セルの下が空白セルの場合にのみコ... 初心者 10/2/24(水) 11:20 お礼

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