Excel VBA 質問スレッド No.755 (未解決)

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

投稿者 : ともこ     投稿日時 : 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

[返信 1] Re : 繰り返しで空白セルをなくしたい。
投稿者 : セキュリティ     投稿日時 : 2022/05/25(Wed) 23:09:47
>If ActiveCell = "" Then

>Range("b1").Activate

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

[返信 2] Re : 繰り返しで空白セルをなくしたい。
投稿者 : 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

[返信 3] Re : 繰り返しで空白セルをなくしたい。
投稿者 : ともこ     投稿日時 : 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


当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2022-07-07 13:00:44 )

Page
Top