Excel VBA联合删除列中的数据

Sub DeleteDataInColumns()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim columnRange As Range
    Dim columnToDelete As Range
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 假设要删除的列中数据都在"A"列
    
    ' 设置要删除的列范围
    Set columnRange = ws.Range("B1:F" & lastRow) ' 假设要删除的列范围是从"B"列到"F"列
    
    ' 循环遍历列范围，判断是否需要删除列中的数据
    For Each columnToDelete In columnRange.Columns
        ' 在此处添加删除数据的条件
        ' 例如，如果要删除列中的所有数值小于10的数据，可以使用以下代码：
        ' columnToDelete.SpecialCells(xlCellTypeConstants, xlNumbers).Value = "<10"
        
        ' 删除列中的数据
        columnToDelete.ClearContents
    Next columnToDelete
End Sub