如何使用for each循环将信息传输到另一个工作表中？

Sub TransferData()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim rngSource As Range
    Dim rngTarget As Range
    Dim cell As Range
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet2")
    
    ' 设置源数据范围
    Set rngSource = wsSource.Range("A1:A10") ' 假设要传输的信息在A1:A10范围内
    
    ' 设置目标数据起始位置
    Set rngTarget = wsTarget.Range("A1") ' 假设目标数据从A1单元格开始
    
    ' 使用for each循环遍历源数据范围
    For Each cell In rngSource
        ' 将源数据复制到目标工作表
        rngTarget.Value = cell.Value
        
        ' 将目标数据范围向下移动一行
        Set rngTarget = rngTarget.Offset(1, 0)
    Next cell
End Sub