The Excel Wrap Text Option is Not Working for Merged Cells - 5 Solutions

The dataset showcases Quotes and the corresponding Authors. Each quote covers 3 cells and the text isn’t completely displayed. Wrap the text after merging those cells.

Dataset Excel Wrap Text Not Working Merged Cell

Issue Identification

Select a quote (e.g. B5:D5).
Click Merge & Center.
Select Wrap Text in Alignment.

Issue Identification

Alternatively, you can use the Format Cells option (press CTRL + 1 to open the Format Cells dialog box). Go Alignment and check Wrap Text and Merge Cells.

This is the output.

Note: you cannot merge all the cells containing your dataset.You have to select the adjacent cells to merge.

If you repeat the process in the cells below, you’ll get the following output.

Autofit the row height: click AutoFit Row Height in Format.

You’ll get the following output (the Wrap Text option is not working over the merged cells: Row 5, 8, and 9.

Solution 1 – Adjust the Row Height and Column Width Manually

Select any cell and go to the row number. Drag down your cursor.

You can also enter the row height by selecting Row Height in Format.

Enter a row height: 32.

Both the Wrap Text and Merge Cells options are working well.

Adjust the column width if you have merged cells in columns.

Solution 2 – Unmerge Cells and Then Wrap theText

Select Unmerge Cells in Merge & Center.

This is the output.

Select the cell range and click Wrap Text.

Choose AutoFit Row Height.

This is the output.

Solution 3 – Change the Alignment Before Merging Cells

Select the unmerged cells, and choose Format Cells.

Go to Alignment and in Horizontal, choose Center Across Selection.
Check Wrap text.

Autofit cells.
This is the output.

Solution 4 – Insert a Line Break

Place the cursor before the hyphen and press ALT + ENTER to insert a line break.

This is the output.

Autofit cells.

Solution 5 – Using a VBA Code

Click Developer > Visual Basic.

Go to Insert > Module.

Enter the following code.

Sub MergeWrap_VBA()
Dim rn As Long, Mrow As Long, ERow As Long, MCol As Long
Dim cn As Long, n As Long, rh As Single, mr As Long
Application.DisplayAlerts = False
Sheets("Using VBA").Copy After:=Sheets(Sheets.Count)
On Error Resume Next
ActiveSheet.Name = "Outupt Using VBA"
Cells().WrapText = True
Rows.AutoFit
MCol = Cells(1, 1).End(xlToRight).Column
Mrow = Cells(Rows.Count, 1).End(xlUp).Row
For rn = Mrow To 2 Step -1
    If Cells(rn, 1).Value = "" Then
        If ERow = 0 Then ERow = rn
       ElseIf ERow > 0 Then
        rh = Rows(r).RowHeight
        n = ERow - rn + 1
        If n > 0 Then Rows(rn & ":" & ERow).RowHeight = h / n
        For cn = 1 To MCol
               For mr = ERow To rn Step -1
                If Cells(mr, cn).Value = "" Then
                       Range(Cells(mr, cn), Cells(mr - 1, cn)).MergeCells = True
                   End If
            Next
        Next
        ERow = 0
    End If
Next
Application.DisplayAlerts = True
With Worksheets("Outupt Using VBA").Columns("B")
 .ColumnWidth = .ColumnWidth * 2
End With
End Sub

The variables are declared. The code generates a copy of the input into a new sheet. The WrapText is assigned to True to wrap the texts. The Range.End property is used to return the maximum column and row number. The For loop returns the output. The Column.Width property increases the width of column B.

Things to Change While Using the Code: