excel - 在 VBA 中执行代码，找到一个特定的单元格，我想在单元格的顶部插入一个空白行......在这里我附加相同的数据

Question

我有一个包含大量数据的文件，在“C”列中我有下面提到的数据：

1   Sales Order
2   minute
3   Two
4   second
5   Three
6   Sales Order
7   minute
8   Two
9   second
10  Three
11  Sales Order
12  minute
13  Two
14  second
15  Three
16  Sales Order
17  minute
18  Two
19  second
20  Three

现在我想使用 VBA 代码在销售订单列的顶部插入一个空白行

Answer 1

mattboy 是正确的，您必须将代码放在您的问题中；不可能在评论中阅读。

注释中的代码包括：

Do While ActiveCell.Row = "Sales order

如果你省略它，编辑器会添加一个尾随双引号，所以我不明白这怎么可能是你的代码。

即使我更正了您的代码，我也不明白它在做什么。

您的问题是：“我想在销售订单列的顶部插入一个空白行”。您还说数据在 C 列中，所以我假设您想要 C1 下的空白单元格，并将该列的其余部分向下推。尝试：

With Worksheets("Sheet1")
  .Range("C2").Insert Shift:=xlShiftDown
End With