特定のセルを結合したい

Question

前提・実現したいこと

条件分岐で指定のセル以下に空白であればその行のBからS列までを結合したい

発生している問題・エラーメッセージ

コンパイルエラー
型が一致しません

上記エラーが
ws2.Range ("B" & num1) & Range("S" & num2).Merge
の&の部分で出てしまいます

該当のソースコード

    Dim wb2 As Workbook
    Dim ws2 As Worksheet
    Dim RA As Range


    Z = .Cells(Rows.Count, 2).End(xlUp).Row
    Y = .Cells(Rows.Count, 14).End(xlUp).Row
    For num1 = 13 To Z Step 1
    For num2 = 14 To Y Step 1
    Set wb2 = Workbooks("hoge.xlsm")
    Set ws2 = wb2.Worksheets("雛形")
        If wb2.Worksheets("雛形").Range("S" & num1) = "" Then
            ws2.Range("O" & num1).Value = ""
            ws2.Range("N" & num2).Value = ""
            ws2.Range("R" & num1).Value = ""
            ws2.Range("T" & num1).Value = ""
            ws2.Range("U" & num1).Value = ""
            
            ws2.Range ("B" & num1) & Range("S" & num2).Merge
            
            
            wb2.Worksheets("雛形").RA.Interior.ColorIndex = 40
        End If

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

エクセル2007

Answer 1

Range("B" & num1 & ":" & "S" & num2).Merge

ですね。

Comments

[退会済みユーザー]

返信が遅くなって申し訳ございません。
無事解決致しました！

ありがとうございました！