Excel VBA:通过搜索其他表格在表格中插入单元格

Sub InsertCellFromOtherTable()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim searchValue As Variant
    
    ' 设置源表格和目标表格
    Set sourceSheet = Worksheets("源表格")
    Set targetSheet = Worksheets("目标表格")
    
    ' 设置源表格的搜索范围
    Set sourceRange = sourceSheet.Range("A1:A10")
    
    ' 设置目标表格的插入位置
    Set targetRange = targetSheet.Range("B1")
    
    ' 设置要搜索的值
    searchValue = "搜索值"
    
    ' 在源表格中搜索值
    Set foundCell = sourceRange.Find(searchValue)
    
    ' 如果找到了匹配的单元格，则在目标表格中插入单元格
    If Not foundCell Is Nothing Then
        foundCell.Copy
        targetRange.Insert Shift:=xlDown
        Application.CutCopyMode = False
    End If
End Sub