Att radbytesfunktionen inte fungerar på sammanfogade celler är en irriterande bugg i Excel. Problemet kan dock lösas med ett makro. Öppna Visual Basic Editor – dubbelklicka på det blad som där du vill ha funktionen för automatisk radhöjdsjustering och klistra in nedanstående VBA-kod. Med denna kod anpassas radhöjden automatiskt på sammanfogade celler.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MergeWidth As Single
Dim cM As Range
Dim AutoFitRng As Range
Dim CWidth As Double
Dim NewRowHt As Double
Dim str01 As String

str01 = "OrderNote"
If Target.MergeCells = True Then
Application.ScreenUpdating = False
On Error Resume Next
Set AutoFitRng = Range(Target.MergeArea.Address)
With AutoFitRng
.MergeCells = False
CWidth = .Cells(1).ColumnWidth
MergeWidth = 0
For Each cM In AutoFitRng
cM.WrapText = True
MergeWidth = cM.ColumnWidth + MergeWidth
Next 'small adjustment to temporary width
MergeWidth = MergeWidth + AutoFitRng.Cells.Count * 0.66
.Cells(1).ColumnWidth = MergeWidth
.EntireRow.AutoFit
NewRowHt = .RowHeight
.Cells(1).ColumnWidth = CWidth
.MergeCells = True
.RowHeight = NewRowHt
End With
Application.ScreenUpdating = True
End If
End Sub

 Hej,

hur kör man makrot ovan?

Är själv ingen van makroskrivare. Brukar spela in och ibland editera lite. Jag har dock alltid ett snabbkommando för att köra det.