Как скопировать таблицы Word в Excel, не разделяя ячейки на несколько строк?

Тебе придётся сделать небольшую замену персонажа. Это довольно простое решение.

В Слове:

1. Выберите всю таблицу в Слове.
2. Откройте диалог “Поиск и замена” (например, введя Ctrl+H).
3. В поле “Найти что” введите ^l. При этом будут выбраны все разрывы строк.
4. Вы можете выбрать разрывы абзацев, введя ^p.
5. В поле “Заменить на” введите ^v.
6. Это ярлык для символа абзаца ¶, также известного как “pilcrow”.
7. Вы можете захотеть заменить знаки параграфов на два “пиалкрау” для удобства замены в дальнейшем.
8. Нажмите “Заменить все”.
9. Скопируйте данные таблицы в буфер обмена.

В Excel:

1. Вставьте таблицу в нужное место в Excel.
2. При выборе табличных данных откройте диалоговое окно “Поиск и замена” (опять же, Ctrl+H работает).
3. В поле “Найти что” введите следующий код Alt: Alt+0182. Появляется пилотка.
4. Чтобы ввести код Alt, удерживайте нажатой клавишу Alt по мере ввода цифр на цифровой клавиатуре. Может помочь включение цифровой блокировки.
5. В поле Заменить введите следующий код Alt: Alt+0010.
6. Этот код вводится в одной строке. Ничего не появляется, хотя курсор может измениться.
7. Нажмите кнопку “Заменить все”.

Отзывы:

• http://ask.metafilter.com/168104/Copying-Word-tables-into-Excel-without-splitting-cells-into-multiple-rows
• http://symbolcodes.tlt.psu.edu/accents/codealt.html#punc .

Есть более легкий путь.

Если у вас есть аккаунт Google Gmail, вы можете открыть Google Drive и создать новую электронную таблицу, а затем скопировать всю таблицу из Microsoft Word в электронную таблицу Google Spreadsheet. После того, как вы получите таблицу в нужном формате, вы можете скопировать ее в Microsoft Excel.

Я нашел, что ты можешь использовать LibreOffice Calc.

1. Выберите таблицу Word
2. Скопируйте
3. В LibreOffice Calc, вставьте Special как HTML
4. Сохраните в любимом формате

Ваша таблица не будет разбита на несколько ячеек.

Я сделал функцию vba для удаления новой строки, которая вызывала разделение ячеек в excel перед копированием в excel.

sub RemoveNewLinesFromTabelCells(tblnumber as integer) 'remove newline from every cell in the selected table table by table number dim x as long, y as long, columncount as long, rowcount as long columncount = Activedocument.Tables(tblNumber).Range.Columns.Count rowcount = Activedocument.Tables(tblNumber).Range.Rows.Count for x = 1 to rowcount for y = 1 to columncount ActiveDocument.Tables(tblNumber).cell(x,y).Range.Text = Replace(ActiveDocument.TAbles(tblNumber).cell(x,y).Range.Text, Chr(13,"") next y next x end sub