[已解决]点击查询后怎么会多出两个空的单元格

金樽空对月

请大神指点，在表二的E列中，我想要的效果是有几项就有几个单元格是加边框的，不知为什么总是多出两个空的单元格来。

最佳答案

月排行榜 / 总排行榜

zjdh

2015-9-10 16:14

m = Application.WorksheetFunction.CountIf(Sheet1.Range("d2:d" & z), Sheet2.Range("c2"))
是获取符合学生证号的数量，共有5个！！
真真符合要求的是符合日期，用 i 记录了数量，不该用 m 来决定区域！！

跳转到最佳答案楼层

Hsiao

因为 ubound(arr1)=5
所以With Sheet2.Range("e2:e" & UBound(arr1))    就是对e2:e5  设置边框了

金樽空对月

Hsiao 发表于 2015-9-10 15:58
因为 ubound(arr1)=5
所以With Sheet2.Range("e2:e" & UBound(arr1))    就是对e2:e5  设置边框了

能不能再帮我看下，怎么是等于5，在当前的筛选条件下，arr1应该是一个两行两列的数组，起码应该是等于2的。

zjdh

只修改了空格问题
怎么多出两个.rar (19.89 KB, 下载次数: 9)

2015-9-10 16:07 上传

点击文件名下载附件

zjdh

m = Application.WorksheetFunction.CountIf(Sheet1.Range("d2:d" & z), Sheet2.Range("c2"))
是获取符合学生证号的数量，共有5个！！
真真符合要求的是符合日期，用 i 记录了数量，不该用 m 来决定区域！！

金樽空对月

zjdh 发表于 2015-9-10 16:14
m = Application.WorksheetFunction.CountIf(Sheet1.Range("d2:d" & z), Sheet2.Range("c2"))
是获取符合学 ...

噢，明白了，感谢！