如何在VBA的IF THEN语句中添加多值条件及筛选31-50数值

嘿，我来帮你搞定这两个VBA里的条件判断问题，都是日常写代码时的常见场景：

1. 如何在IF THEN语句中添加多个值？ #

在VBA的If...Then语句里，要实现多条件判断，主要分两种场景处理：

• 多个等值匹配：用Or连接不同的等值条件，比如要匹配"30.00"或者"31.00"，可以这么写：

  If Cells(i, 10).Value = "30.00" Or Cells(i, 10).Value = "31.00" Then
      ' 这里写满足条件后要执行的操作
  End If
  

• 区间范围判断：用And连接上下限条件，比如判断数值在31到50之间（包含边界值）：

  If Cells(i, 10).Value >= 31 And Cells(i, 10).Value <= 50 Then
      ' 这里写满足条件后要执行的操作
  End If
  

如果单元格里是文本格式的数值，建议先用Val()函数转成数值类型再比较，避免因格式问题导致判断出错。

2. 修改VBA代码以查找31到50之间的数值 #

你的原代码只匹配字符串"30.00"，现在我帮你调整条件覆盖31到50的数值范围，同时优化代码的效率（去掉不必要的Activate和Select操作，这是VBA写代码的小技巧哦）：

修改后的完整代码：

Private Sub CommandButton1_Click()
    Dim testWs As Worksheet
    Dim aboveWs As Worksheet
    Dim lastRowTest As Long
    Dim lastRowAbove As Long
    Dim i As Long
    
    ' 提前定义工作表对象，减少重复调用，提升代码效率
    Set testWs = ThisWorkbook.Worksheets("Test")
    Set aboveWs = ThisWorkbook.Worksheets("Above")
    
    lastRowTest = testWs.Cells(testWs.Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To lastRowTest
        ' 转换为数值后判断是否在31-50区间（包含边界）
        If Val(testWs.Cells(i, 10).Value) >= 31 And Val(testWs.Cells(i, 10).Value) <= 50 Then
            lastRowAbove = aboveWs.Cells(aboveWs.Rows.Count, 1).End(xlUp).Row
            ' 直接复制到目标位置，无需激活和选择工作表
            testWs.Rows(i).Copy Destination:=aboveWs.Cells(lastRowAbove + 1, 1)
        End If
    Next i
    
    ' 清理剪贴板，避免残留复制状态
    Application.CutCopyMode = False
End Sub

代码修改要点说明： #

• 用Dim声明所有变量，符合VBA的最佳实践（建议开启Option Explicit强制变量声明，避免拼写错误）
• 定义工作表对象，避免重复调用Worksheets，让代码更易读且高效
• 用Val()函数转换单元格值为数值，兼容文本格式的数值，避免判断失效
• 去掉了冗余的Activate和Select操作，直接通过Copy Destination完成复制，代码更简洁流畅

内容的提问来源于stack exchange，提问作者Girish Angal