Vba一列如果有大于等于20值的就删除这一整

列，可以使用以下代码：

Sub DeleteColumnIfValueGreaterThan20()
    Dim lastRow As Integer
    Dim i As Integer
    Dim deleteColumn As Boolean
    
    deleteColumn = False
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row '获取最后一行的行数
    
    For i = 1 To lastRow '遍历每一行
        If Cells(i, 1).Value >= 20 Then '如果该单元格的值大于等于20
            deleteColumn = True '设置删除标志为真
            Exit For '跳出循环
        End If
    Next i
    
    If deleteColumn = True Then '如果删除标志为真
        Columns("A").Delete '删除整列
    End If
End Sub

这个代码会遍历第一列的每一个单元格，如果发现有一个单元格的值大于等于20，则会将删除标志设置为真，并退出循环。然后判断删除标志是否为真，如果为真，则删除整个A列。

相关问题

Vba判断K列中如果大于等于20就删除整行

以下是一个VBA代码示例，可以删除K列中大于等于20的整行：

Sub DeleteRows()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, "K").End(xlUp).Row
    
    For i = lastRow To 2 Step -1
        If Cells(i, "K").Value >= 20 Then
            Rows(i).Delete
        End If
    Next i
End Sub

这个代码首先找到包含数据的最后一行，然后从下往上循环遍历每一行。如果K列的值大于等于20，则删除整行。请注意，我们从下往上循环，这样我们就可以安全地删除行，而不会影响我们未遍历的行。

用vba实现，wb是workbook,如果当前日期是星期一，则删除wb中b列日期不是前天日期的资料，如果当前日期不是星期一，则删除wb中b列日期不是昨天日期的资料，

在VBA中，你可以通过以下步骤实现这个功能：

1. 首先，获取当前日期并判断是否是星期一。可以使用`Weekday()`函数返回日期是一周中的哪一天，0表示星期日，1表示星期一。例如：

Dim currentDate As Date
currentDate = Date
If Weekday(currentDate) = vbMonday Then ' 如果是星期一
    ' 接下来的操作针对前天的日期
Else
    ' 否则操作针对昨天的日期
End If

2. 确定删除的基准日期。如果是星期一，基准日期就是前天；如果不是，就是昨天。可以使用`DateAdd()`函数计算出来：

Dim baseDate As Date
If Weekday(currentDate) = vbMonday Then
    baseDate = DateAdd("d", -2, currentDate) ' 前天
Else
    baseDate = DateAdd("d", -1, currentDate) ' 昨天
End If

3. 删除满足条件的数据行。假设B列为需要检查的日期列，你可以遍历该列，比较每个值与基础日期，符合条件的就删除对应行：

With wb.Sheets('Sheet1') ' 请替换为实际工作表名称
    .Range("B:B").AdvancedFilter Action:=xlFilterInPlace, Criteria1:=">" & baseDate, CopyToRange:=Nothing ' 删除大于基础日期的行
End With

4. 最后记得运行`AdvancedFilter`宏才会生效。