合并 2 个 if 语句

Question

在下面的 vba 代码中，我试图从一行中删除特定颜色。现在我想将 2 个 if 语句组合成 1 个 if 语句。现在我下面的代码正在运行，但如果添加更多颜色则效率低下。查找有关此问题的蓝色和红色的 if 语句。

Sub collapse_columns()
    Dim x As Integer
    For x = 1 To 4
        collapse_column x
    Next
End Sub


Sub collapse_column(column_number As Integer)

    Dim row As Long
    Dim s As Worksheet
    Dim last_row As Long
    Set s = ActiveSheet ' work on the active sheet
    'Set s = Worksheets("Sheet1") 'work on a specific sheet
    
    last_row = ActiveSheet.Cells(s.Rows.Count, column_number).End(xlUp).row
    
    For row = last_row To 1 Step -1
      If Cells(row, column_number).Value = "red" Then Cells(row, column_number).Delete xlUp
    Next


   For row = last_row To 1 Step -1
      If Cells(row, column_number).Value = "blue" Then Cells(row, column_number).Delete xlUp
    Next
    
    
End Sub

Answer 1

当我有很多可以触发相同代码的可能值时，我喜欢用一个字符串来保存这些值，然后搜索字符串以找到匹配项，如下所示：

Sub collapse_column(column_number As Integer)

    Dim row As Long
    Dim s As Worksheet
    Dim last_row As Long
    Set s = ActiveSheet ' work on the active sheet
    'Set s = Worksheets("Sheet1") 'work on a specific sheet
    
    last_row = ActiveSheet.Cells(s.Rows.Count, column_number).End(xlUp).row
    
    Dim colors_to_delete As String
    colors_to_delete = ",red,blue," ' be sure to keep the leading and trailing commas
    
    For row = last_row To 1 Step -1
      If InStr(1, colors_to_delete, "," & Cells(row, column_number).Value & ",") > 0 Then Cells(row, column_number).Delete xlUp
    Next
    
End Sub

合并 2 个 if 语句

combine 2 if statements

excel

vba

if-statement

nested

conditional-statements