EXCEL2000 VBA セル結合を解除する。

EXCEL2000 VBA  セル結合を解除する。

 

再生できない場合、ダウンロードは🎥こちら

複数のセル結合を一度に解除できる。

Sub 結合セル解除()

 

    Selection.MergeCells = False

 

End Sub

再生できない場合、ダウンロードは🎥こちら

 

 

選択範囲のセル結合と文字結合

 

Sub 選択範囲のセル結合()

' セルの結合時に文字も結合してセンタリングする

'警告出さない

    Dim sRange, new_range As Range

    Dim new_str As String

    Dim sRow, sColumn As Long

 

    '結合後のセル行列番号

        sRow = Selection.Row

        sColumn = Selection.Column

    '選択範囲の文字列結合

        For Each sRange In Selection

            new_str = new_str & sRange & " "  '空白は必要なければ削除

        Next

    '警告を非表示

        Application.DisplayAlerts = False

    'セルの結合

        Selection.Merge

    '結合セルに結合文字を設定とセンタリング

        With Cells(sRow, sColumn)

            .HorizontalAlignment = xlCenter

            .VerticalAlignment = xlCenter

        End With

        Cells(sRow, sColumn) = new_str

    '警告の表示を有効

        Application.DisplayAlerts = True

End Sub

タグ：Excel2000 VBA