Консультация № 69533
04.01.2007, 16:36
0.00 руб.
0 1 1
добрый день!
В VBA и макросах "разбираюсь"!
Имеются столбцы(B, C, D, E) заполнены текстом. необходимо объединить текст в стобце В и С между ними пробел
(В1=В1+пробел+С1). Также столбец D, D1=D1+пробел+Е1. при обнаруженни в столбце 1-й попавштийся пустой ячейке, выити из цикла.
спасибо.

Обсуждение

Неизвестный
04.01.2007, 18:31
общий
это ответ
Здравствуйте, Wera-d!
Попробуйте выполнить следующую процедуру.
Удачи.
Евгений.

Приложение:
Sub MergeCells()Dim i As Integeri = 1Do Until Cells(i, 2) = "" Or Cells(i, 3) = "" Or _Cells(i, 4) = "" Or Cells(i, 5) = "" Cells(i, 2) = Cells(i, 2) & Chr(32) & Cells(i, 3) Cells(i, 3) = Chr(0) ‘если надо очистить Cells(i, 4) = Cells(i, 4) & Chr(32) & Cells(i, 5) Cells(i, 5) = Chr(0) ‘если надо очистить i = i + 1LoopEnd Sub
Форма ответа