查找字符串

Option Explicit

Sub FindString()

    Dim ws As Worksheet: Set ws = ActiveSheet ' improve
    
    Dim srg As Range: Set srg = ws.Range("A1:B4")

    Dim dCell As Range:
    Set dCell = ws.Cells(8, ws.Columns.Count).End(xlToLeft).Offset(, 1)
    
    Dim srrg As Range, sCell As Range
    
    For Each srrg In srg.Rows
        Set sCell = srrg.Find("Salary", , , xlWhole)
        If sCell Is Nothing Then
            dCell.Value = "NULL"
        Else
            dCell.Value = sCell.Offset(, 1).Value
        End If
        Set dCell = dCell.Offset(, 1)
    Next srrg

End Sub

你可以试试这个（未测试）：

If row.Cells.Find(What:="Salary") = True Then
  row.Cells.Find(What:="Salary").Offset(0, 1).Copy
  Range("A8").Find(What:="Salary").Offset(0, 1).Select
  If Not IsEmpty(ActiveCell) Then
   Range("A8:E8").End(xlToRight).Offset(0, 1).PasteSpecial
  ElseIf IsEmpty(ActiveCell) Then
    ActiveCell.PasteSpecial
  ElseIf row.Cells.Find(What:="Salary") = False Then
    Range("A8").Find(What:="Salary").Offset(0, 1).Select
    If Not IsEmpty(ActiveCell) Then
      Range("A8:E8").End(xlToRight).Offset(0, 1).Value = "NULL"
    ElseIf IsEmpty(ActiveCell) Then
      ActiveCell.Value = "NULL"
    End If
  End If
End If

Sub IF_Statement_test()
    Dim rng As Range
    Dim row As Range
    Dim cell As Range
    Dim salary As Variant
    Dim lastColumn As Long
    Dim destRow As Long
    
    Set rng = Range("A1:B4")
    destRow = ActiveSheet.UsedRange.Find("Salary Value", , , xlWhole).row
    
    For Each row In rng.Rows
        'find the salary value
        Set cell = row.Find("Salary", , , xlWhole)
        If cell Is Nothing Then
            salary = "Null"
        Else
            salary = cell.Offset(0, 1).Value
        End If
        
        
        lastColumn = Cells(destRow, Columns.Count).End(xlToLeft).Column
    
        Cells(destRow, lastColumn + 1).Value = salary
        
    Next row
    
End Sub