Excel - запобігання переливу тексту клітини в наступну (порожню) комірку

Якщо у вас є текст у комірці Excel, який занадто довгий для відображення у видимій області цієї комірки, а наступна комірка праворуч порожня, Excel дозволяє відображати текст у цій наступній комірці (і наступній, і далі, за потребою). Я хочу це змінити; Я хочу уникнути цього переповнення тексту.

Я знаю, що я можу цього уникнути, включивши "обгортання слів" та регулюючи висоту рядка. Але це не те, що я хочу.

Я хочу змінити DEFAULT поведінку Excel, щоб воно відображало значення кожної комірки лише у видимій області цієї комірки. Ніякого переповнення, жодного обгортання слів.

Чи можливо це? (До речі, я використовую Excel 2010).

Це може бути не для всіх, але якщо ви імпортуєте документ у Google Таблиці, ця функція підтримується за замовчуванням. На верхній панелі меню підтримуються три типи обгортання тексту. Переповнення, загортання та затискання. Ви шукаєте кліп.

Залежно від вимог, це може бути життєздатним варіантом для деяких людей.

Так, ви можете змінити таку поведінку, але ви, ймовірно, не захочете побічних ефектів, які це викликає.

Ключовим фактором обмеження вмісту комірки до меж комірки, незалежно від того, чи містить сусідня комірка дані, є вирівнювання тексту Fill. Виберіть комірки, які не хочете переповнювати, і клацніть правою кнопкою миші на них> Форматування комірок ... > Вкладка Вирівнювання > Горизонтальне вирівнювання > Заповнення

Проблема цього методу полягає в тому , що це буде на самому ділі заповнити клітини, повторюючи їх зміст , коли воно досить коротким , щоб поміститися в клітинними кілька разів. Дивіться нижче скріншот, що це означає. (Зверніть увагу, що B7він заповнений "коротким текстом".)

Здається, ви будете застрягати у вирішенні проблем на посаді Бенедикта

Зауважте, що ви також можете заповнити сусідні комірки символами галочки ( '), використовуючи перший, дуже розумний метод Benedikt . Таким чином вам нічого не потрібно приховувати, запобігайте переповненню комірок, і якщо ви копіюєте комірки як текст (скажімо, у блокнот), ви все одно отримуєте порожній текст, а не пробіли чи галочки.

Ось як я це роблю.

1. Варіант 1: Заповніть усі порожні комірки "N / A", а потім скористайтеся умовним форматуванням, щоб зробити текст невидимим.
2. Або Варіант 2: Заповніть усі порожні комірки 0 і використовуйте налаштування Excel, щоб приховати нульові значення.

Заповнення всіх порожніх комірок: (тестовано на Mac)

• Редагувати → Перейти до ... → Спеціально ... (У Windows: Головна → Редагування → Знайти та вибрати → Перейти до спеціальних ...)
• Виберіть "Пробіли" та натисніть кнопку ОК.
• Усі порожні клітинки вибрані зараз. Не натискайте нічого.
• Наберіть "N / A" або 0, а потім натисніть Ctrl+ Enter^† . Це додасть значення у всі вибрані комірки.

Умовне форматування для приховування "N / A"

• Формат → Умовне форматування.
• Створіть нове правило.
• Стиль: Класичний та використовуйте формулу, щоб визначити, які клітинки форматувати.
• Формула: =A1="N/A"
• Форматування за допомогою: Спеціальний формат: колір шрифту білий, без заливки.

Сховати нулі

• Excel → Налаштування → Перегляд.
• Зніміть прапорець "Показати нульові значення".

_______________
^†   Це Ctrl+ Enter, а не Ctrl+ Shift+Enter .

Спробуйте ввести формулу = "" (це дві подвійні лапки) в сусідній комірці, де ви не хочете бачити переповнення. Це оцінюється як "null", що нічого не відображає і не вплине на математику.

Використовуйте горизонтальне вирівнювання тексту "Заливка" для комірки. Ви можете знайти його там же, що й інші параметри вирівнювання, які повинні вирішити вашу проблему

Розширюючи рішення про використання 'для блокування розкидання тексту вправо в Excel в сусідні порожні комірки, іноді не потрібно змінювати / пошкоджувати стовпчик даних, вставляючи це значення туди.

Замість того, щоб вставляти 'фактичні значення даних, ви можете створити для цього новий виділений вертикальний стовпець, повністю заповнений 'символами до кінця.

1. Бар'єрний стовпчик

2. Вставте стовпчик "бар'єр" зліва від стовпців, які ви хочете захистити.

3. Згорніть бар'єрні стовпці, встановивши їх ширину стовпчика на невелике значення

Встановіть ширину стовпця на таке значення, як .1, або альтернативно, збережіть стовпці бар'єру ширшими, щоб вони виконували роль пробілу або міжбілейного пробілу.

Зверніть увагу, що ви повинні встановити ширину більше нуля; встановлення ширини стовпчика вертикального бар'єру до нуля повернеться до небажаного переповнення комірки.

4. Вуаля!

У Excel відрегулюйте стовпчик на потрібну ширину, а потім увімкніть виправлення слів на цьому стовпці (що призведе до збільшення всіх висот рядків), а потім, нарешті, виберіть усі рядки та відрегулюйте висоту рядків на потрібну висоту. Вуаля! Тепер у вас є текст у клітинках, які не переливаються на сусідні комірки.

(Примітка. Я знайшов це і опублікував це як коментар до вибраної відповіді, але також розмістив його як відповідь, щоб було легше знайти інших.)

У тому ж думці, що Google Sheets може бути не для всіх , цей макрос може бути не для всіх, але може бути для когось .

Він проходить через обраний діапазон і замінює переповнені комірки усіченим текстом.

Прапори визначають, чи:

• текст правопорушення копіюється на ту саму відносну адресу в новому аркуші або якщо він відкидається.

• усічений текст жорстко закодований або пов'язаний за допомогою формули робочого аркуша =LEFT()

• усічений текст гіперпосилається на повний рядок у новому аркуші.

За замовчуванням - зберігати дані та використовувати обидва посилання.

Option Explicit

Sub LinkTruncatedCells()
    Dim rng As Range: Set rng = Selection
    Dim preserveValues As Boolean: preserveValues = True
    Dim linkAsFormula As Boolean: linkAsFormula = True
    Dim linkAsHyperlink As Boolean: linkAsHyperlink = True
    Dim w As Single
    Dim c As Range
    Dim r As Range
    Dim t As Long
    Dim l As Long
    Dim s As String
    Dim ws As Worksheet
    Dim ns As Worksheet
    Application.ScreenUpdating = False
    Set ws = rng.Parent
    For Each c In rng.Columns
        w = c.ColumnWidth
        t = 0
        l = 0
        For Each r In c.Rows
            If Len(r) > l Then
                s = r
                If CBool(l) Then r = Left(s, l)
                Do
                    r.Columns.AutoFit
                    If r.ColumnWidth > w And Len(s) > t Then
                        t = t + 1
                        r = Left(s, Len(s) - t)
                        l = Len(r)
                    End If
                Loop Until t = Len(s) Or r.ColumnWidth <= w
                r.ColumnWidth = w
                If r <> s And preserveValues Then
                    If ns Is Nothing Then
                        Set ns = ws.Parent.Worksheets.Add(after:=ws)
                    End If
                    ns.Range(r.Address) = s
                    If linkAsFormula Then r.Formula = "=LEFT(" & ns.Name & "!" & r.Address & "," & l & ")"
                    If linkAsHyperlink Then ws.Hyperlinks.Add Anchor:=r, Address:="", SubAddress:= _
                            ns.Range(r.Address).Address(external:=True)
                End If
            End If
        Next r
    Next c
    ws.Activate
    Application.ScreenUpdating = True
End Sub

Заключна примітка: Я використав це для особистих проектів і вважав його надійним, але будь ласка, збережіть і створіть резервну копію вашої роботи, перш ніж спробувати будь-який незнайомий макрос .