工作

EXCEL統計空自格為什麼不正確 - 工作

Hamiltion avatarHamiltion · 2009-08-08

Table of Contents

請問各位大師下列程式統計結果為什麼不正確。total=0'ForEachkIn[t1].Resize(R)'ForEachkInRange(Cells(1,20),Cells(R,20))ForEachkInRange(Range("T1"),Range("T"&R))Ifk.Value=""Thentotal=total+1EndIfNextCells(R+1,20).Value=total10:Nexti謝謝大家...Showmore
工作

All Comments

Lydia avatarLydia2009-08-09
使用COUNTIF函數,只要一個陳述即可,不需要迴圈,可節省時間:[T1].Offset(R,0)=WorksheetFunction.CountIf([T1].Resize(R,1),"")或[T1].Offset(R)=WorksheetFunction.CountIf([T1].Resize(R),"")2009-08-0822:40:27補充：從第一行的total=0至到數第三行的Cells(...........)都不要,改為上述這一行就好了2009-08-0911:26:23補充：應該是變數使用有誤:R版主的原程式的R=ActiveSheet.UsedRange.Rows.Count'是這個工作表裡所有有資料的最後一列而V大的R=[T65536].End(xlUp).Row'是T欄的最後一列R值不見得相同的,請