 public sub distinctcount() 求col列中startrow到endrow范围中不重复的个数 本例是计算标题为sheet1的excel表中的a1:a240的不重复值的个数 修改下面四行的结尾值 dim sheetscaption as string: sheetscaption = "sheet1" dim col as string: col = "a" dim startrow as integer: startrow = 1 dim endrow as integer: endrow = 240 以下固定 dim count as integer: count = 0 with sheets(sheetscaption) for i = startrow to endrow count = count + 1 for j = startrow to i - 1 if .range(col & i) = .range(col & j) then count = count - 1 exit for end if next next end with msgbox count end sub |
喜欢本文，那就收藏到： |
.text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&img=http://www.h-strong.com/blog/logo.gif','keyit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));keyit.focus(); "添加到POCO网摘"){kind=logo}
Rss Feed
