ExcelVBA-Forループで行を選択

0
2022.01.13

列Iを通過し、値が特定のポイントを超えたときに検索するforループがあります。次に、行を挿入します。この行を編集する必要があります。その一部をマージしてテキストを挿入する必要があります。今のところ、私のコードはE-Iの列全体をマージするだけです。その行をマージするにはどうすればよいですか?

これは私が今持っているものです:

 For Each cel In Range("I:I")
    If cel.Value >= "15AQ08" And Pick = "Truck" And cel.Row <> 1 Then
        cel.EntireRow.Insert
        Range("E:I").Merge
        Exit For
    End If
Next
回答
1
2022.01.13

それ以外の

Range("E:I").Merge

新しく挿入された行にマージするには、

 cel.Offset(-1, -4).Resize(, 5).Merge

または、一致を含む行をマージするには、

 cel.Offset(0, -4).Resize(, 5).Merge