Excel'de birleştirilmiş hücrelerin satır yüksekliğini otomatik olarak nasıl sığdırabilirim?
Excel'de, satır yüksekliğini hücre içeriğine uyacak şekilde hızlı bir şekilde ayarlayabiliriz. Genişlik Satır Yüksekliği özelliği, ancak bu işlev birleştirilmiş hücreleri tamamen yok sayar. Yani, uygulayamazsınız Genişlik Satır Yüksekliği Birleştirilmiş hücrelerin satır yüksekliğini yeniden boyutlandırma özelliği, birleştirilmiş hücrelerin satır yüksekliğini tek tek manuel olarak ayarlamanız gerekir. Bu yazıda, bu sorunu çözmek için bazı hızlı yöntemler sunabilirim.
VBA kodu ile birleştirilmiş hücrelerin satır yüksekliğine otomatik sığdırma
VBA kodu ile birleştirilmiş hücrelerin satır yüksekliğine otomatik sığdırma
Aşağıdaki ekran görüntüsü gibi bazı birleştirilmiş hücrelere sahip bir çalışma sayfam olduğunu varsayarsak ve şimdi tüm içeriği görüntülemek için hücre satırı yüksekliğini yeniden boyutlandırmam gerekiyor, aşağıdaki VBA kodu birden çok birleştirilmiş hücrenin satır yüksekliğini otomatik olarak sığdırmanıza yardımcı olabilir, lütfen yapın aşağıdaki gibi:
1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Birden çok birleştirilmiş hücrenin satır yüksekliğine otomatik sığdırmaOption 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
Notlar:
(1.) Yukarıdaki kodda, yeni aralıklar ekleyebilirsiniz, sadece kopyalayın AutoFitMergedCells'i çağırın (Aralık ("a1: b2")) istediğiniz kadar komut dosyası oluşturun ve birleştirilmiş hücre aralıklarını ihtiyaçlarınıza göre değiştirin.
(2.) Ve mevcut çalışma sayfası adını değiştirmelisiniz Sheet4 kullandığınız sayfa adınıza.
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve şimdi, birleştirilmiş tüm hücrelerin hücre içeriklerine otomatik olarak sığdırıldığını görebilirsiniz, ekran görüntüsüne bakın:
İlgili makale:
Excel'de sütun genişliğini otomatik olarak nasıl sığdırabilirim?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!