Cum se potrivește automat înălțimea rândului celulelor îmbinate în Excel?
În Excel, putem ajusta rapid înălțimea rândului pentru a se potrivi conținutului celulei folosind Înălțimea rândului AutoFit , dar această funcție ignoră complet celulele îmbinate. Adică nu puteți aplica Înălțimea rândului AutoFit caracteristică pentru a redimensiona înălțimea rândului celulelor îmbinate, trebuie să reglați manual înălțimea rândului pentru celulele îmbinate unul câte unul. În acest articol, pot introduce câteva metode rapide pentru a rezolva această problemă.
Se potrivesc automat înălțimea rândului celulelor îmbinate cu codul VBA
Se potrivesc automat înălțimea rândului celulelor îmbinate cu codul VBA
Presupunând că am o foaie de lucru cu câteva celule îmbinate, după cum se arată în următoarea captură de ecran, iar acum trebuie să redimensionez înălțimea rândului de celule pentru a afișa întregul conținut, codul VBA de mai jos vă poate ajuta să vă potriviți automat înălțimea rândului mai multor celule îmbinate, vă rugăm să faceți după cum urmează:
1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.
2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.
Cod VBA: înălțimea rândului de potrivire automată a mai multor celule îmbinateOption Explicit
Public Sub AutoFitAll()
Call AutoFitMergedCells(Range("a1:b2"))
Call AutoFitMergedCells(Range("c4:d6"))
Call AutoFitMergedCells(Range("e1:e3"))
End Sub
Public Sub AutoFitMergedCells(oRange As Range)
Dim tHeight As Integer
Dim iPtr As Integer
Dim oldWidth As Single
Dim oldZZWidth As Single
Dim newWidth As Single
Dim newHeight As Single
With Sheets("Sheet4")
oldWidth = 0
For iPtr = 1 To oRange.Columns.Count
oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
Next iPtr
oldWidth = .Cells(1, oRange.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) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
oRange.MergeCells = True
oRange.WrapText = True
.Range("ZZ1").ClearContents
.Range("ZZ1").ColumnWidth = oldZZWidth
End With
End Sub
note:
(1.) În codul de mai sus, puteți adăuga noi intervale, doar copiați Apelați AutoFitMergedCells (Range („a1: b2”)) script de câte ori doriți și schimbați intervalele de celule îmbinate la cele necesare.
(2.) Și ar trebui să schimbați numele curent al foii de lucru Sheet4 la numele foii folosite.
3. Apoi apăsați F5 tasta pentru a rula acest cod și acum puteți vedea că toate celulele îmbinate au fost ajustate automat la conținutul celulei lor, vedeți captura de ecran:
Articol asociat:
Cum se ajustează automat lățimea coloanei în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
