Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Объединение ячеек с переносом строк после вставки из word
 
#1
08.08.2011 15:28:08
Здравствуйте.  
Имеется "номенклатура работ и услуг в здравоохранении" - таблица очень большая (в примере приведен небольшой фрагмент)таблица доступна  Консультант+ в word при копировании в excel для дальнейших расчетов часть ячеек в строках которых были длинные наименования (с переносом) скопировались как объединенные. Необходимо преобразовать так, что бы шифр,код, наименования, ует врача, ует м/с - были каждая в своей ячейке, но в одной строке.  
 
Заранее благодарен. Семён.  
 
p.s.: что такое макросы теоретически знаю, но на практике не применял :)  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
 
 
#2
08.08.2011 15:46:19
Извиняюсь, вот уменьшенный файл с возникшей проблеммой.
 
 
 
#3
08.08.2011 15:57:53
Простой макрос, без изысков
 
 
 
#4
08.08.2011 16:50:33
{quote}{login=webley}{date=08.08.2011 03:57}{thema=}{post}Простой макрос, без изысков{/post}{/quote}  
Спасибо огромное!  
Я этот файл раньше скачивал, но применить макрос не смог - выделял только проблемный столбец. А теперь с Вашим макросом выделил табличку целиком и все получилось!!!  
Еще раз спасибо.
 
 
 
#5
08.08.2011 18:24:40
А можно еще и в ворде замена символов - специальные - разрыв строки, заменить на пустое место и весь текст  одной сроке и при копировании в excel все в одной строчке.
 
 
 
#6
09.08.2011 04:48:46
Cells(r - 1, 3) = WorksheetFunction.Trim(Replace(Cells(r - 1, 3) & " " & Cells(r, 3), vbLf, " "))
Я сам - дурнее всякого примера! ...
 
 
 
#7
09.08.2011 09:20:44
{quote}{login=webley}{date=08.08.2011 03:57}{thema=}{post}Простой макрос, без изысков{/post}{/quote}  
Странно вчера работало, а сегодня запускаю тот же макрос, а он объединяет ячейки с потерей данных :(
 
 
 
#8
09.08.2011 09:33:26
{quote}{login=dmmur}{date=09.08.2011 09:20}{thema=Re: }{post}{quote}{login=webley}{date=08.08.2011 03:57}{thema=}{post}Простой макрос, без изысков{/post}{/quote}  
Странно вчера работало, а сегодня запускаю тот же макрос, а он объединяет ячейки с потерей данных :({/post}{/quote}  
 
пример покажите, где данные теряются
 
 
 
#9
09.08.2011 09:50:28
{quote}{login=webley}{date=09.08.2011 09:33}{thema=Re: Re: }{post}{quote}{login=dmmur}{date=09.08.2011 09:20}{thema=Re: }{post}{quote}{login=webley}{date=08.08.2011 03:57}{thema=}{post}Простой макрос, без изысков{/post}{/quote}  
Странно вчера работало, а сегодня запускаю тот же макрос, а он объединяет ячейки с потерей данных :({/post}{/quote}  
 
пример покажите, где данные теряются{/post}{/quote}  
Вот пример. Пока использую удаление строк в word, но он при работе сбольшими таблицами "виснет"
 
 
 
#10
09.08.2011 10:01:56
Ну правильно, вчера таблица другая была. Либо добавляйте первый столбец (даже если он будет пустой), либо в макросе 3-ки исправляйте на 2-ки - вот так:  
Sub test()  
   Dim r As Long  
   For r = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1  
       If Cells(r, 1) = "" Then  
           Cells(r - 1, 2) = WorksheetFunction.Trim(Cells(r - 1, 2) & " " & Cells(r, 2))  
           Rows®.Delete  
       End If  
   Next r  
End Sub
 
 
 
#11
09.08.2011 10:03:17
Да, если решите добавлять столбец, то надо строку  
If Cells(r, 1) = "" Then  
заменить на  
If Cells(r, 2) = "" Then
 
 
 
#12
09.08.2011 10:10:40
{quote}{login=webley}{date=09.08.2011 10:03}{thema=}{post}Да, если решите добавлять столбец, то надо строку  
If Cells(r, 1) = "" Then  
заменить на  
If Cells(r, 2) = "" Then{/post}{/quote}  
 
Понятно.Спасибо. Подскажите, а Visual Basic сложен в освоении? Когда-то давно-давно в школе даже простенькие програмки на бейсике (на Агатах - такие компьютеры были :) писал.  
Ведь VB есть и в ворде и в кореле и вообще можно самостоятельные программы писать.
 
 
 
Страницы: 1
Читают тему
Loading...