编写双列同步上移的VBA旋转代码（忽略空白单元格，范围A3-B18）

需求说明 #

• 针对A3:B18区域，实现两列数据同步向上旋转一行：顶部有数据的行移至末尾，下方行依次上移
• 仅处理包含数据的单元格，自动忽略空白行
• 示例规则：若A3/B3、A4/B4、A5/B5均有数据，则A4/B4上移至A3/B3，A5/B5上移至A4/B4，原A3/B3移至最后一个非空行的位置（对应需求描述的A6/B6为实际非空行的末尾位置）

现有代码问题 #

现有代码操作区域为A9:B24，与需求的A3:B18不符；且依赖Select/Selection这类低效易出错的操作，同时使用临时单元格中转，逻辑未实现"仅处理非空单元格"的核心要求。

优化后的VBA代码 #

Sub RotateNonEmptyRowsUp()
    Dim ws As Worksheet
    Dim targetRange As Range
    Dim nonEmptyRows As Collection
    Dim cell As Range
    Dim rowData As Variant
    Dim i As Integer
    
    ' 设置操作工作表（可修改为指定Sheet，如Sheet1）
    Set ws = ActiveSheet
    ' 定义目标操作区域
    Set targetRange = ws.Range("A3:B18")
    
    ' 收集所有非空行的两列数据
    Set nonEmptyRows = New Collection
    For Each cell In targetRange.Columns(1).Cells
        ' 判断当前行两列是否至少有一个非空
        If Not IsEmpty(cell) Or Not IsEmpty(cell.Offset(0, 1)) Then
            rowData = Array(cell.Value, cell.Offset(0, 1).Value)
            nonEmptyRows.Add rowData
        End If
    Next cell
    
    ' 非空行不足2行时无需旋转，直接退出
    If nonEmptyRows.Count < 2 Then Exit Sub
    
    ' 重新写入旋转后的数据
    Dim currentRow As Range
    Set currentRow = targetRange.Rows(1) ' 从A3/B3起始位置开始
    ' 写入第2到最后一行的非空数据
    For i = 2 To nonEmptyRows.Count
        currentRow.Cells(1, 1).Value = nonEmptyRows(i)(0)
        currentRow.Cells(1, 2).Value = nonEmptyRows(i)(1)
        Set currentRow = currentRow.Offset(1, 0)
    Next i
    ' 将原顶部行数据写入最后一个非空行位置
    currentRow.Cells(1, 1).Value = nonEmptyRows(1)(0)
    currentRow.Cells(1, 2).Value = nonEmptyRows(1)(1)
    
    ' 可选：清空原非空行之后的空白区域，保持整洁
    Dim lastNonEmptyRow As Long
    lastNonEmptyRow = targetRange.Rows(1).Row + nonEmptyRows.Count - 1
    If lastNonEmptyRow < targetRange.Rows(targetRange.Rows.Count).Row Then
        ws.Range(ws.Cells(lastNonEmptyRow + 1, "A"), ws.Cells(targetRange.Rows.Count + 2, "B")).ClearContents
    End If
End Sub

代码说明 #

1. 基础设置：指定操作的工作表和目标区域A3:B18，可根据实际场景修改工作表名称
2. 非空行筛选：遍历区域第一列，判断当前行两列是否存在数据，将有效行的两列数据存入集合
3. 旋转逻辑：
   • 非空行数量小于2时直接退出，避免无效操作
   • 将集合中第2到最后的数据依次写入目标区域的起始位置
   • 将原顶部行数据写入最后一个非空行的位置
4. 空白清理：可选步骤，清空目标区域内非空行之后的空白单元格，保持区域整洁

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