需要删除电子表格中不相关的行

Question

为什么以下代码不会删除电子表格中不相关的行？

Sub Macro1Format() 

' 

' Macro1Format Macro 

' 

Dim i As Integer 

i = 0 

Do While (Range("A1").Value <> "Project ID") And (i < 100) 

    Range("1:1").Delete 

    i = i + 1 

Loop 
End Sub 

Answer 1

我会想要你想要的东西：

Sub Macro1Format() 
    Dim i As Integer
    i = 99
    For i = 99 To 1 Step -1
        If Range("A" & i).Value <> "Project ID" Then
           Range(i & ":" & i).Delete
        End If
    Next
End Sub  

您似乎已将1与i混淆，但在删除行时，最好从下往上开始，因为行数因任何行删除而发生变化。还有一些语法问题。