基于单元格值循环遍历另一个工作簿中的范围

Sub LoopThroughCellsAndOperateOnAnotherWorkbook()
    Dim wbSource As Workbook
    Dim wbTarget As Workbook
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim rngSource As Range
    Dim rngTarget As Range
    Dim cell As Range
    Dim value As Variant
    
    ' 打开源工作簿
    Set wbSource = Workbooks.Open("C:\path\to\source\workbook.xlsx")
    Set wsSource = wbSource.Sheets("Sheet1")
    Set rngSource = wsSource.Range("A1:A10") ' 假设我们要遍历的范围是A1到A10
    
    ' 打开目标工作簿
    Set wbTarget = Workbooks.Open("C:\path\to\target\workbook.xlsx")
    Set wsTarget = wbTarget.Sheets("Sheet1")
    Set rngTarget = wsTarget.Range("B1:B10") ' 假设我们要操作的范围是B1到B10
    
    ' 循环遍历源工作簿中的单元格
    For Each cell In rngSource
        value = cell.Value ' 获取单元格的值
        
        ' 根据源工作簿中的值在目标工作簿中进行操作
        If value <> "" Then
            rngTarget.Value = value ' 示例操作：将值复制到目标范围
        End If
    Next cell
    
    ' 关闭工作簿
    wbSource.Close SaveChanges:=False
    wbTarget.Close SaveChanges:=True
End Sub