[Excel][VBA]从另一个工作表查找值并复制它的BG

Sub FindAndCopyValue()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim searchValue As Variant
    Dim foundCell As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.Range("A1:A100") ' 设置源范围的起始单元格和结束单元格
    Set targetRange = targetSheet.Range("B1:B100") ' 设置目标范围的起始单元格和结束单元格
    
    ' 设置要查找的值
    searchValue = "要查找的值"
    
    ' 在源范围中查找值
    Set foundCell = sourceRange.Find(searchValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 如果找到了匹配的单元格，则复制它的BG到目标范围
    If Not foundCell Is Nothing Then
        foundCell.Offset(0, 65).Copy targetRange ' 复制找到的单元格的BG到目标范围
    Else
        MsgBox "未找到匹配的值。"
    End If
End Sub