VBA代码编译通过但无法在数据中间下方插入行，寻求解决方法

你的代码编译通过但没生效，核心问题是错误获取了数据行数：

• Worksheets("Insert Data").Range("A:A").Rows.count 返回的是Excel工作表的最大行数（比如Excel 2007+是1048576），不是你实际有数据的行数，导致插入位置落在了空白区域，看起来没效果。
• 另外原代码没处理奇数行数的情况，可能导致中间位置计算不准确。

修复后的代码 #

Dim ws As Excel.Worksheet
Set ws = Worksheets("Insert Data")

Dim count0 As Long
Dim count1 As Long
Dim count2 As Long

' 获取A列实际有数据的最后一行行号（从底部往上找第一个非空单元格）
count0 = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' 计算数据中间位置（用整数除法避免小数）
count2 = count0 \ 2
' 要在中间行下方插入，需在中间行的下一行上方插入
count1 = count2 + 1

' 执行插入操作
ws.Rows(count1).EntireRow.Insert

额外优化说明 #

1. 表头兼容：如果你的数据有表头（比如第1行是表头，数据从第2行开始），需要调整行数计算：

   ' 跳过第1行表头，计算数据区域的行数
   Dim dataRowCount As Long
   dataRowCount = count0 - 1
   count2 = dataRowCount \ 2 + 1 ' 表头下的中间数据行
   count1 = count2 + 1
   ws.Rows(count1).EntireRow.Insert
   

2. 奇数行数处理：用整数除法\会自动向下取整，比如9行数据，9\2=4，中间行是第4行，插入在第5行上方，正好是第4行下方，符合需求。
3. 简化写法：可以直接用ws.Rows(count1).Insert代替ws.Range("A" & count1).EntireRow.Insert，效果完全一致，代码更简洁。

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