繰り返しで空白セルをなくしたい。

投稿者 : ともこ     投稿日時 : 2022/05/25(Wed) 17:34:44     OS : 未指定     EXCEL : 未指定

---

指定行までセル内容をコピ－したら最初の行に戻ってコピ－したいのですが、

繰り返しの空白をカウントしてしまいます。

途切れることなく繰り返すにはどのようにコ－ドを書き直したら良いでしょうか。

どうぞ宜しくお願いします。

Sub 指定行まできたら最初に戻る()

 

Range("b1").Activate

Dim rep As Integer

For rep = 1 To 20

If ActiveCell = "" Then

Range("b1").Activate

Else

Cells(rep, "A").Value = ActiveCell.Value

ActiveCell.Offset(1, 0).Activate

End If

Next rep

 

End Sub

投稿者 : セキュリティ     投稿日時 : 2022/05/25(Wed) 23:09:47

---

>If ActiveCell = "" Then

>Range("b1").Activate

ここでB1に戻ってますよね。
それでいいんですか？

投稿者 : hatena     投稿日時 : 2022/05/25(Wed) 23:49:33

---

ご希望のことは下記のようなことでしょうか。

Sub 指定行まできたら最初に戻る()

    Range("b1").Activate

    Dim rep As Integer

    For rep = 1 To 20

        If ActiveCell = "" Then
            Range("b1").Activate
        End If
        
        Cells(rep, "A").Value = ActiveCell.Value
        ActiveCell.Offset(1, 0).Activate

    Next rep

End Sub

投稿者 : ともこ     投稿日時 : 2022/05/26(Thu) 06:49:43

---

そうです！これです！！
ありがとうございます！すごいですね！！
endifの違い・・・。
マクロ面白いですがまだまだ基本をつかめていません
これからもどうぞよろしくお願いします！！！



■[返信 2] hatenaさん（2022-05-25 23:49:33）の記事
＞ ご希望のことは下記のようなことでしょうか。
＞
＞
＞ Sub 指定行まできたら最初に戻る()
＞
＞ Range("b1").Activate
＞
＞ Dim rep As Integer
＞
＞ For rep = 1 To 20
＞
＞ If ActiveCell = "" Then
＞ Range("b1").Activate
＞ End If
＞
＞ Cells(rep, "A").Value = ActiveCell.Value
＞ ActiveCell.Offset(1, 0).Activate
＞
＞ Next rep
＞
＞ End Sub
＞
＞