如何求空白单元格的数量？

wpf543625851 · 发表于 2018-9-22 11:12

本帖最后由 wpf543625851 于 2018-9-22 18:07 编辑

如何求空白单元格的数量？

微笑12345 · 发表于 2018-9-22 11:31

if range="" then
m= range.row 赋值记录行号
循环到rang<>"" 返回range行号设为n
m行至n-1行，列弄个循环再附值操作就可以了
这是我的思路

719404338 · 发表于 2018-9-22 13:54

看看是不是你需要的。

wpf543625851 · 发表于 2018-9-22 17:54

719404338 发表于 2018-9-22 13:54
看看是不是你需要的。

我的天啊就是这这样的感谢大佬帮助

wpf543625851 · 发表于 2018-9-22 18:05

本帖最后由 wpf543625851 于 2018-9-22 18:08 编辑

719404338 发表于 2018-9-22 13:54
看看是不是你需要的。

就像我上面截的图一样相邻的2个数据其中一个被替换掉了就有这么个瑕疵,如何破解

719404338 · 发表于 2018-9-23 15:53

wpf543625851 发表于 2018-9-22 18:05
就像我上面截的图一样相邻的2个数据其中一个被替换掉了就有这么个瑕疵,如何破解

Sub t()
Dim i%, j%, s%, d
arr = [ad1:ae37]
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(arr)
d(arr(i, 1)) = arr(i, 2)
Next
k = d.items
For j = 2 To 29
s = 0
For i = 2 To 2301
If Cells(i, j) = "" Then
s = s + 1
ElseIf Cells(i - 1, j) <> "" Then
Else
Cells(i - 1, j) = d(s)
Cells(i - 1, j).Font.Color = vbRed
s = 0
End If
Next i, j
[b1].Resize(1, 28) = Array("一", "二", "三", "四", "五", "六", "七", "八", "九", "十", "十一", "十二", "十三", "十四", "十五", "十六", "十七", "十八", "十九", "二十", "二一", "二二", "二三", "二四", "二五", "二六", "二七", "二八")
Rows(1).Font.Color = vbBlack
End Sub

复制代码

lsc900707 · 发表于 2018-9-23 21:15

本帖最后由 lsc900707 于 2018-9-23 23:07 编辑

附件供测试：

wpf543625851 · 发表于 2018-10-4 21:00

lsc900707 发表于 2018-9-23 21:15
附件供测试：

测试过了去除了那个瑕疵，强大，完美！！！非常感谢

		自动登录	找回密码
密码			免费注册

[求助] 如何求空白单元格的数量？