Excel VBA问题：将Sheet1行数据按规则转换至Sheet2行

原代码的核心问题 #

• 双层嵌套For Each循环逻辑错误：Sheet2的每个目标单元格会被Sheet1的所有源单元格依次赋值，最终所有目标单元格都会被最后一个源单元格的结果覆盖，完全无法实现逐单元格的一一对应。
• 未明确指定目标工作表：原代码中的Range("C35:AF35")默认指向当前激活的工作表，可能导致赋值到错误位置。

修正后的代码（两种实现方式） #

方法一：按单元格索引一一对应

Sub Convert()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim i As Integer
    
    ' 指定源表和目标表
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet2")
    
    ' 定义源数据区域和目标区域
    Set sourceRange = wsSource.Range("E40:AH40")
    Set targetRange = wsTarget.Range("C35:AF35")
    
    ' 按索引遍历，实现源与目标单元格的一一对应
    For i = 1 To sourceRange.Cells.Count
        If IsEmpty(sourceRange.Cells(i)) Then
            targetRange.Cells(i).Value = " "
        Else
            targetRange.Cells(i).Value = "*"
        End If
    Next i
End Sub

方法二：同步遍历两个区域的单元格

Sub Convert()
    Dim sourceCell As Range
    Dim targetCell As Range
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet2")
    
    ' 遍历源区域的每个单元格，同步定位到目标区域对应位置
    For Each sourceCell In wsSource.Range("E40:AH40").Cells
        ' 根据源单元格的相对偏移，找到目标单元格
        Set targetCell = wsTarget.Range("C35").Offset(0, sourceCell.Column - wsSource.Range("E40").Column)
        
        If IsEmpty(sourceCell) Then
            targetCell.Value = " "
        Else
            targetCell.Value = "*"
        End If
    Next sourceCell
End Sub

关键说明 #

• 明确指定工作表对象wsSource和wsTarget，避免因工作表切换导致的错误。
• 两种方法均保证源区域的第N个单元格对应目标区域的第N个单元格，严格实现逐单元格的规则转换。
• 使用IsEmpty判断单元格是否为空，完全匹配需求逻辑。

内容的提问来源于stack exchange，提问作者Pharewa Phusuwankul