VBA 結合されているセルのオートフィル

質問

先程同じような質問をしてしまい
すいませんが

結合されているセルのオートフィルのやり方が今一つわかりません
でしたので質問させていただきます。

やりたいこと

A列・・・A1セル『1』A2セル『2』・・・A10セル『10』と
数字が入っています。

BとC列・・・結合されており
B1C1セル『1000』B2C2セル『1100』と数字が入っています。

F1セル・・・1～10までの数字が入っています。

処理内容
F1セルに『5』と数字が入っている場合
B5C5セルを選択後、数字が入っているB2C2セルまで移動します。
そのあと、B5C5セルではなく
B4C4セルまで『1100』とオートフィルしたいのですが
可能でしょうか。

それともこのような処理をしたい場合オートフィルをするのは
間違っているのでしょうか？

すいませんがｺｰﾄﾞ記載していますので
回答宜しくお願い致します。

コード

Sub Macro1()

Dim a As Variant
Dim i As Variant
Dim RSta As Long

Set a = Range("F1") '検索値'例えば5と入力したら

For i = 1 To 10

If a.Value = Cells(i, 1).Value Then
'F1セルに５と入力されA５セルの数字が５なら
If Cells(i, 2) = "" Then 'B5セルの値が何もなければ

RSta = Cells(i, 2).End(xlUp).Row
'ここでBとCセルの結合されているセルの数字が入っている
一番上のセルを選択し
Range("B" & RSta, "C" & RSta).AutoFill Destination:=Range("B" & RSta, "C"), Type:=xlFillCopy
'このコードが間違っているらしくうまくできません。ここでBとCの結合されているセル２行目から4行目までをオートフィル（数字のコピーのみを実施したい）

End If
End If
Next i

End Sub

回答No.1

SI299792 · ベストアンサー

https://okwave.jp/qa/q10048172.html
の続きですね。前質問を閉じないと規約違反になります。
https://project.okwave.jp/utility/prohibition/
「締め切らずに同一、または関連する質問を投稿」

プログラムを見ましたが、何で
For i = 1 To 10
があるのか、何をしたいのか判りません。

F1: 5 の時４行目までコピー、但しB4が埋まっていたら何もしないのであれば。
オートフィルを使う、使わない。両方用意しました。
Option Explicit
'
Sub Macro1()
Dim RSta As Long
'
If Cells([F1] - 1, "B") = "" Then
RSta = Cells([F1], "B").End(xlUp).Row
Range("B" & RSta, "C" & RSta).AutoFill _
Range("B" & RSta, "C" & [F1] - 1), xlFillCopy
End If
End Sub
'
Sub Macro2()
Dim RSta As Long
'
If Cells([F1] - 1, "B") = "" Then
RSta = Cells([F1], "B").End(xlUp).Row
Range("B" & RSta, "C" & [F1] - 1).Merge True
Range("B" & RSta, "B" & [F1] - 1) = Cells(RSta, "B")
End If
End Sub

お礼

すいません質問閉じ忘れていました。

実現できました。
何回も答えて頂きありがとうございます。

回答No.2

imogasi

珍奇な内容の（たまたま質問者の、この場面でのみ有効な）課題で、時間が掛かったが、余り力が入らない。
エクセルで、セル結合の利用は、最終レポートの段階（別コピーしたシートで行う）などに限り（見てくれをよくする）行い、データ処理段階では、できるだけ避けるべきようだ。
VBAでの処理にも。データベース的利用では知毎的。ピボットテーブルなどでも。
ーー
データ例　
下記は質問の文章から作ったツモリ。理解に時間が掛かったーー真意を誤解しているかも。
（特に質問文の中の「・・・」の使い方が引っかかった。）
A列は連番か？本件と意味があるのか？
B,C列は同行は結合されている、とする。
A列　B列・C列　　　　Ｆ列
1 1000 5　＜ーーＦ１セルは５
2 1100
3
4
5
ーー
結果
A列　B列＝C列と結合されている。空白に見える。　C列=下記
1 1000
2 1100
3 1101
4 1102
5 1103
標準モジュールに
コメント部分も見ておいてください。
Sub test01()
n = Cells(1, "F") 'F1セルの値を取得、数字とする　本件では５
Range("B" & n & ":C" & n).Select 'B5：C5を選択
Selection.End(xlUp).Select 'ENDキー＋上↑を操作　B2:C2を選択状態
MsgBox "AAA"
Selection.AutoFill Destination:=Range("B2:C" & n), Type:=xlFillSeries
'B2:C2をB5:C5までオートフィル
End Sub
ーー
本質問での、F1セルの５に当たるデータは、どうするの（人間判断の手入力か？）。
VBAならもっと別の分野の勉強が、沢山あるだろうに。