Question

我试图根据列是否删除特定范围＆＃34; C＆＃34;符合特定标准。

目前我有以下内容：

bmImage = result.copy(result.getConfig(), true);
listener.setBitmap(bmImage)
// Do stuff with the bitmap in setBitmap()

我想把它变成一个循环来搜索单元格＆＃34; C1＆＃34;通过＆＃34; C100＆＃34;对于单词＆＃34;所有值为百万美元。＆＃34;并删除相应的C至H范围。例如，如果它在＆＃34; C15＆＃34;中找到了值，它将删除范围（＆＃34; C15：H15＆＃34;）。

不幸的是，我还在学习，我尝试的所有循环都会产生错误。

Answer 1

您可以使用Excel的过滤功能：

With Sheet1.Range("C1:H100")
    .AutoFilter 1, "All values USD Millions."
    .Offset(1).Delete
    .AutoFilter
End With

但是，如果你想做一个经典的＆＃34;在迭代行时迭代和删除，请记住，在这些情况下，您应该迭代＆＃34;向后＆＃34; ：

Dim i as long
For i = Range("C999999").End(xlUp).Row to 1 Step -1
    If Cells(i, "C").Value2 = "All values USD Millions." Then Rows(i).Delete
Next

Answer 2

另一种快速方法是在没有逐行循环的情况下使用Find函数：

Option Explicit

Sub UseFindFunc()

Dim FindRng         As Range
Dim Rng             As Range
Dim LastRow         As Long
Dim TexttoFind      As String

TexttoFind = "All values USD Millions." ' <-- try to use variable, easy to modify later

With Sheet1
    LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row '<-- get last row with data in Column C
    Set Rng = .Range("C1:H" & LastRow)

    Set FindRng = Rng.Find(What:=TexttoFind, LookIn:=xlValues, LookAt:=xlWhole)
    While Not FindRng Is Nothing '<-- find was successful
        FindRng.Resize(, 5).Delete xlShiftUp '<-- delete column "C:H" in found row
        Set FindRng = Rng.Find(What:=TexttoFind, LookIn:=xlValues, LookAt:=xlWhole)
    Wend
End With

End Sub

Answer 3

尝试使用：

<body>
    <avatar-pic containerless></avatar-pic>
</body>

Answer 4

如果您不想删除A列和B列中的单元格，这对我有用：

Sub test()
Dim i As Integer
For i = 1 To 100
    If Range("C" & i) = "All values USD Millions." Then
        Range("C" & i & ":H" & i).Delete
    Else
        Range("A3").Select
    End If
Next
End Sub

Answer 5

如果您的数据不是静态的，您可以直到最后一行执行脚本或将i = 1设置为100以停在第100行

    Sub test()
    Dim lRow As Long

     lRow = WorksheetFunction.Max(Range("C65536").End(xlUp).Row, 
     Range("D65536").End(xlUp).Row, Range("E65536").End(xlUp).Row)

    With ActiveSheet
    For i = lRow To 2 Step -1
    If .Cells(i, "C").Value = "All values USD Millions." Then
      Range("C" & i & ":H" & i).ClearContents
    End If
   Next i
   End With


   End Sub

VBA Excel循环基于C列中的值删除范围

5 个答案: