在当前工作表插入一个命令按钮，双击后粘贴如下代码：
Private Sub CommandButton1_Click()
Call clearXY '数据处理
End Sub
Sub clearXY()
Dim r&, c&, i&, j&
r = UsedRange.Rows.Row + UsedRange.Rows.Count - 1
c = UsedRange.Columns.Column + UsedRange.Columns.Count - 1
'以上是工作表最大的行列范围
For i = 1 To r
For j = 1 To c
'MsgBox r
If Cells(i, j).Value <> "" And IsNumeric(Cells(i, j).Value) Then
If Cells(i, j).Value > 1 And Cells(i, j).Value < 2 Then '这里需要把X.Y替换成数字。
Cells(i, j).Value = ""
End If
End If
Next j
Next i
MsgBox "执行完毕。"
End Sub
祝楼主好运，好人还是比较多的。
excel vb代码 我教你
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024