是否有R函数来查找特定值并将其粘贴到右侧的下一个单元格（下一列相同的行号）

Question

I have a report that contains values in two columns (B:C), when column B has a value, column C has an empty cell for the same row.

What I want to achieve is to create a macro to search for a specific value (ie "Desktop") in the column A and if it matches the search, copy/cut the value and paste it one cell to the next column but in the same row (that is meant to be blank), so all the values are aligned in one column (ie "Desktop" found in A1, then paste it to B1 without creating a new column).

Example:

Answer 1

3 ways to get the job done.

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