[已解决]保留指定范围内的数据，其余的数据清空

kandhong

老师：
    我请教的是：保留指定范围内的数据，其余的数据清空。
    思路如下：
    1.D4:S17为数据区。
    2.在"保留数据范围"输入"49-50",表示在此数据区内保留49和50，其余的数据清空。
    3.最终结果在"数据区"原位置生成。
    保留指定范围内的数据.rar (10.3 KB, 下载次数: 1)

2021-6-30 12:34 上传

点击文件名下载附件
   

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-6-30 12:41

Sub demo()
   a = [d4:s17]
   For i = 1 To UBound(a)
      For j = 1 To UBound(a, 2)
         If a(i, j) < [e19] Or a(i, j) > [g19] Then a(i, j) = ""
      Next
   Next
   [d4].Resize(UBound(a), UBound(a, 2)) = a
End Sub

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

Sub demo()
   a = [d4:s17]
   For i = 1 To UBound(a)
      For j = 1 To UBound(a, 2)
         If a(i, j) < [e19] Or a(i, j) > [g19] Then a(i, j) = ""
      Next
   Next
   [d4].Resize(UBound(a), UBound(a, 2)) = a
End Sub

祝順心，南無阿彌陀佛！

kandhong

cutecpu 发表于 2021-6-30 12:41
Sub demo()
   a = [d4:s17]
   For i = 1 To UBound(a)

cutecpu 老师： 太高效了，学习，收藏！！