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