1

Тема: Копирование информации только в пустые ячейки таблицы

Есть таблица, в одной из колонок которой есть как пустые ячейки, так и ячейки с текстом. В другой колонке все ячейки заполнены. Возможно ли написать макрос, который будет копировать только в пустые ячейки первой колонки содержимое соответствующих ячеек (с той же строки) второй колонки? Содержимое заполненных ячеек в первой колонке изменять не нужно.

2

Re: Копирование информации только в пустые ячейки таблицы

Поставьте курсор в первую ячейку столбца с пустыми ячейками и запустите макрос

Sub FillEmptyCells()
    While Selection.Information(wdWithInTable)
        With Selection.Cells(1)
            If Len(.Range.Text) = 2 Then
                .Range.Text = .Next.Range.Text
            End If
        End With
        Selection.MoveDown Count:=1
    Wend
End Sub
Лучше день потерять — потом за пять минут долететь!