Bagaimana cara menyesuaikan tinggi baris sel gabungan di Excel secara otomatis?
Di Excel, kita dapat dengan cepat menyesuaikan tinggi baris agar sesuai dengan konten sel dengan menggunakan AutoFit Row Height fitur, tetapi fungsi ini akan sepenuhnya mengabaikan sel yang digabungkan. Artinya, Anda tidak dapat menerapkan AutoFit Row Height Fitur untuk mengubah ukuran tinggi baris sel gabungan, Anda perlu menyesuaikan tinggi baris secara manual untuk sel yang digabungkan satu per satu. Pada artikel ini, saya dapat memperkenalkan beberapa metode cepat untuk mengatasi masalah ini.
Tinggi baris otomatis pas dari sel yang digabungkan dengan kode VBA
Tinggi baris otomatis pas dari sel yang digabungkan dengan kode VBA
Misalkan saya memiliki lembar kerja dengan beberapa sel gabungan seperti gambar berikut yang ditampilkan, dan sekarang saya perlu mengubah ukuran tinggi baris sel untuk menampilkan seluruh konten, kode VBA di bawah ini dapat membantu Anda menyesuaikan tinggi baris secara otomatis dari beberapa sel yang digabungkan, harap lakukan sebagai berikut:
1. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic for Applications.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.
Kode VBA: Otomatis menyesuaikan tinggi baris dari beberapa sel yang digabungkanOption 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
Catatan:
(1.) Dalam kode di atas, Anda dapat menambahkan rentang baru cukup salin Panggil AutoFitMergedCells (Range ("a1: b2")) skrip sebanyak yang Anda inginkan, dan ubah rentang sel yang digabungkan sesuai kebutuhan Anda.
(2.) Dan Anda harus mengubah nama lembar kerja saat ini Sheet4 ke nama lembar bekas Anda.
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan sekarang, Anda dapat melihat semua sel yang digabungkan telah dipasang secara otomatis ke konten selnya, lihat tangkapan layar:
Artikel terkait:
Bagaimana cara menyesuaikan lebar kolom secara otomatis di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!