返回列表 上一主題 發帖

[發問] 請問先進有沒有可以用巨集或VB解決這問題？

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
1# 跳轉到 »
發表於 2014-3-26 13:19 | 顯示全部帖子
回復 1# spensers
初學公式, 試試看:
假定你的資料在 A1:B9,
C2 公式
=IF(COUNTIF(A2:A9,A2)>1,0,1) 或 =IF(COUNTIF(A2:A9,A2)>1,"",1)
向下複製
C10 公式
=SUM(C2:C9)
應該有更簡捷的公式, 就請諸位大大指教啦

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
2#
發表於 2014-3-26 16:14 | 顯示全部帖子
回復 1# spensers
試試看：
  1. '有關 Dictionary 物件的說明請參閱
  2. 'Dictionary物件的認識與應用
  3. 'http://gb.twbts.com/index.php?topic=510.0
  4. '我也是第一次使用 Dictionary, 還在摸索中
  5. '下列 VBA 應該合乎你的需求

  7. '假定你的資料在 A:A
  8. Private Sub CommandButton1_Click()
  9.     Dim RngA, Cel As Range
  10.     Set d = CreateObject("Scripting.Dictionary")
  11.     Set RngA = [A2].Resize([A2].End(xlDown).Row - 1, 1)
  12.    
  13.     '對於 RngA 的每一個儲格來說
  14.     For Each Cel In RngA
  15.         
  16.         '若 Cel 的值不在 Dictionary 裡面
  17.         If Not d.exists(Cel.Value) Then
  18.         
  19.            '將 Cel 的值存入 Dictionary
  20.            d.Add Cel.Value, Cel.Value
  21.         End If
  22.     Next
  23.    
  24.     '出貨總項目 = d.Count
  25.     [A13] = d.Count
  26. End Sub
複製代碼

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
3#
發表於 2014-3-26 16:34 | 顯示全部帖子
回復 4# Hsieh
謝謝版大的指點,
原來:
=COUNTIF(A2:A9,A2:A9)
可求出 重覆 的數量,而
=1/COUNTIF(A2:A9,A2:A9)
可算出某項的 1/n, 全部的 1/n 加起又等於 1,
所以總和就算出來了, 真神!! 謝謝!!

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題