一键清空指定范围的数据

odyssey166

各位老师：
现在希望一段代码能做到一键清空指定范围的数据。

具体请看附件中的说明。

先谢谢了

罗达

清空特定范围的内容.zip (15.58 KB, 下载次数: 6)

2019-12-29 21:03 上传

点击文件名下载附件

Sub mydelete()
Dim arr, x
With Worksheets("sheet1")
    arr = .Range("e1:e" & .Range("e66536").End(xlUp).Row)
    For x = 1 To UBound(arr)
        If IsNumeric(arr(x, 1)) Then
            arr(x, 1) = ""
        End If
    Next
    .Range("e1").Resize(UBound(arr), 1) = arr
End With
End Sub

odyssey166

罗达 发表于 2019-12-29 21:02
Sub mydelete()
Dim arr, x
With Worksheets("sheet1")

非常感谢！完美解决了我的问题。
我想再追问一下，刚才清除的赛道数据，我不能玩们是数字，如果我要删除的不是数字是文字等，或都假设赛道下面的数据是文字，那应该怎么清除呢？

不管如何，先送上小花。

YZC51

学习老师到代码。谢谢老师！
Sub mydelete()
Dim arr, x
With Worksheets("sheet1")
    arr = .Range("e1:e" & .Range("e66536").End(xlUp).Row)
    For x = 1 To UBound(arr)
        If arr(x, 1) <> "赛道" Then arr(x, 1) = ""
    Next
    .Range("e1").Resize(UBound(arr), 1) = arr
End With
End Sub

YZC51

odyssey166 发表于 2019-12-29 21:07
非常感谢！完美解决了我的问题。
我想再追问一下，刚才清除的赛道数据，我不能玩们是数字，如果我要删除 ...

请参考4楼！

odyssey166

YZC51 发表于 2019-12-29 21:15
请参考4楼！

非常感谢！
我也要觉学着修改现存的代码来适应自己的需求。

再次感谢！

odyssey166

YZC51 发表于 2019-12-29 21:14
学习老师到代码。谢谢老师！
Sub mydelete()
Dim arr, x

非常感谢你的改写，真是太棒了！
向你们学习！

YZC51

odyssey166 发表于 2019-12-29 21:26
非常感谢你的改写，真是太棒了！
向你们学习！

老师客气了，互相学习！