屏蔽无数据时结果输出列下面显示的“0值”

WYS67

        两个问题：1.找不到J列自定义函数ZDTQ()的代码在哪个模块里;2.为防止J5:J704里提取到的数据0，与J705以下无数据的“0”弄混淆，需要把J705【数据源I列没有输入数据的区域I2104】以下显示的“0”屏蔽为空白【需要修改ZDTQ()代码】。

       怎样屏蔽J列不合题意的0值为空白.zip (564.17 KB, 下载次数: 6)

2018-8-1 17:54 上传

点击文件名下载附件

  希望大神们帮忙解决

lsc900707

这个在模块6里面的呀
Function zdtq(sj, zq, ys)
Application.Volatile True
arr = sj
zq1 = zq
ys1 = ys
s = 0
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(brr)
brr(i, 1) = ""
Next

For i = 1 To UBound(arr)
If i Mod zq1 = ys1 Then
    s = s + 1
    brr(s, 1) = arr(i, 1)
End If
Next
zdtq = brr
End Function

WYS67

lsc900707 发表于 2018-8-1 18:17
这个在模块6里面的呀
Function zdtq(sj, zq, ys)
Application.Volatile True

版主老师：通过对象浏览器已找到储存在模块6里的代码。

    为防止J5:J704里提取到的数据0，与J705以下无数据的“0”弄混淆，需要把J705【数据源I列没有输入数据的区域I2104】以下显示的“0”屏蔽为空白，怎样修改代码？
Function zdtq(sj, zq, ys)
Application.Volatile True
arr = sj
zq1 = zq
ys1 = ys
s = 0
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(brr)
brr(i, 1) = ""
Next

For i = 1 To UBound(arr)
If i Mod zq1 = ys1 Then
    s = s + 1
    brr(s, 1) = arr(i, 1)
End If
Next
zdtq = brr
End Function

WYS67

为防止J5:J704里提取到的数据0，与J705以下无数据的“0”弄混淆，需要把J705【数据源I列没有输入数据的区域I2104】以下显示的“0”屏蔽为空白，怎样修改代码？
Function zdtq(sj, zq, ys)
Application.Volatile True
arr = sj
zq1 = zq
ys1 = ys
s = 0
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(brr)
brr(i, 1) = ""
Next

For i = 1 To UBound(arr)
If i Mod zq1 = ys1 Then
    s = s + 1
    brr(s, 1) = arr(i, 1)
End If
Next
zdtq = brr
End Function

WYS67

为防止J5:J704里提取到的数据0，与J705以下无数据的“0”弄混淆，需要把J705【数据源I列没有输入数据的区域I2104】以下显示的“0”屏蔽为空白，怎样修改代码？
Function zdtq(sj, zq, ys)
Application.Volatile True
arr = sj
zq1 = zq
ys1 = ys
s = 0
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(brr)
brr(i, 1) = ""
Next

For i = 1 To UBound(arr)
If i Mod zq1 = ys1 Then
    s = s + 1
    brr(s, 1) = arr(i, 1)
End If
Next
zdtq = brr
End Function

262959286

用IF 吧  设个简单的。

WYS67

262959286 发表于 2018-8-2 08:03
用IF 吧  设个简单的。

无法在代码的数据列里搞定吗？

WYS67

262959286 发表于 2018-8-2 08:03
用IF 吧  设个简单的。

无法在代码的数据列里搞定吗？

262959286

VBA 还不会。不好意思。

WYS67

262959286 发表于 2018-8-2 08:43
VBA 还不会。不好意思。

函数公式我也会。但是数据量过大时会严重拖慢运算速度。