How to set AutoFit property in Excel for merged cells

  • Thread starter Roman Malakhovetskyy
  • Start date
R

Roman Malakhovetskyy

Using JScript.
I have merged some amount of cells and type some text in.
How can I to set autofit for text in merged cells
 
T

Tom Ogilvy

Merged cells done support Autofit.

You might pursue some code like this posted by Jim Rech:

Jim Rech

Sub AutoFitMergedCellRowHeight()
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
If ActiveCell.MergeCells Then
With ActiveCell.MergeArea
If .Rows.Count = 1 And .WrapText = True Then
Application.ScreenUpdating = False
CurrentRowHeight = .RowHeight
ActiveCellWidth = ActiveCell.ColumnWidth
For Each CurrCell In Selection
MergedCellRgWidth = CurrCell.ColumnWidth + _
MergedCellRgWidth
Next
.MergeCells = False
.Cells(1).ColumnWidth = MergedCellRgWidth
.EntireRow.AutoFit
PossNewRowHeight = .RowHeight
.Cells(1).ColumnWidth = ActiveCellWidth
.MergeCells = True
.RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _
CurrentRowHeight, PossNewRowHeight)
End If
End With
End If
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBA set thick borders around non empty cells in range 0
AutoFit - Merged Cells 3
Windows 7 Autofit row heights of merged cells in protected worksheet 0
Solution To Auto Height For Merged Cells 0
AutoFit Macro to Reduce row height? 0
Need macro to autofit height for merged cells 1
AutoFitMergedCellRowHeight Limitation 2
Copy/Transpose into a matrix of merged cells. Use Offset formula orVBA ? 2

Top