[發問] 簡單組合問題。

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

12^#

發表於 2021-6-5 13:14 | 只看該作者

回復 stephenlee

請測試看看，謝謝。

Sub test()
Dim Arr, a, a1
Arr = Range("A2:A" & [A65536] ...
samwang 發表於 2021-6-5 12:25

這個也是完全符合要求,完美解決了我所需的問題。非常感激大大一直幫忙,幫我節省了處理資料的時間,十分感謝。

題外話: 大大真的很強。

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

11^#

發表於 2021-6-5 12:25 | 只看該作者

回復 10# stephenlee

請測試看看，謝謝。

Sub test()
Dim Arr, a, a1
Arr = Range("A2:A" & [A65536].End(3).Row)
For i = 1 To UBound(Arr)
a = Split(Arr(i, 1), "-")(0)
a1 = Split(Arr(i, 1), "-")(1)
If a = a1 Then Arr(i, 1) = a
Next
Range("B2").Resize(UBound(Arr)).NumberFormatLocal = "@"
Range("B2").Resize(UBound(Arr)) = Arr
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)

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

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

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-10-30

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

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-10-30

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

hcm19522

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

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

熱烈參與勳章

4^#

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

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