如何让VBA循环处理下一行数据直至无数据？

优化后的VBA代码（循环处理多行） #

Sub ProcessRows()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取P列最后有数据的行号（若需以其他列判断空行，可将"P"改为对应列标，如"T"）
    lastRow = Cells(Rows.Count, "P").End(xlUp).Row
    
    ' 从第7行开始循环，直至最后一行有数据的行
    For i = 7 To lastRow
        ' 复制当前行的P、T列单元格，粘贴到A列对应位置（P7→A5，P8→A6，以此类推）
        Range("P" & i & ",T" & i).Copy Destination:=Cells(i - 2, "A")
        
        ' 将B2的值直接赋值给当前行的X列，替代复制粘贴值操作（更高效）
        Range("X" & i).Value = Range("B2").Value
    Next i
    
    ' 清除剪切板状态
    Application.CutCopyMode = False
End Sub

代码说明 #

• 剔除冗余操作：移除原代码中低效且易出错的Select/Activate，直接通过Range对象操作单元格
• 动态识别边界：自动获取P列最后有数据的行号，无需手动指定循环终止位置
• 核心逻辑实现：
  1. 按行遍历处理，将当前行P、T列内容复制到A列对应位置（第7行对应A5，第8行对应A6，以此类推）
  2. 直接赋值替代粘贴值操作，大幅提升代码运行效率
• 灵活调整项：若需将P、T列内容追加到A列空白区域（而非固定对应行），可将Destination:=Cells(i - 2, "A")修改为Destination:=Cells(Rows.Count, "A").End(xlUp).Row + 1

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