返回列表 上一主題 發帖

[分享] 判斷出現不同批號幾次

[分享] 判斷出現不同批號幾次

大家好!我有問題想請教
1.資料中有料號,所以我可以利用公式抓出來她的總數量
2.但是,每一料號下都會產出許多批號(因為是不同天產出)
3.我想要把資料變成下圖內容,右邊的欄位樣子
Noname.jpg
2021-6-16 20:11


還請大大幫幫我
感恩


TEST.rar (8.98 KB)
Just do it.

回復 24# 准提部林
Dear 准提部林,
抱歉,試出來了,我弄錯欄位了。感恩囉!
Just do it.

TOP

回復 23# jsc0518


看來沒錯,
是哪裡的問題???

程式發生錯誤? 還是結果?

TOP

回復 20# 准提部林

Dear 准提部林,
晚上好!與您請教一下,
我的資料庫欄位有異動過 --> g=代號、u=總公斤數
我將您的VBA語法更改過下面的資料(紅字)
可是我改過後,卻無法帶出我想要的狀況,是否哪裡還須修改呢?


Sub Analysis()

Dim Arr, xD, T$, TT$, i&, j%
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([繳庫量!g1], [繳庫量!u65536].End(3)) 'g=代號、u=總公斤數
For i = 2 To UBound(Arr)
     T = Arr(i, 1): TT = T & "|" & Arr(i, 2)
     xD(TT) = xD(TT) + 1
     If xD(TT) = 1 Then xD(T & "/1") = xD(T & "/1") + 1
     xD(T & "/2") = xD(T & "/2") + Arr(i, 15) '15=g~u
Next
Arr = Range([Analysis!b1], [Analysis!a65536].End(3))
For i = 2 To UBound(Arr)
    For j = 1 To 2: Arr(i - 1, j) = xD(Arr(i, 1) & "/" & j): Next
Next
[Analysis!b2].Resize(UBound(Arr) - 1, 2) = Arr


End Sub
Just do it.

TOP

准大只用了一個字典就解決了,而且效率也很快,感謝准大分享,謝謝。

TOP

回復 20# 准提部林

Dear 准提部林,
早安您好!
VBA語法使用過,TEST OK。非常感謝您的熱心幫忙!
^_^
Just do it.

TOP

Sub TEST_A1()
Dim Arr, xD, T$, TT$, i&, j%
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([繳庫量!e1], [繳庫量!y65536].End(3))
For i = 2 To UBound(Arr)
     T = Arr(i, 1): TT = T & "|" & Arr(i, 2)
     xD(TT) = xD(TT) + 1
     If xD(TT) = 1 Then xD(T & "/1") = xD(T & "/1") + 1
     xD(T & "/2") = xD(T & "/2") + Arr(i, 21)
Next
Arr = Range([Analysis!b1], [Analysis!a65536].End(3))
For i = 2 To UBound(Arr)
    For j = 1 To 2: Arr(i - 1, j) = xD(Arr(i, 1) & "/" & j): Next
Next
[Analysis!b2].Resize(UBound(Arr) - 1, 2) = Arr
End Sub

TOP

回復 18# samwang
知道了,謝謝您的教導。
Just do it.

TOP

回復 17# jsc0518


無差別,只是寫法要注意,謝謝

例如:
工作表1模組: Range("A1")
一般模組:       Sheets("工作表1").Range("A1")

TOP

回復 16# samwang

Dear samwang,
午安!您好!

可以用了,非常感謝您的幫忙!

再與您請教幾個問題
1.要怎麼知道那些語法(指令)是使用在模組?那些語法(指令)是使用在工作表的?
2.放在模組或工作表,他們的差異是在哪裡?

再麻煩您教導,謝謝您!
Just do it.

TOP

        靜思自在 : 【停滯不前,終無所得】人都迷於尋找奇蹟,因而停滯不前;縱使時間再多、路再長,也了無用處,終無所得。
返回列表 上一主題