Есть ли функция R для нахождения определенного значения и вставки его в следующую ячейку справа (следующий столбец с тем же номером строки) - PullRequest
0 голосов
/ 14 января 2019

У меня есть отчет, который содержит значения в двух столбцах (B: C), когда столбец B имеет значение, столбец C имеет пустую ячейку для той же строки.

Чего я хочу добиться, так это создать макрос для поиска определенного значения (например, «Рабочий стол») в столбце A, и, если он соответствует поиску, скопируйте / вырежьте значение и вставьте одну ячейку в следующий столбец. но в той же строке (которая должна быть пустой), поэтому все значения выровнены в одном столбце (т. е. «Рабочий стол», найденный в A1, затем вставьте его в B1 без создания нового столбца).

Пример:

enter image description here

1 Ответ

0 голосов
/ 15 января 2019

3 способа выполнить работу.

Dim cel As Range

    'This will search for "Desktop" and copy it to the cell on the right.
    For Each cel In Range("B2", Range("B" & Rows.Count).End(xlUp))
        If cel.Value = "Desktop" Then
            cel.Offset(, 1).Value = cel.Value
            'The line below will remove "Desktop" from the cell if required
            'cel.ClearContents
        End If
    Next cel

    'Or

    'This will search for "Desktop", insert a cell and shift to the right.
    For Each cel In Range("B2", Range("B" & Rows.Count).End(xlUp))
        If cel.Value = "Desktop" Then
            cel.Insert Shift:=xlToRight
        End If
    Next cel

    'Or

    'This will search for any empty cell in Col C and copy the value from Col B.
    For Each cel In Range("C2", Cells(Rows.Count, 3).End(xlUp))
        If cel.Value = "" Then cel.Value = cel.Offset(, -1).Value

        'The line below will remove "Desktop" from the cell if required
        'cel.Offset(, -1).ClearContents
    Next cel
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...