Excel VBA技术问询：如何修改Activecell.Offset行消除目标表空白

当然可以调整代码里的ActiveCell.Offset相关逻辑来搞定这个问题！核心问题在于你原来的写法是把原表的行号直接对应到目标表的行号——原表哪一行有空或者人员不可用，目标表对应位置就会空出来。要实现连续排列，我们得换个思路：用一个独立的计数器来跟踪目标表的写入位置，只在找到可用人员时才推进这个计数器。

具体修改步骤 #

1. 添加目标行计数器：在代码开头声明一个变量，用来记录目标表下一个要写入的行号，比如：

Dim targetRow As Integer
targetRow = 2 ' 假设目标表（Sheet2）的第1行是表头，从第2行开始写数据

2. 替换Offset写入逻辑：把原来跟着原表行号走的Offset写法，改成基于计数器的写入。举个例子，假设你原来的代码是这样的（简化版）：

' 原代码（问题版）
For i = 2 To lastRow
    If Sheets("Sheet1").Range("B" & i).Value = "可用" Then
        Sheets("Sheet1").Range("A" & i).Copy
        Sheets("Sheet2").ActiveCell.Offset(i - 1, 0).PasteSpecial ' 这里会跟着原表行号走，导致空白
    End If
Next i

修改后应该改成：

' 修改后的代码
Dim targetRow As Integer
targetRow = 2
Dim lastRow As Integer
lastRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To lastRow
    ' 你的可用性判断逻辑，这里以状态为"可用"为例
    If Sheets("Sheet1").Range("B" & i).Value = "可用" Then
        ' 直接写入目标表的targetRow行，不用Offset绑定原表行号
        Sheets("Sheet2").Range("A" & targetRow).Value = Sheets("Sheet1").Range("A" & i).Value
        ' 写完后计数器加1，准备写下一个可用人员
        targetRow = targetRow + 1
    End If
Next i

为什么这样有效？ #

这个写法不再依赖原表的行号来定位目标表的位置，而是每找到一个符合条件的人员，就往目标表的下一个连续行写入，写完立刻把计数器加1。这样不管原表有多少空白行或者不可用人员，目标表的可用人员都会紧紧挨着，完全不会出现空白。

如果你坚持要用ActiveCell.Offset的话，也可以——只要把Offset的参数改成基于计数器的增量。比如先定位到目标表的起始单元格，然后每次写入后用Offset(1, 0).Select来移动到下一行，不过直接用Range("A" & targetRow)的写法更稳定，不容易因为单元格选中状态变化出问题。

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