Sut i ffitio uchder rhes celloedd cyfun yn Excel?
Yn Excel, gallwn addasu uchder y rhes yn gyflym i ffitio cynnwys y gell trwy ddefnyddio'r Uchder Row AutoFit nodwedd, ond bydd y swyddogaeth hon yn anwybyddu celloedd unedig yn llwyr. Hynny yw, ni allwch gymhwyso'r Uchder Row AutoFit nodwedd i newid maint rhes celloedd cyfun, mae angen i chi addasu uchder y rhes â llaw ar gyfer celloedd unedig fesul un. Yn yr erthygl hon, gallaf gyflwyno rhai dulliau cyflym i ddatrys y broblem hon.
Uchder rhes ffit awto celloedd unedig â chod VBA
Uchder rhes ffit awto celloedd unedig â chod VBA
Gan dybio bod gen i daflen waith gyda rhai celloedd unedig fel y dangosir y llun isod, a nawr mae angen i mi newid maint uchder y rhes gell i arddangos y cynnwys cyfan, efallai y bydd y cod VBA isod yn eich helpu i ffitio uchder rhes celloedd unedig lluosog, gwnewch hynny fel a ganlyn:
1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Uchder rhes ffit awto celloedd unedig lluosogOption 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
Nodiadau:
(1.) Yn y cod uchod, gallwch ychwanegu copïau o ystodau newydd Ffoniwch AutoFitMergedCells (Ystod ("a1: b2")) sgriptiwch lawer gwaith fel y dymunwch, a newid yr ystodau celloedd unedig i'r rhai sydd eu hangen arnoch chi.
(2.) A dylech chi newid enw'r daflen waith gyfredol Sheet4 i'ch enw dalen a ddefnyddir.
3. Yna pwyswch F5 yn allweddol i redeg y cod hwn, ac yn awr, gallwch weld bod yr holl gelloedd unedig wedi'u gosod yn awtomatig ar gynnwys eu celloedd, gweler y screenshot:
Erthygl gysylltiedig:
Sut i ffitio lled colofn yn Excel yn awtomatig?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!