麻辣家族討論版版 » Excel程式區 » 請問先進有沒有可以用巨集或VB解決這問題？

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 13
主題: 6
精華: 0
積分: 50
點名: 0
作業系統: win10
軟體版本: office 2016
閱讀權限: 20
性別: 女
註冊時間: 2014-2-25
最後登錄: 2019-12-10

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-3-25 17:07 | 只看該作者

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

文具名稱數量
書夾 10
書夾 20
釘書機 2
釘書機 4
書套 30
書夾 30
釘書機 9
書套 50

出貨總項目
3

T1.jpg (15.1 KB)

問題請求先進解決

樓主熱帖

收藏

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 230
主題: 75
精華: 2
積分: 337
點名: 0
作業系統: Windows 10
軟體版本: Office 2000, 2019
閱讀權限: 100
性別: 男
來自: 彰化縣
註冊時間: 2013-7-18
最後登錄: 2025-4-17

2^#

發表於 2014-3-25 19:54 | 只看該作者

不用VBA，用樞紐分析表即可解決！

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

3^#

發表於 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)
應該有更簡捷的公式, 就請諸位大大指教啦

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 261
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-24

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2014-3-26 14:02 | 只看該作者

回復 1# spensers

=SUMPRODUCT(1/COUNTIF(A2:A9,A2:A9))

學海無涯_不恥下問

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

5^#

發表於 2014-3-26 16:14 | 只看該作者

回復 1# spensers
試試看：

'有關 Dictionary 物件的說明請參閱
'Dictionary物件的認識與應用
'http://gb.twbts.com/index.php?topic=510.0
'我也是第一次使用 Dictionary, 還在摸索中
'下列 VBA 應該合乎你的需求
'假定你的資料在 A:A
Private Sub CommandButton1_Click()
Dim RngA, Cel As Range
Set d = CreateObject("Scripting.Dictionary")
Set RngA = [A2].Resize([A2].End(xlDown).Row - 1, 1)
'對於 RngA 的每一個儲格來說
For Each Cel In RngA
'若 Cel 的值不在 Dictionary 裡面
If Not d.exists(Cel.Value) Then
'將 Cel 的值存入 Dictionary
d.Add Cel.Value, Cel.Value
End If
Next
'出貨總項目 = d.Count
[A13] = d.Count
End Sub

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

6^#

發表於 2014-3-26 16:34 | 只看該作者

回復 4# Hsieh
謝謝版大的指點,
原來:
=COUNTIF(A2:A9,A2:A9)
可求出重覆的數量,而
=1/COUNTIF(A2:A9,A2:A9)
可算出某項的 1/n, 全部的 1/n 加起又等於 1,
所以總和就算出來了, 真神!! 謝謝!!

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

7^#

發表於 2014-3-27 07:58 | 只看該作者

=SUM(IF(FREQUENCY(MATCH(B2:B10,B2:B10,0),MATCH(B2:B10,B2:B10,0))>0,1))

ss

中學生 Rank: 2

帖子: 13
主題: 6
精華: 0
積分: 50
點名: 0
作業系統: win10
軟體版本: office 2016
閱讀權限: 20
性別: 女
註冊時間: 2014-2-25
最後登錄: 2019-12-10

8^#

發表於 2014-3-29 09:40 | 只看該作者

感謝，先進們的回覆，工作忙，現在才答謝，抱歉。

靜思自在 : 人要知福、惜福、再造福。

返回列表下一主題上一主題