Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
249 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【81446】表へ転記で途中から上書きを繰り返したい もち 20/8/6(木) 12:58 質問[未読]
【81447】Re:表へ転記で途中から上書きを繰り返したい γ 20/8/6(木) 16:49 発言[未読]
【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
【81447】Re:表へ転記で途中から上書きを繰り返し...
発言  γ  - 20/8/6(木) 16:49 -
引用なし
パスワード
   ▼もち さん：
>登録した情報を別シートの一覧表に転記していき、一行目から順に100個転記したら101個目からはまた一行目へ戻り上書きしていくものを作りたいです。
>現在、100個転記するものは作ることができましたが、空欄チェックを条件にすると上書きはできないので、なにかいい方法がないかと考えています。

意味が取れないのですが、
100個書いた後で
次の100個はどこに書きたいのですか？

上書きが不可なら、その右の列というのが自然の発想ですが、
どうなんですか。
相手は機械なので、
ちゃんと指示しないと忖度してはくれませんよ。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
249 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free