为何使用VBA中Rows.Count仅能识别数据源前12行数据？

嘿，这个问题挺有意思——处理大数量行正常，小批量反而掉链子，多半是代码里的某些判断逻辑在小数据集下触发了意外终止，或者行计数/循环的细节没处理好。咱们从你给出的代码片段和场景入手，一步步排查：

1. 变量类型的隐性坑 #

你用了Integer类型存储行计数，虽然19行远没到Integer的上限（-32768到32767），但VBA里Integer很容易在复杂场景下出问题，比如如果数据源里有隐藏行、筛选状态，或者计数逻辑有偏差时，可能会导致计数不准。更稳妥的做法是把行计数变量改成Long——这是VBA处理行号的标准类型，不会有任何副作用：

Dim sourceDataRowCount As Long, index As Long

2. 数据行计数逻辑错误 #

如果你的sourceDataRowCount是通过Cells(Rows.Count, "某列").End(xlUp).Row获取的，那要确保你选的列是每一行数据都非空的列（比如主键列）。要是你选的列在第13行之后有空白单元格，哪怕其他列有数据，这个方法也会只计数到12行。

举个正确获取总行数的例子（假设数据从A列开始，且A列无空行）：

sourceDataRowCount = Header_Raw.Cells(Header_Raw.Rows.Count, "A").End(xlUp).Row

如果数据列可能有空值，也可以用UsedRange来获取，但要注意减去表头行：

' 假设表头占1行
sourceDataRowCount = Header_Raw.UsedRange.Rows.Count - 1

3. 循环提前终止 #

会不会你的代码里有类似If ... Then Exit For的判断，在第12行之后触发了退出循环？比如某个单元格的值不符合预设条件，导致循环提前停了？你可以在循环里加个调试语句，看看循环到底走到哪一步：

For index = 2 To sourceDataRowCount
    Debug.Print "当前处理行：" & index ' 按Ctrl+G打开立即窗口看输出
    ' 你的复制逻辑
Next index

这样就能明确是循环没走完，还是复制的时候没正确写入目标表。

4. 目标表写入位置错误 #

如果是复制时目标表的行指针没正确递增，每次都写到同一行覆盖之前的内容，看起来就像是只复制了前12行。比如你固定用Header.Cells(2, 1)作为写入起点，那后面的内容会覆盖前面的。正确的做法是每次写入后让目标行递增：

' 初始化目标起始行
Dim destRow As Long
destRow = 2

For index = 2 To sourceDataRowCount
    ' 复制源表的列到目标表的对应位置
    Header.Cells(destRow, "B").Value = Header_Raw.Cells(index, "A").Value
    Header.Cells(destRow, "D").Value = Header_Raw.Cells(index, "C").Value
    ' 目标行加1，准备下一行写入
    destRow = destRow + 1
Next index

快速测试建议 #

你可以先跑个简化版的测试宏，确认行计数和循环是否正常：

Sub TestRowCount()
    Dim Header_Raw As Worksheet
    Set Header_Raw = ThisWorkbook.Sheets("你的源数据工作表名")
    Dim sourceDataRowCount As Long
    sourceDataRowCount = Header_Raw.Cells(Header_Raw.Rows.Count, "A").End(xlUp).Row
    Debug.Print "检测到的总行数：" & sourceDataRowCount
    Dim index As Long
    For index = 2 To sourceDataRowCount
        Debug.Print "正在处理行：" & index
    Next index
End Sub

如果立即窗口里显示总行数是19，且循环走到19，那问题出在复制写入的逻辑；如果总行数显示12，那就是行计数的代码有问题。

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