Excel VBA質問箱 IV

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

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


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

1021 / 76807

←次へ　｜　前へ→


	【81446】表へ転記で途中から上書きを繰り返したい

もち - 20/8/6(木) 12:58 -


	引用なし

	パスワード

登録した情報を別シートの一覧表に転記していき、一行目から順に100個転記したら101個目からはまた一行目へ戻り上書きしていくものを作りたいです。

現在、100個転記するものは作ることができましたが、空欄チェックを条件にすると上書きはできないので、なにかいい方法がないかと考えています。
初学者なため思いつかず…　知識を与えていただきたいです…！

※表が2行目から始まるのでiの初期値は2にしています。

Dim i
For i = 2 To 101
　 If Sheets("表").Range("A" & i).Value = "" Then
　　　Sheets("表").Range("A" & i).Value = Sheets("入力").Range("C2").Value
　　　Sheets("表").Range("B" & i).Value = Sheets("入力").Range("C3").Value
　　　Sheets("表").Range("C" & i).Value =　Sheets("入力").Range("C4").Value
　　　Exit For
　End If
Next i

0 hits

▼

【81446】表へ転記で途中から上書きを繰り返したい もち 20/8/6(木) 12:58