Excel 在VBA中编写代码时，查找一个特定的单元格，我想在单元格顶部插入一个空行…这里我附加了相同的数据

我有一个包含大量数据的文件，在“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代码在销售订单列顶部插入一个空行

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

注释中的代码包括：

Do While ActiveCell.Row = "Sales order

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

即使我更正了你的代码，我也不明白它想做什么

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

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

---

试着录制一个宏来做你想做的事情，然后查看代码。我知道基本的编码……这里是我的代码…………范围（“c5”）。选择范围（选择，选择。结束（xlDown））。选择活动单元格。偏移量（1，0）。选择单元格。查找（内容：=“销售订单”，之后：=ActiveCell，LookIn:=xlFormulas，LookAt:=xlPart，SearchOrder:=xlByRows，SearchDirection:=xlNext，MatchCase:=False，SearchFormat:=False）。激活Do While ActiveCell.Row=“销售订单ActiveCell.EntireRow.Insert shift:=xlDownActiveCell.Offset（2，0）。选择Cells.FindNext（之后：=ActiveCell）。激活循环结束子编辑您的问题，并将代码放在其中