Question

写一段VBA查找Excel表中的指定数据，并将指定数据所在的列删除

遍历Excel表中的G5到R5范围内的数据，如果数据=0（表现形式可能是0或0.0或0.00），就将该列删除
财富值只有10分了，希望不要嫌少，非常感谢~

Answer 1

Sub test()
Dim cel As Range
For Each cel In Range("G5:R5")
If cel.Value = 0 Then
cel.EntireColumn.Delete
End If
Next
End Sub

Answer 2

Sub aa()
Dim i, j
j = UsedRange.Rows.Count
For i = 1 To UsedRange.Rows.Count
If Cells(i, 1).value =0 Then
Range(Cells(i, 1), Cells(j, 1)).EntireColumn.delete
Exit Sub
End If
Next
End Sub
提供一个建议，自己可以把范围设置一下

Answer 3

试一试看看
Sub Macro1()

For j = 18 To 7 Step -1
If Cells(5, j).Value = 0 Then
Columns(j).Select
Selection.Delete Shift:=xlToLeft
End If
Next

End Sub

Answer 4

Sub try()
Dim rag As Range
For Each rag In Range("G5:R5")
If rag.Value = 0 Then
rag.EntireColumn.ClearContents
End If
Next
End Sub

追问

这个只能操作单个工作表，如果要操作整个工作薄呢