Excel VBA从源工作表到目标工作表获取动态值

Sub GetValueFromSourceToTarget()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceValue As Variant
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 获取源工作表中的值
    sourceValue = sourceSheet.Range("A1").Value
    
    ' 将值复制到目标工作表
    targetSheet.Range("B1").Value = sourceValue
    
    ' 清除对象引用
    Set sourceSheet = Nothing
    Set targetSheet = Nothing
End Sub