Supposing Excel? Jeg har et regneark med noen sammenslåtte celler som følgende skjermbilde vises, og nå trenger jeg å endre størrelsen på cellen rad høyden for å vise hele innholdet, nedenfor VBA-kode kan hjelpe deg å auto passe radhøyden av flere sammenslåtte celler, kan du gjøre som følger:
en. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Auto fit radhøyde av flere sammenslåtte celler Option ExplicitPublic Sub AutoFitAll () Ring AutoFitMergedCells (Range ("A1: b2")) Ring AutoFitMergedCells (Range (" c4: d6 ")) Ring AutoFitMergedCells (Range (" e1: e3 ")) End SubPublic Sub AutoFitMergedCells (oransje As Range) Dim tHeight As Integer Dim iPtr As Integer Dim oldWidth Som Enkelt Dim oldZZWidth Som Enkelt Dim newWidth Som Enkelt Dim newHeight As Enkelt Med Sheets ("Sheet4") oldWidth = 0 For iPtr = 1 Til oRange.Columns.Count oldWidth = oldWidth + .Cells (1, oRange.Column + iPtr - 1) .ColumnWidth Neste iPtr oldWidth = .Cells (1, oransje .Column) .ColumnWidth + .Cells (1, oRange.Column + 1) .ColumnWidth oRange.MergeCells = False newWidth = Len (.Cells (oRange.Row, oRange.Column) .Value) oldZZWidth = .Range ("ZZ1" ) .ColumnWidth .Range ("ZZ1") = Left (.Cells (oRange.Row, oRange.Column) .Value, newWidth) .Range ("ZZ1"). WrapText = true .Columns ("ZZ"). ColumnWidth = oldWidth .Rows ("1") EntireRow.AutoFit newHeight = .Rows ("1") RowHeight /oRange.Rows.Count .Rows (CSTR (oRange.Row) &..; ":" &Amp; CSTR (oRange.Row + oRange.Rows.Count - 1)...) RowHeight = newHeight oRange.MergeCells = True oRange.WrapText = True .Range ("ZZ1") ClearContents .Range ("ZZ1") ColumnWidth = oldZZWidth End WithEnd SubNotes:
(1.) I koden ovenfor, kan du legge til nye områder bare kopiere Call AutoFitMergedCells (Range ("A1: b2")) script mange ganger du vil, og endre de fusjonerte celleområder til ditt behov .
(2.) Og du bør endre gjeldende regneark navn Sheet4 til din brukte arknavn.
3. Deretter trykker F5 for å kjøre denne koden, og nå kan du se alle de sammenslåtte cellene har blitt auto montert på sine celleinnhold, se skjermbilde: