エクセルＶＢＡで『Ａ列』に新規で数値を入力し『Ｂ列』から右方向の空白セルにその値を貼り付ける方法

エクセルＶＢＡの初心者です。例えば『Ａ列』の１行目のセルに１０、２行目のセルに２０、３行目のセルに３０という様に新規で数値を入力した後にマクロを実行するとその値をコピーしその行の右方向の列で最初の空白セルにその値を貼り付けたいのですが、どのようにプログラムを組めば良いのか分かりません。詳しい方、お手数をお掛けしますが教えて下さい。

Ａ列　Ｂ列　Ｃ列　Ｄ列　Ｅ列　Ｆ列
１０　１５　３０　★
２０　２５　５５　６０　８０　★
３０　３０　４０　２０　★
４０　１０　２０　５０　４０　★
５０　２０　３０　★

★印の空白セルにその行のＡ列の数値が貼り付けられる様にお願いします。
尚、行数は５０００行程あります。

質問者からの補足コメント

• 申し訳ありません。説明が不十分でした。
  簡単に説明しすぎていました。
  
  ①新規登録の数値は『Ａ列』ではなく、『Ｃ５』～『Ｃ２０００』に入力しています。
  ②『Ｃ５』～『Ｃ２０００』の内、数値の入力が無いセルもあります。
  ③『Ｃ５』～『Ｃ２０００』の数値を『その行のＢ列』から右方向の最初の空白セルにその値を貼り付けるではなく、『その行のＩ列～Ｓ列』間の最初の空白セルにその値を貼り付けるです。
  ④『その行のＩ列～Ｓ列』のセルに空白セルが無い時は貼り付けない。
  
  以上、お手数をお掛けして誠に申し訳ありませんが宜しくお願いします。

  No.1の回答に寄せられた補足コメントです。 補足日時：2022/11/05 11:13

No.4 ベストアンサー 回答者： fujillin 回答日時： 2022/11/05 12:13

No2です。

効率は悪いけれど、単純な記述でよければ・・

Sub Sample2()
Dim rw As Long, c As Range
For rw = 5 To 2000
For Each c In Cells(rw, 9).Resize(, 11)
　If c.Value = "" Then c.Value = Cells(rw, 3).Value: Exit For
Next c
Next rw
End Sub

処理効率を上げる方法は、ご自身で考えてみてください。

この回答へのお礼

fujillin様
この度は色々と親切に教えて頂き誠にありがとうございました。
教えて頂いた方法でやりたい事が出来ました。
助かりました。お手数をお掛けしました。

お礼日時：2022/11/05 15:39

No.3 回答者： tatsumaru77 回答日時： 2022/11/05 11:56

>行数は５０００行程あります。

>①新規登録の数値は『Ａ列』ではなく、『Ｃ５』～『Ｃ２０００』に入力しています。

行数が５０００行ほどあるなら、
『Ｃ５』～『Ｃ２０００』ではなくｍ『Ｃ５』～『Ｃ５０００』
になりませんか。
どちらが正しいのでしょうか。

No.2 回答者： fujillin 回答日時： 2022/11/05 11:36

No1です。

ご質問文の内容と補足の内容は全く異なるものです。

とは言え、大雑把な考え方はNo1に示したような方法でできると思いますので、補足にご提示の①～④の条件をそのまま記述すればできると思います。

論理的に考えることはできているようですので、後はそれをコード化するだけです。
「マクロの記録」やMSDNのドキュメントを利用して、頑張ってみてください。
https://learn.microsoft.com/ja-jp/office/vba/api …

No.1 回答者： fujillin 回答日時： 2022/11/05 10:00

こんにちは

一例です。

Sub Sample()
Dim c As Range

For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
　If c.Value <> "" Then
　　If c.Offset(, 1).Value = "" Then
　　　c.Offset(, 1).Value = c.Value
　　Else
　　　c.End(xlToRight).Offset(, 1).Value = c.Value
　　End If
　End If
Next c
End Sub