Conas airde as a chéile de chealla cumaiscthe a fheistiú in Excel?
In Excel, is féidir linn airde an tsraith a choigeartú go tapa chun an t-ábhar cille a fheistiú trí úsáid a bhaint as an Rae AutoFit Airde gné, ach tabharfaidh an fheidhm seo neamhaird iomlán ar chealla cumaiscthe. Is é sin le rá, ní féidir leat an Rae AutoFit Airde gné chun airde as a chéile na gcealla cumaiscthe a athrú, ní mór duit airde an ró do chealla cumaiscthe a choigeartú de láimh ceann ar cheann. San Airteagal seo, is féidir liom roinnt modhanna gasta a thabhairt isteach chun an fhadhb seo a réiteach.
Airde ró-oiriúnach uathoibríoch na gcealla cumaiscthe le cód VBA
Airde ró-oiriúnach uathoibríoch na gcealla cumaiscthe le cód VBA
Má cheaptar go bhfuil bileog oibre agam le roinnt cealla cumaisc mar a thaispeántar an pictiúr seo a leanas, agus anois go gcaithfidh mé airde an rón cille a athrú chun an t-ábhar iomlán a thaispeáint, b’fhéidir go gcuideoidh an cód VBA thíos leat airde as a chéile ilchealla cumaiscthe a fheistiú go huathoibríoch, déan le do thoil mar a leanas:
1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Fuinneog Microsoft Visual Basic for Applications.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: Airde airde oiriúnach uathoibríoch na gcealla iolraithe cumaisctheOption 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
Nótaí:
(1.) Sa chód thuas, is féidir leat raonta nua a chur leis ach cóipeáil Glaoigh ar AutoFitMergedCells (Raon ("a1: b2")) script a mhéad uair is mian leat, agus athraigh na raonta cille cumaiscthe go dtí na cinn a theastaíonn uait.
(2.) Agus ba cheart duit ainm reatha na bileoige oibre a athrú Sheet4 le d’ainm bileog a úsáidtear.
3. Ansin brúigh F5 eochair chun an cód seo a rith, agus anois, is féidir leat a fheiceáil go bhfuil na cealla cumaisc go léir feistithe go huathoibríoch ar a n-ábhar cille, féach an scáileán:
Airteagal gaolmhar:
Conas leithead colún a fheistiú go huathoibríoch in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
