Jak sprawić, by funkcja „Automatyczne dopasowanie wysokości wiersza” programu Excel faktycznie automatycznie dopasowywała wysokość wiersza?

Dla każdej generacji programu Excel, który pamiętam (w tym 2010, którego teraz używam), funkcje „Automatycznie dopasuj rozmiar wiersza” programu Excel czasami nie powodują automatycznego rozmiaru wiersza, gdy komórka zawiera zawinięty tekst. Gdy działa poprawnie, cały tekst jest ujawniany i nie ma dodatkowej spacji pod ostatnim wierszem tekstu. Gdy się nie powiedzie, dodaje dodatkowe miejsce pod tekstem. Co gorsza, to, co widzisz, nie zawsze jest tym, co dostajesz, tzn. Tekst, który wyglądał dobrze na ekranie, zostaje odcięty po wydrukowaniu. Dostajesz również różne rozmiary w zależności od tego, czy jesteś powiększony / pomniejszony, czy w rzeczywistym rozmiarze.

Prosty przypadek testowy:

Dlaczego po tekście w komórce A1 występuje przerwa jednowierszowa, ale nie w A2?

(Aby odtworzyć: ustaw szerokość kolumny A na 17,14 (125 pikseli), zawiń tekst i wyrównaj komórki do góry.)

(Dwukrotnie sprawdziłem, czy zastosowałem opcję Auto Fit Row Row w obu rzędach. Poziom powiększenia wynosi 100%.)

Czy istnieje jakikolwiek znany sposób na to bez konieczności ręcznego ustawiania wysokości rzędów (co nie jest praktyczne w przypadku więcej niż kilku rzędów)?

Metoda, którą właśnie znalazłem (trochę rozszerzając poprzedni post):

• Wybierz cały arkusz.
• Zmień rozmiar kolumny nieco szerzej (ponieważ cały arkusz jest zaznaczony, wszystkie kolumny będą szersze)
• Kliknij dwukrotnie separator wierszy - wysokość wiersza zostanie dopasowana automatycznie
• Kliknij dwukrotnie separator kolumn - szerokości kolumn zostaną automatycznie dopasowane

Voila!

WYSIWYG Excela nie jest najlepszy. Na twoim zdjęciu „kot”. ledwo zakrada się do 5. linii. Jeśli zmniejszysz procent powiększenia do wartości mniejszej niż 100% (na przykład 99%), wówczas „cat”. jest teraz zawinięty do szóstej linii. Myślę, że Excel próbuje automatycznie dopasować w sposób, który zapewni, że wszystko będzie prawie zawsze widoczne bez względu na poziom powiększenia.

To nie jedyny problem, jaki będziesz mieć z AutoFit. Ponadto sposób drukowania zawiniętej komórki nie zawsze będzie pasował do tego, co widzisz na ekranie. Weź przykład i zmień czcionkę na Courier, pozostawiając rozmiar 11.

Jak widać, komórce A1 wydaje się otrzymać 1,5 dodatkowego wiersza. Teraz spójrz na podgląd wydruku „cat”. jest całkowicie ukryty.

Z mojego doświadczenia wynika, że ​​Excel ma ten problem z niektórymi czcionkami i rozmiarami czcionek bardziej niż inne. Kurier jest gorszy niż kurier Nowy , rozmiar 11 jest zwykle gorszy niż 10 lub 12. (Dlaczego wybrali rozmiar 11 jako nowy domyślny, nie mam pojęcia).

Właśnie napisałem w tym celu małe makro. Przypisałem mu klawisz skrótu (Ctrl-Shift-J) i działa jak urok dla mnie.

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

Aby było to stale dostępne, możesz łatwo zrobić automatycznie ładujący się dodatek:

• utwórz moduł w świeżym pustym skoroszycie i wklej kod,
• przypisz mu odpowiedni klawisz skrótu,
• Następnie Save As, Add-indo folderu %appdata%\Microsoft\Excel\XLSTART
  ten sposób będzie niewidoczny załadowany przy każdym uruchomieniu programu Excel.

W niektórych przypadkach problemem dodatkowej przestrzeni w niektórych wierszach po wywołaniu „Autodopasowania wysokości wiersza” może być to, że ukryta kolumna zawija tekst w tych wierszach.

Jest artykuł na ten temat, który „sugeruje” (jest to niedopuszczalnie rzadkie, w klasycznej modzie Microsoftu), że jeśli kiedykolwiek ustawisz wysokość wiersza, automatyczne dopasowywanie wysokości zostanie trwale wyłączone dla tego wiersza tego arkusza. Jednak rzędy, których wysokości nie dotknąłeś, będą dobrze pasować.

Podczas gdy możesz zresetować szerokości kolumn z ustawieniem „standardowej szerokości” w 2003 roku (szaleniec zaprojektowany 2007: zmień na „domyślną szerokość”), ale zapomnieli (znowu) (i znowu), aby umieścić to w wierszach. Trwałość wydaje się więc nieunikniona. Oznacza to, że jeśli masz domyślną wysokość 15 i utworzysz arkusz i ustawisz wszystkie wysokości na 12, po prostu utraciłeś automatyczne dopasowanie.

Czasami istnieje metoda nuklearna do naprawy niewłaściwie działających autoproblemów.

To, co robię, to skopiuj tekst z każdej komórki i wklej dane do Notatnika, a następnie usuń wiersz. Następnie natychmiast kopiuję i wstawiam wiersz, który jest pusty, ale ma takie samo formatowanie i dobre zachowanie jak wiersz, który został usunięty. (Musisz skopiować i wstawić cały wiersz za pomocą przycisków lewego rzędu).

Gdy to zrobisz, musisz wrócić i wstawić tekst z notatnika do każdej komórki. (Użyj F2lub w inny sposób aktywuj tryb edycji każdej komórki przed wstawieniem tekstu.) Jest to ból, więc jest to ostateczność, szczególnie w przypadku gigantycznie szerokich arkuszy roboczych.

Jest to czasami jedyne rozwiązanie, ponieważ problem tkwi w samym programie.

Nie przetestowałem tego dokładnie, ale działa na mnie. Zasadniczo automatycznie dopasuje wszystkie arkusze, a następnie wróci i ustawi szerokość kolumny na pierwotną szerokość, chyba że zostanie ona przedłużona przez automatyczne dopasowanie. Miałem tylko 10 kolumn i nigdy więcej niż 1000 wierszy, więc dostosuj kod w razie potrzeby.

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

Parafrazując Dunc :

Rozwiązałem podobny problem przez:

1. Wybór całego arkusza kalkulacyjnego.

2. Podwójne kliknięcie linii na marginesie między dwoma rzędami.

W szczególności, aby rozwiązać problem dodatkowej linii, zakładam, że jest tam postać. To może nie być widoczna postać, ale na pewno coś tam jest.

Nie poświęciłem czasu na przeczytanie innych komentarzy. Dlaczego linia na dole pierwszego bloku, a nie w drugim bloku?

Jest tak, ponieważ tekst kończy się zbyt blisko prawej krawędzi komórki. Jeśli dostosujesz kolumnę, aby była nieco szersza i dwukrotnie klikniesz między wierszami, odpowiednio zmieni rozmiar.

Ja również znosiłem ten malutki, ale bardzo rozpraszający błąd od wielu lat. Nie mam żadnego obejścia, z wyjątkiem majstrowania przy szerokości wiersza dla komórki z większą ilością tekstu, a ostatecznie program ustąpi i poprawnie wyświetli tekst.

Istnieje proste rozwiązanie:

1) Zaznacz wszystkie wiersze, które chcesz automatycznie sformatować (jeśli jest to duży blok, kliknij pierwszy, a następnie naciśnij Shift + End i Shift + Dół)

2) Kliknij zaznaczenie prawym przyciskiem myszy, Formatuj komórki, kartę Wyrównanie, odznacz Zawiń tekst.

Mam nadzieję że to pomoże ;)

Mam program Excel 2010. Odkryłem, że ten problem przydarzył mi się, gdy moje ustawienie Zoom nie było na 100%. Dopóki mam 100%, tekst nie jest odcinany za pomocą funkcji AutoFit dla kolumn i wierszy

Moja hipoteza jest taka, że ​​Excel jest wiązany, gdy musi przedłużyć zbyt wiele linii. Miałem podobne doświadczenie do powyższego. To wygląda jak tam dodatkowy NL / CR / LF na końcu, ale wiem, że nie jest. Jeśli zbuduję komórkę kilka znaków na raz, formatuje ona automatycznie OK, aż do osiągnięcia określonego rozmiaru, a następnie wstawia dodatkową linię. (Podobne zachowanie występuje w odwrotnej kolejności, jeśli zaczniesz od usunięcia niektórych znaków.) Dzieje się tak w różnych momentach z różnymi komórkami.

Porażka!

Jeśli więc możesz zwiększyć szerokość komórki, prawdopodobnie możesz uniknąć problemu. Jeśli nie możesz (tak jak w moim przypadku), utkniesz w ręcznym formatowaniu. Jak powiedziałem: „Bummer!”

W rzeczywistości jest tam dodatkowa postać. To ukryta postać LF, która znajduje się na końcu każdego pola. Gdy tekst ma odpowiedni rozmiar, dodatkowy wiersz zawiera znak LF. Zmiana rozmiaru kolumny zgodnie z sugestią innych osób rozwiąże problem z tą komórką, ale jeśli arkusz kalkulacyjny ma wiele różnych wartości wielkości w tej samej kolumnie, możliwe, że poprawka dla tej komórki spowoduje problem z inną komórką w kolumnie . Przez większość czasu nauczyłem się z tym żyć.

To, co zadziałało dla mnie (Excel 2010), to usunięcie około stu nieużywanych kolumn po prawej stronie moich danych. Mogę tylko zgadywać, że było coś, co powodowało nieprawidłowe zachowanie wysokości wiersza automatycznego.

zaznacz wszystkie komórki i kliknij dwukrotnie linię oddzielającą rzędy ... zrobi to automatycznie.