【VBA】昇順に並べ替えようとすると「すべての結合サイズを同じサイズにする必要があります」とエラーがでます。

Question

数字を昇順に並べ替えようとすると「すべての結合サイズを同じサイズにする必要があります」とエラーがでます。

Sub sort()
    '番号を昇順に並び替える
    Dim lRow As Long
    Dim lCol As Long
    Dim myRng As Range

         
         
        With Worksheets("シート")
            
            lRow = Cells(Rows.count, 1).End(xlUp).Row
            lCol = Cells(1, Columns.count).End(xlToLeft).Column
            Set myRng = .Range(Cells(1, 1), Cells(lRow, lCol))
            
            myRng.Sort _
                Key1:=.Range("L1"), _
                Order1:=xlAscending, _
                Header:=xlYes, _
                Orientation:=xlSortRows
                
                
        End With
End Sub

そこで、行の高さを統一するために以下のコードを前に追加してみたのですが

Sub 行の高さ()

Dim i

For i = 2 To Worksheets("シート").Range("L10000").End(xlUp).Row

Worksheets("シート").Range("L" & i).RowHeight = 20

Next i



End Sub

エラーがでてしまいます。
原因を教えていただきたいです。
よろしくお願いいたします。

Answer 1

セルの高さは関係ないです。
セル結合を使っているからなので、セルの結合を解除しましょう。

Comments

[pomiw0000]

回答ありがとうございます。無事解決いたしました。

Answer 2

結合されているセルがあるとおもうので、
結合を解除して並び替える必要があるのではないでしょうか。

「結合　解除　VBA」などで検索したら、良い感じのが見つかると思います。
合ってなかったらごめんなさい。

Comments

[pomiw0000]

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