Excel宏问题求助：数据复制异常及整列范围简化需求

嘿，作为VBA新手碰到这些问题太正常了，我帮你拆解下代码里的问题，再给出修正后的版本：

原代码的核心问题 #

• 重复的复制+剪切操作：你先复制再剪切，其实剪切本身就会把数据移过去，复制完全多余，反而可能导致数据处理混乱
• 循环起始行错误：你的循环从i=1开始，但数据是从Sheet2的A2/B2粘贴的，第一行大概率是表头，这会导致实际数据行可能没被遍历到，部分Updated标记缺失
• 固定范围限制：硬编码A2:A9999会漏掉超出范围的数据，也会无效处理空行，效率很低

修正后的代码 #

Sub CopyData()
    Dim i As Long
    Dim wr As Excel.Worksheet
    Dim sourceWs As Excel.Worksheet
    Dim lastRowSource As Long
    Dim lastRowDest As Long
    
    ' 定义工作表对象，避免硬编码出错
    Set sourceWs = ThisWorkbook.Worksheets("SampleFile")
    Set wr = ThisWorkbook.Worksheets("Sheet2")
    
    ' 获取SampleFile中A列最后一行（动态范围）
    lastRowSource = sourceWs.Cells(sourceWs.Rows.Count, "A").End(xlUp).Row
    
    ' 一次性剪切A、B列有效数据到Sheet2（从A2开始粘贴）
    sourceWs.Range("A2:B" & lastRowSource).Cut wr.Range("A2")
    
    ' 获取Sheet2中B列最后一行，确定遍历范围
    lastRowDest = wr.Cells(wr.Rows.Count, "B").End(xlUp).Row
    
    ' 遍历B列，标记Updated（用Select Case简化多条件判断）
    For i = 2 To lastRowDest ' 从第2行开始，跳过表头
        Select Case wr.Range("B" & i).Value
            Case "FXV", "FST", "FLB", "FFH", "FFJ"
                wr.Range("C" & i).Value = "Updated"
            ' 可按需添加Else分支处理其他值，比如：
            ' Case Else
            '     wr.Range("C" & i).ClearContents
        End Select
    Next i
End Sub

关键改进点说明 #

• 动态范围获取：用.Cells(Rows.Count, "A").End(xlUp).Row自动定位数据最后一行，再也不用硬编码行数
• 简化数据移动：一次性剪切A+B列的有效数据，比分开操作更高效，还能避免数据错位
• 循环范围修正：从第2行开始遍历，确保只处理实际数据行，不会漏掉或误处理表头
• 多条件判断优化：用Select Case替代多个ElseIf，代码更简洁易维护，后续加新值直接在Case里追加就行
• 变量规范：明确定义源工作表和目标工作表，避免因工作表名称变化导致出错

内容的提问来源于stack exchange，提问作者Akshay Chari