Страницы: 1
RSS
Добавить символ в конце всех ячеек с записями в определенных столбцах, макросом, т.к. таблица очень большая
 
Здраствуйте уважаемые форумчане!

ДАНО. Документ с определенной структурой

ЗАДАЧА.
Добавить в конце каждой ячейки в которой есть запись столбцов Name определенный символ (например черточку "-").
Пустые ячейки оставить пустыми.
Также добавить символ но уже другой (например "*") в конце заполненных ячеек столбцов Value.

НУЖНЫЙ РЕЗУЛЬТАТ



Задачу нужно решить макросом т.к. таблица очень большая и их много.

Буду ОЧЕНЬ благодарен за помощь знающим людям.
 
Изменено: yuraok - 12.07.2020 17:57:48
 
Код
Sub Macro1()
Dim LastRow As Long, LastColumn As Long, i As Long, j As Long
    LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    For j = 3 To LastColumn - 1 Step 2
        LastRow = Cells(Rows.Count, j).End(xlUp).Row
        If LastRow > 1 Then
            For i = 2 To LastRow
                If Cells(i, j) <> "" Then Cells(i, j) = Cells(i, j) & "-"
            Next
        End If
    Next
End Sub
 
Юрий М, Спасибо большое.
Страницы: 1
Наверх