bwin官网网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+bwin平台初中高全套+VBA80集,想学的这儿全都有
查看: 148|回复: 1
打印 上一主题 下一主题

[求助] VBA 求助

[复制链接]
m88 188bet uedbet 威廉希尔 明升 bwin 明升88 bodog bwin 明升m88.com 18luck 188bet unibet unibet Ladbrokes Ladbrokes casino m88明升 明升 明升 m88.com 188bet m88 明陞 uedbet赫塔菲官网 365bet官网 m88 help
188bet www.188bet.com bwin 平博 unibet 明升 188bet uk Ladbrokes 德赢vwin 188bet m88.com w88 平博88 uedbet体育 188bet 188bet 威廉希尔 明升体育app 平博88 M88 Games vwin德赢 uedbet官网 bodog fun88 188bet
跳转到指定楼层
1楼
发表于 2019-6-21 11:50 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
1学分


我希望每次執行DO循環時下面下面標紅的這個2可以加1,



Dim r As Worksheet, i As Long, e As Worksheet, W As Long
Set r = Worksheets("匯總")
Set e = Worksheets("原始數據")
W = e.Cells(Rows.Count, 1).End(xlUp).Row
r.Range("b2:f1100") = ""
i = 2
e.Activate
Do While r.Cells(i, 1) <> ""
r.Cells(i, 2) = e.Application.WorksheetFunction.CountIfs(Range("v:cm"), r.Cells(i, 1))
e.Range("b2" & ":" & "b" & W) = "=COUNTIFS(C2:XFD2,匯總!A$2)"
r.Cells(i, 3) = Application.WorksheetFunction.CountIfs(e.Range("b:b"), "=1", e.Range("c:c"), "REPAIR OK")
r.Cells(i, 4) = Application.WorksheetFunction.CountIfs(e.Range("b:b"), ">1", e.Range("c:c"), "REPAIR OK") + Application.WorksheetFunction.CountIfs(e.Range("b:b"), ">=1", e.Range("c:c"), "Scraped")
    r.Cells(i, 5) = r.Cells(i, 3) / r.Cells(i, 2)
     r.Cells(i, 6) = Application.WorksheetFunction.CountIfs(e.Range("b:b"), ">=1", e.Range("c:c"), "REPAIR OK") / r.Cells(i, 2)

i = i + 1

Loop
End Sub


分享到:  QQ好友和群QQ好友和群
收藏收藏
2楼
发表于 2019-6-29 19:03 | 只看该作者
Do While r.Cells(i, 1) <> ""
k = k +1'增加一个整数变量,第次循环增加1,请在Dim中补定义k&(或者as integer)
r.Cells(i, 2) = e.Application.WorksheetFunction.CountIfs(Range("v:cm"), r.Cells(i, 1))
e.Range("b2" & ":" & "b" & W) = "=COUNTIFS(C2:XFD2,匯總!A$2+k)"
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|bwin官网 ( 豫ICP备11015029号 )

GMT+8, 2019-9-23 09:57 , Processed in 0.046800 second(s), 8 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表