如何遍历各种单元格并在另一个工作表中返回值

Sub TraverseCells()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    Dim targetCell As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.Range("A1:D10") ' 设置源范围，可以根据实际情况调整
    Set targetRange = targetSheet.Range("A1:D10") ' 设置目标范围，可以根据实际情况调整
    
    ' 遍历源范围中的每个单元格
    For Each cell In sourceRange
        ' 在目标范围中查找与源单元格相同位置的单元格
        Set targetCell = targetRange.Cells(cell.Row, cell.Column)
        
        ' 在目标单元格中写入源单元格的值
        targetCell.Value = cell.Value
    Next cell
End Sub