求大神帮忙，出一个VBA

xinghuasking · 发表于 2020-3-8 10:12

已知B列为数据列需要把B列中出现1的个数写到B列最下方的左边
然后把B列中出现的其它数字的个数写到B列的最下方
如图所示。因为数据的长短不一样，所以结果的位置会根据B列的长短而改变。
求大神出一个VBA。万分感激

ywzx703 · 发表于 2020-3-8 10:17

这个为何要用vba不是用函数就可以解决吗

liulang0808 · 发表于 2020-3-8 10:21

r = Cells(Rows.Count, 2).End(3).Row
Cells(r + 1, 1) = WorksheetFunction.CountIf(Columns(2), 1)
Cells(r + 1, 2) = WorksheetFunction.CountA(Columns(2)) - Cells(r + 1, 1)

xinghuasking · 发表于 2020-3-8 10:32

ywzx703 发表于 2020-3-8 10:17
这个为何要用vba不是用函数就可以解决吗

因为VBA比较帅气

qweewq · 发表于 2020-3-8 10:33

试试这个是否可以！

xinghuasking · 发表于 2020-3-8 10:33

liulang0808 发表于 2020-3-8 10:21
r = Cells(Rows.Count, 2).End(3).Row
Cells(r + 1, 1) = WorksheetFunction.CountIf(Columns(2), ...

这个怎么用呢，大神

liulang0808 · 发表于 2020-3-8 10:43

xinghuasking 发表于 2020-3-8 10:33
这个怎么用呢，大神

楼主简单看下基础或者看看其他帖子的代码之类的

loveshailyu · 发表于 2020-3-8 11:16

countif

ywzx703 · 发表于 2020-3-8 19:10

xinghuasking 发表于 2020-3-8 10:32
因为VBA比较帅气

这样的回复一点都不可爱

humengqiang · 发表于 2020-3-8 21:30

好像不复杂

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

求大神帮忙，出一个VBA

最新热点 /1