[發問] 簡單組合問題。

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-12-18

2^#

發表於 2021-6-2 14:28 | 只看該作者

回復 1# stephenlee

不好意思，不太能理解X欄的結果如何產出，可否請你再詳細說明規則，感謝。

帖子: 63
主題: 32
精華: 0
積分: 125
點名: 0
作業系統: WIn10
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2018-7-19
最後登錄: 2022-8-11

3^#

發表於 2021-6-2 14:41 | 只看該作者

回復 stephenlee

不好意思，不太能理解X欄的結果如何產出，可否請你再詳細說明規則，感謝。
samwang 發表於 2021-6-2 14:28

麻煩你, 其實CTN 是箱編號 1/8 代表第一箱,而X欄 1/8 代表有1-12 Line 存在, 所以在第一行打上 1-12,
其他的也是這樣。,我想將資料貼上後,自動會得出X 欄的結果。謝謝

hcm19522

https://blog.xuite.net/hcm19522/twblog/589806162

帖子: 1391
主題: 4
精華: 0
積分: 1401
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-12-16

熱烈參與勳章

4^#

發表於 2021-6-2 14:46 | 只看該作者

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-12-18

5^#

發表於 2021-6-2 16:08 | 只看該作者

回復 3# stephenlee

請測試看看，謝謝。

Sub test()
Dim Arr, xD, i%, i2&, N%
Arr = Range([F1], [Q65536].End(3))
Set xD = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(Arr)
If Not xD.Exists(Arr(i, 12) & "") Then
      xD(Arr(i, 12) & "") = ""
      For i2 = i To UBound(Arr)
         If xD.Exists(Arr(i2, 12) & "") Then N = N + 1
      Next
      Cells(i, 24) = Arr(i, 1) & "~" & N: N = 0
End If
Next
End Sub

帖子: 63
主題: 32
精華: 0
積分: 125
點名: 0
作業系統: WIn10
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2018-7-19
最後登錄: 2022-8-11

6^#

發表於 2021-6-3 14:37 | 只看該作者

回復 stephenlee

請測試看看，謝謝。

Sub test()
Dim Arr, xD, i%, i2&, N%
Arr = Range([F1], [ ...
samwang 發表於 2021-6-2 16:08

非常感謝大大,又是閣下再次幫忙。
不過有一個部份還差一點,望閣下看是否能幫忙解決。
感謝你花了太多時間幫我研究這個。

使用了VBA 指示後,例如 CTN 5/8 正確的組合應該是 5-15, 但顯示了 5-11 。第 8/8 也是正確應該是5-15 。但也顯示 5-11

能不能做到根據F欄和Q欄的資料多少來做出組合排列, 就是F欄和Q欄都是有機會多和少,要根據情況排列,做法是一樣的,謝謝了。

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-12-18

7^#

發表於 2021-6-3 15:56 | 只看該作者

回復 6# stephenlee

不好意思沒注意到，請再測試看看，謝謝。

Sub test2()
Dim Arr, xD, i%, i2&, N%
Arr = Range([F1], [Q65536].End(3))
Set xD = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(Arr)
If Not xD.Exists(Arr(i, 12) & "") Then
      xD(Arr(i, 12) & "") = i
      For i2 = i To UBound(Arr)
         N = xD(Arr(i2, 12) & ""): If N = 0 Then Exit For
      Next
      Cells(i, 24) = Arr(i, 1) & "~" & Arr(i2 - 1, 1)
End If
Next
End Sub

帖子: 63
主題: 32
精華: 0
積分: 125
點名: 0
作業系統: WIn10
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2018-7-19
最後登錄: 2022-8-11

8^#

發表於 2021-6-4 13:54 | 只看該作者

回復 stephenlee

不好意思沒注意到，請再測試看看，謝謝。

Sub test2()
Dim Arr, xD, i%, i2&, N% ...
samwang 發表於 2021-6-3 15:56

麻煩你才對,用最新指示,發覺 1/8 會出現結果,但 2/8 就沒有任何資料, 會隔一個才出現結果,要再麻煩你看看。謝謝

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-12-18

9^#

發表於 2021-6-4 18:04 | 只看該作者

回復 8# stephenlee

請再測試看看，謝謝。

Sub test3()
Dim Arr, xD, i%, i2&, N%
Arr = Range([F1], [Q65536].End(3))
Set xD = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(Arr)
If Not xD.Exists(Arr(i, 12) & "") Then
      xD(Arr(i, 12) & "") = i
      For i2 = i To UBound(Arr)
         If Not xD.Exists(Arr(i2, 12) & "") Then Exit For
      Next
      Cells(i, 24) = Arr(i, 1) & "~" & Arr(i2 - 1, 1)
End If
Next
End Sub

帖子: 63
主題: 32
精華: 0
積分: 125
點名: 0
作業系統: WIn10
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2018-7-19
最後登錄: 2022-8-11

10^#

發表於 2021-6-5 11:49 | 只看該作者

回復 stephenlee

請再測試看看，謝謝。

Sub test3()
Dim Arr, xD, i%, i2&, N%
Arr = Range([F1] ...
samwang 發表於 2021-6-4 18:04

以上指令完全符合要求,太感謝大大幫了我這麼多忙,不好意思要你花時間幫我研究。非常感謝。在此謝謝了。

不知道能不能幫我最後一個問題,這個簡單一點。

檔案內 A 欄是資料, B欄是運算結果。

要求是當 A欄儲存格在 - 前和後是一樣的話, 只保留第一個 - 前的數字

如果不一樣,那就不用變。 A欄的資料有多有少。

A欄為資料,B 欄為要求輸出後的結果,跪謝了。

抽數字.zip (6.79 KB)