數字各取1 - Excelㄧ般區 - 麻辣家族討論版版

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

11^# 跳轉到 »

發表於 2021-7-20 13:17 | 顯示全部帖子

本帖最後由 ziv976688 於 2021-7-20 13:21 編輯

回復 14# ML089
不好意思，沒有注意到測試附件未上傳

數字各取1_ML089.rar (89.83 KB)

有看到列17
.[A4].Resize(xD.Count, 1) = Application.Transpose(xD.keys) '字典取唯一、水平轉垂直、填入儲存格
可是不知道怎麼修正

謝謝您

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

12^#

發表於 2021-7-20 13:58 | 顯示全部帖子

本帖最後由 ziv976688 於 2021-7-20 14:04 編輯

回復 15# 准提部林
不好意思，雖然能以別的方法解決，但很想研習您的語法~
請問 :
A2=COUNT(A4:A52)&"個" '只要統計49格，因為最多也只有49個號碼
以您的語法，應該怎麼編寫 ?
謝謝您

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

13^#

發表於 2021-7-20 15:23 | 顯示全部帖子

測試OK了!
感謝您的耐心指導

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

14^#

發表於 2021-7-20 15:26 | 顯示全部帖子

回復 21# 准提部林
第二段是我想學習的~
感謝版主的耐心指導

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

15^#

發表於 2021-7-20 16:26 | 顯示全部帖子

本帖最後由 ziv976688 於 2021-7-20 16:29 編輯

回復 22# ML089
不好意思，回復20樓時，忘了點回復鍵。

貴程式碼都有註解，對我在學習上幫助甚大~感恩

完全OK了!
您學習得真快，我就差遠了。
謝謝您的耐心指導和幫忙

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

16^#

發表於 2021-7-21 13:15 | 顯示全部帖子

回復 12# samwang
回復 20# ML089
回復 21# 准提部林
http://forum.twbts.com/thread-23266-1-1.html
懇請各位大大指導和幫忙 ! 謝謝

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

17^#

發表於 2021-7-22 19:46 | 顯示全部帖子

本帖最後由 ziv976688 於 2021-7-22 19:52 編輯

回復 22# ML089

數字各取1_ML089.rar (84.3 KB)
不好意思，將這幾天的問題解答整理後，
想再向您請教幾個小問題 :
程式碼在Module3
1_列6的sp是什麼涵義? special?
需不需要設立變數?
2_我現在設立的變數對不對?夠不夠全?
謝謝您

PS : 目前檔案執行正常~可Run出正確答案。

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

18^#

發表於 2021-7-22 19:50 | 顯示全部帖子

回復 21# 准提部林
Sub 餘數各取1()
Dim Brr(1 To 99, 0), xS As Worksheet, A, B
For Each xS In Sheets(Array("準2進3", "準3進4", "準4進5", "準5進6", "準6進7", "準7進8"))
For Each A In xS.Range("d2:j" & xS.[b65536].End(xlUp).Row + 1).Value
      For Each B In Split(A, ",")
         Brr(B, 0) = B
      Next B
Next
With xS.[a4].Resize(99)
      .Value = Brr:  Erase Brr
      .Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
End With
' With xS.[a2] = Application.Count(xS.[A4:A52]) & "個": End With
Next
End Sub
請問 :
列13是我寫錯程式碼，還是我放錯位列?
請您賜正。
謝謝您