如何在值不重复彼此VBA代码后写入插入新行？

Question

我有一个列有数字的列：

66234 
666575 
66567 
665687 
66090 
66000

我需要编写检测“77”+ SomeNumber何时启动的代码。并在新数字之间插入空行。

我应该使用什么命令？

Answer 1

尝试以下方法：

Sub InsertRow()

Dim i As Long
Dim n As Long

n = Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To n
    If Left(Cells(i, 1), 2) = 77 Then
        Cells(i + 1, 1).EntireRow.Insert
    End If
Next i

End Sub

将n=...中的1替换为包含主数字的列 将cells(i,1)和for i =1替换为相应的行，从以下开始：）