[已解决]遍历区域内所有列 若非空个数大于n 则清空该列数值

lijian8003

如何在Sheet1 BA1:GN1000区域内，遍历该区域所有列，若某列非空个数大于N（N为自然数1 2 3...），则清空该列数值？
例如：附件中
n=7
保留 BB列 BC列
清空BA列 BD列

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-11-6 18:54

lijian8003 发表于 2021-11-6 18:51
代码运行有误。一楼添加了附件，肯望得到帮助！

附件中

Sorry 我的错

Sub demo()
   n = 7
   a = [BA1:GN1000]
   Set Rng = [ZZ1:ZZ1000]
   For x = 1 To UBound(a, 2)
      For y = 1 To UBound(a)
         If a(y, x) <> "" Then c = c + 1
      Next
      If c > n Then Set Rng = Union(Rng, [AZ1:AZ1000].Offset(, x))
      c = 0
   Next
   Rng.ClearContents
End Sub

跳转到最佳答案楼层

cutecpu

lijian8003 发表于 2021-11-6 18:17
是的，每列都拿 N 来做非空判断比大小

Sub demo()
   n = 3
   a = [BA1:GN1000]
   Set Rng = [ZZ1:ZZ1000]
   For x = 1 To UBound(a, 2)
      For y = 1 To UBound(a)
         If a(y, x) <> "" Then c = c + 1
      Next
      If c > n Then Set Rng = Union(Rng, [CZ1:CZ1000].Offset(, x))
      c = 0
   Next
   Rng.ClearContents
End Sub

祝順心，南無阿彌陀佛！

lijian8003

cutecpu 发表于 2021-11-6 18:24
Sub demo()
   n = 3
   a =

代码运行有误。一楼添加了附件，肯望得到帮助！

附件中
n=7
保留 BB列 BC列
清空BA列 BD列

cutecpu

lijian8003 发表于 2021-11-6 18:51
代码运行有误。一楼添加了附件，肯望得到帮助！

附件中

Sorry 我的错

Sub demo()
   n = 7
   a = [BA1:GN1000]
   Set Rng = [ZZ1:ZZ1000]
   For x = 1 To UBound(a, 2)
      For y = 1 To UBound(a)
         If a(y, x) <> "" Then c = c + 1
      Next
      If c > n Then Set Rng = Union(Rng, [AZ1:AZ1000].Offset(, x))
      c = 0
   Next
   Rng.ClearContents
End Sub

lijian8003

cutecpu 发表于 2021-11-6 18:54
Sorry 我的错

Sub demo()

谢谢！代码运行流畅正确。