1 Тема от natalya

  • natalya
  • рядовой
  • Неактивен
  • Зарегистрирован: 01.12.2015
  • Сообщений: 1

Тема: Копирование до определенной ячейки в колонке

В колонке  есть как пустые ячейки, так и ячейки с  разным текстом.Возможно ли написать макрос, который будет копировать текст ячейки в пустые ячейки  до ячейки с  другим текстом  и так далее.

2 Ответ от mikkelle

  • mikkelle
  • полковник
  • Неактивен
  • Зарегистрирован: 21.01.2010
  • Сообщений: 227
  • Поблагодарили: 12

Re: Копирование до определенной ячейки в колонке

Здравствуйте.
Получилось так:

Sub TextCellsCopy()
    With Selection
        If .Information(wdWithInTable) Then
            Dim i As Integer
            Dim CellText As String
            Dim CellNumber As Integer
            CellNumber = Selection.Information(wdStartOfRangeColumnNumber)
            For i = .Information(wdEndOfRangeRowNumber) To .Tables(1).Rows.Count
                .Tables(1).Rows(i).Cells(CellNumber).Range.Select
                If .Cells(1).Range.Characters.Count > 1 Then
                    CellText = Left(.Cells(1).Range.Text, .Cells(1).Range.Characters.Count - 1)
                Else
                    .Cells(1).Range.Text = CellText
                End If
            Next
        End If
    End With
    MsgBox "Вставка текста завершена!", vbOKOnly, "Окончание работы"
End Sub

Перед началом работы курсор устанавливаете в требуемой ячейке таблицы.

С уважением