Kien_nho.vb

Kien_nho.vb

Sub ConvertMergedCell()
    If Selection.MergeCells Then
        Dim SelAddr As String
        SelAddr = Selection.Address
        Selection.Copy

 

        Range("GH1").PasteSpecial xlPasteAll
        Range(SelAddr).Select
        Selection.UnMerge

 

        Dim strTmp As String
        strTmp = ""
        Dim i As Integer
        i = 0
        For Each cell In Selection
            If i = 0 Then
                strTmp = cell.Value
                i = i + 1
            Else
                cell.Value = strTmp
            End If

 

        Next cell

 

        Range("GH1").MergeArea.Copy
        Range(SelAddr).PasteSpecial xlPasteFormats
        Columns("GH").EntireColumn.Delete

 

    Else
        MsgBox "Selection is not a merged cell"
    End If
        
End Sub

 

Sub FindAllMergedCell()
    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange.Cells
        If cell.MergeCells = True Then
            cell.Select
        End If
    Next cell
End Sub