Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Doctor Bruce
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Что за символ появляется после конвертации таблицы из Ворда в Эксель и как от него избавиться?
 
#
07.02.2026 19:52:05
Цитата
написал:
Точно не работает? У меня офис 2019 и все работает.
Сейчас попробовал, работает, спасибо большое
 
Перейти    
Что за символ появляется после конвертации таблицы из Ворда в Эксель и как от него избавиться?
 
#
06.02.2026 13:37:27
Цитата
написал:
Sub Макрос1()    Dim rng As Range    Set rng = Range("A1:H5")    rng.Replace Chr(13), Chr(10)    rng.Replace Chr(11), Chr(10)    rng.FormulaLocal = rng.FormulaLocalEnd Sub
Не, не работает. У меня Excel 2019, если что
Изменено: Doctor Bruce - 06.02.2026 13:41:58
 
Перейти    
Как макросом выполнить F2+Enter для диапазона ячеек с текстом/есть ли этому замена?
 
#
06.02.2026 12:09:06
Цитата
написал:
Заменяем возврат каретки на перенос строки, как предложил  Старичок , только сразу для всего диапазона. У меня сработало.
Вот этот отлично сработал, спасибо большое
 
Перейти    
Что за символ появляется после конвертации таблицы из Ворда в Эксель и как от него избавиться?
 
#
06.02.2026 11:46:02
А, ну вот я нагуглил. Почему-то прописался разрыв строки (Shift + Enter) вместо нормального конца абзаца.
Как быстрее будет убрать, через найти-заменить?
Изменено: Doctor Bruce - 06.02.2026 11:47:05
 
Перейти    
Что за символ появляется после конвертации таблицы из Ворда в Эксель и как от него избавиться?
 
#
06.02.2026 11:39:25
Цитата
написал:
а можете пример сюда выложить?
Сейчас в Ворде глянул, выглядит вот так:
Почему-то в этих местах с нормального абзаца знак изменился на вот этот
Изменено: Doctor Bruce - 06.02.2026 11:43:41
 
Перейти    
Что за символ появляется после конвертации таблицы из Ворда в Эксель и как от него избавиться?
 
#
06.02.2026 11:37:49
Цитата
написал:
Присоединяюсь, можно маленький кусочек word файла?
Выглядит это дело вот так, посмотрите на 7 и 1 столбцы
 
Перейти    
Что за символ появляется после конвертации таблицы из Ворда в Эксель и как от него избавиться?
 
#
06.02.2026 10:30:01
Добрый день.
Можете подсказать, как вот этот символ называется?
Слизывает абзацы в тех местах, где они были в Ворде, исчезает после нажатия на ячейку.
Когда выходишь из ячейки, появляется снова.
Изменено: Doctor Bruce - 06.02.2026 10:39:53
 
Перейти    
Как макросом выполнить F2+Enter для диапазона ячеек с текстом/есть ли этому замена?
 
#
05.02.2026 21:12:38
Цитата
написал:
Вроде бы нормально работает.
Не, че-то нет. Но вон тот мой вариант с нейронкой подходит, реально работает. Только он проходится по каждой из 1000 строк в секунду, но в принципе мож можно и подождать? Мне он в принципе единожды пока для такой большой таблицы понадобился. Разве что кто-нибудь сможете подсказать, как его ускорить, чтобы он за раз всю книгу брал?
 
Перейти    
Как макросом выполнить F2+Enter для диапазона ячеек с текстом/есть ли этому замена?
 
#
05.02.2026 11:19:52
Цитата
написал:
Если нужен конкретный столбец (например, A)
Хотя не, вы знаете, получилось то же самое, что от прошлого кода с нейронкой, только медленнее
 
Перейти    
Как макросом выполнить F2+Enter для диапазона ячеек с текстом/есть ли этому замена?
 
#
05.02.2026 11:01:17
Цитата
написал:
Sub FixAllLineBreakIssues()    Dim cell As Range    Dim originalText As String    Dim fixedText As String         Application.ScreenUpdating = False         For Each cell In ActiveSheet.UsedRange        If cell.Value <> "" Then            originalText = cell.Value                         ' Шаг 1: Нормализация переносов строк            fixedText = Replace(originalText, vbLf, vbCrLf)            fixedText = Replace(fixedText, vbCr, vbCrLf)                         ' Удаляем двойные переносы            Do While InStr(fixedText, vbCrLf & vbCrLf) > 0                fixedText = Replace(fixedText, vbCrLf & vbCrLf, vbCrLf)            Loop                         ' Шаг 2: Удаляем переносы в начале и конце            fixedText = Trim(fixedText)                         ' Шаг 3: Применяем исправленный текст            If originalText <> fixedText Then                cell.Value = fixedText            End If                         ' Шаг 4: Включаем перенос текста            cell.WrapText = True        End If    Next cell         ' Шаг 5: Автоподбор размеров    ActiveSheet.UsedRange.EntireRow.AutoFit    ActiveSheet.UsedRange.EntireColumn.AutoFit         Application.ScreenUpdating = True         MsgBox "Исправление переносов строк завершено!", vbInformationEnd Sub
О, кстати помогла нейронка. Но теперь слишком много абзацев стало.
Короче, я сам попросил ГПТ написать чисто на F2+Enter, но он проходится по каждой ячейке буквально. Так что если у кого-то больше 1000, придётся подождать-посидеть:
Код
Sub F2_Enter_For_Column()
    Dim cell As Range

    ' Проходим по всем ячейкам в выделенном диапазоне
    For Each cell In Selection
        If Not IsEmpty(cell.Value) Then
            cell.Activate
            SendKeys "{F2}", True
            SendKeys "{ENTER}", True
        End If
    Next cell
End Sub

Как использовать

  1. Выдели столбец или диапазон ячеек

  2. Нажми Alt + F11

  3. Insert → Module

  4. Вставь код

  5. Закрой редактор

  6. Запусти макрос (Alt + F8)

Если нужен конкретный столбец (например, A)

Замени цикл на:

Код
For Each cell In Range("A:A")

⚠️ Важно: SendKeys работает только когда Excel активен — не переключайся на другие окна, пока макрос выполняется.

Изменено: Doctor Bruce - 05.02.2026 11:01:52
 
Перейти    
Как макросом выполнить F2+Enter для диапазона ячеек с текстом/есть ли этому замена?
 
#
05.02.2026 10:10:42
Цитата
написал:
Это лечится установкой формата "Обычный" на столбец "H"Такое происходит, если в ячейке больше 255 символов и установлен формат "Текстовый"И да, похоже не только на столбец "H"...
Не, я пробовал, так не работает
 
Перейти    
Как макросом выполнить F2+Enter для диапазона ячеек с текстом/есть ли этому замена?
 
#
04.02.2026 23:29:27
Цитата
написал:
Похоже здесь пудрит мозг символ 13, нужно в цикле поменять его на символ 10 и все должно нормализоваться.
Цитата
Через поиск и замену?
 
Перейти    
Как макросом выполнить F2+Enter для диапазона ячеек с текстом/есть ли этому замена?
 
#
04.02.2026 21:04:13
Цитата
написал:
Да, действительно, "странный" файл. Завтра вылечим макросом (если раньше никто не сделает).
Был бы благодарен
 
Перейти    
Как макросом выполнить F2+Enter для диапазона ячеек с текстом/есть ли этому замена?
 
#
04.02.2026 20:15:19
Цитата
написал:
Укажите точные координаты проблемы (номер строки и столбца).Где в Вашем файле из #3 адрес, содержащий "Циолковского" (первый рисунок из сообщения #7)?
Я для примера скидывал пустой файл без данных, но там всё равно видно. Ну вот список, который я веду, координаты примера проблемы: H606, и вся строка прямо. То есть на любую ячейку нажмите, она пробелы изменит сразу
Изменено: Doctor Bruce - 04.02.2026 20:17:11
 
Перейти    
Как макросом выполнить F2+Enter для диапазона ячеек с текстом/есть ли этому замена?
 
#
04.02.2026 19:56:28
Цитата
написал:
Выделите столбцы A:K. Далее Ctrl+1 ("Формат ячеек"), вкладка "Выравнивание", поставьте отметку "переносить по словам", OK.
Не-а, не действует. То же самое всё
 
Перейти    
Как макросом выполнить F2+Enter для диапазона ячеек с текстом/есть ли этому замена?
 
#
04.02.2026 19:04:47
Вот так вот до клика, вот так после клика
 
Перейти    
Как макросом выполнить F2+Enter для диапазона ячеек с текстом/есть ли этому замена?
 
#
04.02.2026 19:02:36
Цитата
написал:
А с какими строками и столбцами у Вас проблема?Совет. Выделите весь лист и в диалоге "Формат ячеек" на вкладке "Выравнивание" укажите Выравнивание по горизонтали: "по значению". Тогда Вы по выравниванию можете определить тип данных в ячейке (число / текст).
Со всеми строками и столбцами. Если пролистать ближе к концу, то видно, что в ячейках с тягачами текст друг на друга налезает, но если по ним кликнуть, то он автоматом выправляется. Если нажать F2, то же самое. То же самое со столбцами номеров, прописки, фамилий и т.д.

Попробовал выровнять по значению, не работает. Только текст в другую сторону переносится
 
Перейти    
Как макросом выполнить F2+Enter для диапазона ячеек с текстом/есть ли этому замена?
 
#
04.02.2026 18:18:20
К сожалению, так не получилось; скинул пример файла. Я там, правда, прокликал чутка уже сам вручную, но можно к концу ближе пролистать или к середине
Изменено: Doctor Bruce - 04.02.2026 18:22:56
 
Перейти    
Как макросом выполнить F2+Enter для диапазона ячеек с текстом/есть ли этому замена?
 
#
04.02.2026 18:15:02
Скидываю пример файла
 
Перейти    
Как макросом выполнить F2+Enter для диапазона ячеек с текстом/есть ли этому замена?
 
#
04.02.2026 18:03:37
Добрый вечер всем. Нужна помощь с таблицей, Excell 2019. Есть столбцы, в котором каждая из 1400 тысяч ячеек, после того как в неё вставили данные, приобретает нормальный развёрнутый вид в читабельным формате только после того, как кликнешь на неё дважды или нажмёшь F2. На других формах видел, что решались подобные проблемы для листов с формулами, а у меня чисто текст. Как подобный ввод осуществить макросом, или применить какую-нибудь другую альтернативу?
 
Перейти    
Сравнение таблиц водителей для одноразовых заявок, Перемещение таблицы из ворд в Excel и вставка идентичных новых таблиц для подсвечивания новых данных
 
#
02.02.2026 20:30:35
Ну вот в Экселе таблицы ещё нет, но должна быть как в Ворде.
А в какой файл нужно преобразовать Ворд, чтобы он он открылся в Excel через PQ или вставку данных?  
 
Перейти    
Сравнение таблиц водителей для одноразовых заявок, Перемещение таблицы из ворд в Excel и вставка идентичных новых таблиц для подсвечивания новых данных
 
#
02.02.2026 17:42:09
Добрый день! Вопрос от не-эксперта:
Есть рабочая таблица водителей, в ней указаны: Ф.И.О., дата и место рождения, паспорт, место прописки, должность (везде указано водитель), гос. номер ТС, в т.ч. прицепа,  марка, модель, а/м, цвет, вид, сведения о собственнике транспортного средства.
Таблицу ведут в Word, водителей номинируют каждый день - иногда ошибки чисто в заявке, иногда действительно новые ТС, паспорта, собственники, владельцы. Поэтому для того, чтобы узнать, у кого что поменялось, приходится вручную пробивать через поиск в вордовской таблице и сверять.

Расскажите, пожалуйста, как удобней будет сделать:
1) Таблицу с оформленными данными занести в Excel
2) Вставлять таблицу с новыми данными из присылаемых заявок;
3) Нужно, чтобы Excel подсвечивал несовпадающие данные: а это обычно ТС, прописка, новый паспорт или сменившийся собственник

Если что-то непонятно написал, уточните, пожалуйста
 
Перейти    
Сравнение таблиц водителей для одноразовых заявок, Перемещение таблицы из ворд в Excel и вставка идентичных новых таблиц для подсвечивания новых данных
 
#
02.02.2026 17:29:36
Добрый день! Вопрос от не-эксперта:
Есть рабочая таблица водителей, в ней указаны: Ф.И.О., дата и место рождения, паспорт, место прописки, должность (везде указано водитель), гос. номер ТС, в т.ч. прицепа,  марка, модель, а/м, цвет, вид, сведения о собственнике транспортного средства.
Таблицу ведут в Word, водителей номинируют каждый день - иногда ошибки чисто в заявке, иногда действительно новые ТС, паспорта, собственники, владельцы. Поэтому для того, чтобы узнать, у кого что поменялось, приходится вручную пробивать через поиск в вордовской таблице и сверять.

Расскажите, пожалуйста, как удобней будет сделать:
1) Таблицу с оформленными данными занести в Excel
2) Вставлять куда-нибудь таблицу с новыми данными из присылаемых заявок;
3) Нужно, чтобы Excel подсвечивал несовпадающие данные: а это обычно ТС, прописка, новый паспорт или сменившийся собственник

Если что-то непонятно написал, уточните, пожалуйста
 
Перейти    
Страницы: 1
Наверх