Excel中用公式、VB/C#实现行移动/插入空行及VB代码排查

我明白你的需求——要么根据MoveToRow列把文本移动到目标行，要么根据InsertThisManyRowsAfter列在指定行后插入对应数量的空行。先说说你那段VB代码出问题的原因，再给你修正后的方案，顺便补充其他实现思路。

原VB代码的问题分析 #

你的代码出现插入行数过多且集中的问题，主要有这几个原因：

1. 正向循环的行号偏移：你从第1行到第100行正向循环，插入行之后，后续的行都会往下偏移，导致下一次循环的ActiveCell.Offset(1,0)会跳到新插入的空行上，重复处理这些空行，自然会插多了。
2. 插入行数计算错误：Rows(y & ":" & y + z).Insert是插入z+1行（因为y到y+z一共是z+1行），而不是你需要的z行，这直接导致插入数量翻倍。
3. 固定行数不合理：你硬写了NumRows=100，如果实际数据行数少于100，会处理空行；多于100则会漏处理。

解决方案一：按InsertThisManyRowsAfter插入空行（修正后的VB代码） #

改成反向循环（从最后一行往第一行处理），这样插入行只会影响已经处理过的下方行，不会打乱未处理行的位置。代码如下：

Sub InsertRowsAfter()
    ' 指定要操作的工作表，避免误操作其他表
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换成你的工作表名
    
    ' 动态获取I列（InsertThisManyRowsAfter列）的最后一行数据行
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row
    
    ' 从最后一行反向循环到第2行（假设第1行是表头）
    Dim i As Long
    For i = lastRow To 2 Step -1
        Dim insertCount As Long
        insertCount = ws.Cells(i, "I").Value
        
        ' 只在需要插入时操作
        If insertCount >= 1 Then
            ' 在当前行下方插入insertCount行
            ws.Rows(i + 1 & ":" & i + insertCount).Insert Shift:=xlShiftDown
        End If
    Next i
End Sub

解决方案二：按MoveToRow移动内容到目标行 #

如果是要把动物字段移动到MoveToRow指定的行，同时留出空行，同样用反向循环避免行号混乱，代码如下：

Sub MoveToTargetRow()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取动物列（A列）的最后一行
    Dim dataLastRow As Long
    dataLastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 获取最大的目标行号，确保工作表有足够的行
    Dim maxTargetRow As Long
    maxTargetRow = Application.Max(ws.Range("B:B")) ' B列是MoveToRow列
    If maxTargetRow > ws.Rows.Count Then
        ws.Rows(ws.Rows.Count & ":" & maxTargetRow).Insert Shift:=xlShiftDown
    End If
    
    ' 反向循环处理，避免移动后行号变化影响后续操作
    Dim i As Long
    For i = dataLastRow To 1 Step -1
        Dim targetRow As Long
        targetRow = ws.Cells(i, "B").Value
        Dim animalText As String
        animalText = ws.Cells(i, "A").Value
        
        ' 将文本移动到目标行
        ws.Cells(targetRow, "A").Value = animalText
        ' 清空原行内容
        ws.Cells(i, "A").Value = ""
    Next i
End Sub

额外思路：用Excel公式实现（适合简单场景） #

如果不想用VBA，也可以用公式在新列生成结果（假设A列是动物，B列是MoveToRow）：
在C1单元格输入以下公式，下拉填充：

=IF(ROW()=INDEX(B:B,MATCH(ROW(),B:B,0)),INDEX(A:A,MATCH(ROW(),B:B,0)),"")

注意：这个公式要求MoveToRow的行号是唯一的，否则会出现匹配错误。

C#实现思路 #

如果你想用C#处理，可以用Microsoft.Office.Interop.Excel库（需要先安装对应的NuGet包），核心逻辑和VB一致，反向循环处理：

using Microsoft.Office.Interop.Excel;
using System;

namespace ExcelRowOperation
{
    class Program
    {
        static void Main(string[] args)
        {
            Application excelApp = new Application();
            Workbook workbook = excelApp.Workbooks.Open(@"C:\YourExcelFile.xlsx");
            Worksheet worksheet = workbook.Worksheets["Sheet1"];
            
            // 获取InsertThisManyRowsAfter列（I列）的最后一行
            int lastRow = worksheet.Cells[worksheet.Rows.Count, "I"].End(XlDirection.xlUp).Row;
            
            // 反向循环插入行
            for (int i = lastRow; i >= 2; i--)
            {
                int insertCount = Convert.ToInt32(worksheet.Cells[i, "I"].Value);
                if (insertCount >= 1)
                {
                    worksheet.Rows[i + 1, i + insertCount].Insert(XlInsertShiftDirection.xlShiftDown);
                }
            }
            
            workbook.Save();
            workbook.Close();
            excelApp.Quit();
        }
    }
}

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