Bagaimana cara membuat fitur "Auto Fit Row Height" Excel benar-benar sesuai dengan tinggi baris?

Untuk setiap generasi Excel yang saya ingat (termasuk 2010, yang saya gunakan sekarang), fitur "Auto Size Row" Excel terkadang gagal untuk benar-benar secara otomatis mengukur baris ketika sel berisi teks yang dibungkus. Ketika berfungsi dengan baik, semua teks terungkap dan tidak ada ruang tambahan di bawah baris teks terakhir. Ketika gagal, itu menambah ruang ekstra di bawah teks. Lebih buruk lagi, apa yang Anda lihat tidak selalu seperti yang Anda dapatkan, yaitu, teks yang muncul dengan baik di layar akan terpotong ketika dicetak. Anda juga mendapatkan ukuran yang berbeda tergantung pada apakah Anda memperbesar / memperkecil atau pada ukuran sebenarnya.

Test case sederhana:

Mengapa ada selisih satu baris setelah teks di sel A1 tetapi tidak di A2?

(Untuk mereproduksi: atur lebar kolom A ke 17,14 (125 piksel), bungkus teks, dan atas penyelarasan sel.)

(Saya memeriksa ulang apakah saya menerapkan Tinggi Baris Fit Otomatis pada kedua baris. Tingkat pembesaran 100%.)

Apakah ada obat yang dikenal untuk ini tanpa menggunakan penyesuaian ketinggian baris secara manual (yang tidak praktis untuk lebih dari beberapa baris)?

Metode yang baru saja saya temukan (sedikit memperluas posting sebelumnya):

• Pilih seluruh lembar.
• Ubah ukuran kolom sedikit lebih lebar (karena seluruh lembar dipilih, semua kolom akan menjadi lebih luas)
• Klik dua kali pemisah baris - tinggi baris akan dipasang secara otomatis
• Klik dua kali pemisah kolom - lebar kolom akan dipasang secara otomatis

Voila!

WYSIWYG Excel bukan yang terbaik. Dalam gambar Anda, 'kucing.' baru saja menyelinap ke baris 5. Jika Anda mengurangi persentase zoom menjadi kurang dari 100% (misalnya 99%.) Maka 'cat.' sekarang dibungkus ke garis ke-6. Saya pikir Excel sedang mencoba menyesuaikan secara otomatis dengan cara yang akan memastikan semuanya hampir selalu terlihat terlepas dari tingkat zoom Anda.

Itu bukan satu-satunya masalah yang Anda miliki dengan AutoFit. Selain itu, cara sel yang dibungkus kata dicetak tidak akan selalu cocok dengan yang Anda lihat di layar. Ambil contoh Anda dan ubah font ke Courier sambil meninggalkan ukuran 11.

Seperti yang Anda lihat, sel A1 tampaknya diberi 1,5 garis ekstra. Sekarang lihat pratinjau cetak, 'cat.' sepenuhnya tersembunyi.

Dalam pengalaman saya, Excel memiliki masalah dengan font dan ukuran font tertentu lebih dari yang lain. Kurir lebih buruk daripada Kurir Baru , ukuran 11 umumnya lebih buruk dari 10 atau 12. (Mengapa mereka memilih ukuran 11 sebagai default baru, saya tidak tahu.)

Saya baru saja menulis makro kecil untuk tujuan itu. Saya menetapkannya sebagai tombol pintas (Ctrl-Shift-J) dan berfungsi seperti pesona bagi saya.

Sub ArrangeTable()
'set proper column width and row height for the current region
    With Selection.CurrentRegion
        .Columns.ColumnWidth = 200
        .Columns.EntireColumn.AutoFit
        .Rows.EntireRow.AutoFit
    End With
End Sub

Untuk membuat ini tersedia secara permanen, Anda dapat dengan mudah membuat add-in pemuatan secara otomatis:

• buat modul di buku kerja kosong baru dan tempel kode,
• tetapkan itu tombol pintas yang Anda inginkan,
• kemudian Save As,, Add-inke folder %appdata%\Microsoft\Excel\XLSTART
  Dengan cara ini akan dimuat tanpa terlihat setiap kali Anda memulai Excel.

Dalam beberapa kasus, masalah ruang ekstra di beberapa baris setelah menjalankan "Ketinggian Baris AutoFit" mungkin kolom tersembunyi telah membungkus teks dalam baris tersebut.

Ada artikel kb tentang ini yang "menyarankan" (ini jarang dapat diterima, dalam mode Microsoft klasik) bahwa jika Anda pernah menetapkan tinggi baris, autofitting tinggi otomatis secara otomatis hilang untuk baris lembar kerja itu. Baris yang tingginya belum Anda sentuh akan menghasilkan autofit dengan baik.

Meskipun Anda dapat mengatur ulang lebar kolom dengan pengaturan "lebar standar" pada tahun 2003 (yang dirancang orang gila 2007: ubah menjadi "lebar default"), tetapi mereka lupa (lagi) (dan lagi) untuk meletakkannya di baris. Jadi keabadian tampaknya tidak terhindarkan. Itu berarti, jika Anda memiliki tinggi standar 15, dan Anda membuat lembar dan mengatur semua ketinggian ke 12, Anda hanya kehilangan autofitting otomatis.

Terkadang ada metode nuklir untuk memperbaiki autoproblem yang bermasalah.

Yang saya lakukan adalah menyalin teks dari setiap sel dan menempelkan data dalam Notepad, lalu hapus barisnya. Kemudian saya segera menyalin dan menyisipkan baris yang kosong tetapi memiliki format dan perilaku yang sama dengan baris yang telah dihapus. (Anda harus menyalin dan menyisipkan seluruh baris dengan menggunakan tombol baris kiri.)

Setelah selesai, Anda harus kembali dan memasukkan teks dari notepad ke setiap sel. (Gunakan F2atau aktifkan mode edit masing-masing sel sebelum memasukkan teks.) Ini menyakitkan, jadi ini adalah pilihan terakhir, terutama untuk lembar kerja lebar yang sangat lebar.

Ini adalah satu-satunya solusi kadang-kadang, karena masalahnya ada di dalam program itu sendiri.

Saya belum benar-benar menguji ini tetapi sudah bekerja untuk saya. Pada dasarnya itu akan secara otomatis menyesuaikan semua lembar kemudian kembali melalui dan mengatur lebar kolom ke lebar aslinya, kecuali jika diperpanjang oleh penyesuaian otomatis. Saya hanya punya 10 kolom dan tidak pernah lebih dari 1000 baris jadi sesuaikan kodenya sesuai kebutuhan.

Sub ResizeCells()
    Dim sheetCounter As Integer
    Dim rowCounter As Integer
    Dim colCounter As Integer
    Dim totalWidth As Double
    Dim oldColWidths(1 To 10) As Double

    For sheetCounter = 1 To ThisWorkbook.Sheets.Count
        ActiveWorkbook.Worksheets(sheetCounter).Select
        totalWidth = 0

        ' Extend the columns out to 200
        For colCounter = 1 To 10
            oldColWidths(colCounter) = Cells(1, colCounter).ColumnWidth
            totalWidth = totalWidth + oldColWidths(colCounter)
            Cells(1, colCounter).ColumnWidth = 200
        Next

        For rowCounter = 4 To 1000
            If Cells(rowCounter, 1).Value <> "" Or Cells(rowCounter, 2).Value <> "" Or Cells(rowCounter, 3).Value <> "" Then
                Rows(rowCounter & ":" & rowCounter).EntireRow.AutoFit
            End If
        Next

        ' do autofit
        For colCounter = 1 To 10
            Cells(1, colCounter).EntireColumn.AutoFit
        Next

        ' reset to original values if current width is less than the original width.
        For colCounter = 1 To 10
            If Cells(1, colCounter).ColumnWidth < oldColWidths(colCounter) + 0.25 Then
                Cells(1, colCounter).ColumnWidth = oldColWidths(colCounter)
            End If
        Next
    Next
End Sub

Mengutip Dunc :

Saya telah memecahkan masalah serupa dengan:

1. Memilih seluruh spreadsheet.

2. Mengklik dua kali garis di margin di antara dua baris.

Khususnya untuk mengatasi masalah Anda tentang garis tambahan itu, saya akan berasumsi bahwa ada karakter di sana. Ini mungkin bukan karakter yang terlihat, tetapi pasti ada sesuatu di sana.

Saya tidak meluangkan waktu untuk membaca komentar lainnya. Mengapa garis di bagian bawah blok pertama dan bukan di blok kedua?

Itu karena teks berakhir terlalu dekat dengan tepi kanan sel. Jika Anda menyesuaikan kolom menjadi sedikit lebih lebar dan klik dua kali di antara baris itu akan mengubah ukurannya.

Saya juga telah mengalami bug kecil tapi sangat mengganggu ini selama bertahun-tahun. Saya tidak punya solusi selain mengutak-atik lebar baris untuk sel dengan sebagian besar teks di dalamnya, dan akhirnya program akan mengalah dan menunjukkan teks dengan benar.

Ada solusi mudah:

1) Pilih semua baris yang Anda ingin autoformat (jika itu adalah blok besar klik pada yang pertama dan kemudian tekan Shift + End dan Shift + Down)

2) Klik kanan pada pilihan, Format Cells, Alignment tab, hapus centang Wrap text.

Semoga ini membantu ;)

Saya memiliki Excel 2010. Saya menemukan bahwa masalah ini terjadi pada saya ketika pengaturan Zoom saya tidak 100%. Selama saya di 100%, saya tidak mendapatkan teks terpotong dengan AutoFit untuk kolom dan baris

Hipotesis saya adalah bahwa Excel diikat ketika harus memperpanjang terlalu banyak baris. Saya memiliki pengalaman serupa dengan yang di atas. Ini terlihat seperti ada tambahan NL / CR / LF di akhir tapi aku tahu tidak ada. Jika saya membangun sel beberapa karakter sekaligus, itu memformat otomatis OK sampai ukuran tertentu tercapai, kemudian menempatkannya di baris tambahan. (Perilaku serupa secara terbalik terjadi jika Anda mulai dengan menghapus beberapa karakter.) Itu terjadi pada waktu yang berbeda dengan sel yang berbeda.

Kekecewaan!

Jadi, jika Anda dapat memperluas lebar sel, Anda mungkin bisa menghindari masalah. Jika Anda tidak dapat (seperti dalam kasus saya), Anda terjebak dengan pemformatan manual. Seperti yang saya katakan, "Nyebelin!"

Sebenarnya ada karakter tambahan di sana. Ini adalah karakter LF tersembunyi yang ada di akhir setiap bidang. Ketika teks berukuran tepat, baris tambahan ada untuk menahan karakter LF. Mengubah ukuran lebar kolom seperti yang disarankan orang lain akan menyelesaikan masalah sel itu, tetapi jika spreadsheet Anda memiliki banyak nilai ukuran yang bervariasi di kolom yang sama, ada kemungkinan bahwa perbaikan Anda untuk sel ini akan menyebabkan sel lain di kolom memiliki masalah. . Saya telah belajar untuk hidup dengannya hampir sepanjang waktu.

Apa yang berhasil untuk saya (Excel 2010), adalah menghapus sekitar seratus kolom yang tidak digunakan di sebelah kanan data saya. Saya hanya bisa menebak bahwa ada sesuatu di sana yang menyebabkan tinggi baris otomatis bertingkah buruk.

pilih semua sel, dan klik pada baris yang memisahkan baris dua kali ... secara otomatis akan melakukannya.