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

[發問] 數字各取1

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

1^# 跳轉到 »

發表於 2021-7-10 12:04 | 顯示全部帖子

A2//陣列:
=TEXT(SMALL(IF(COUNTIF(B:F,TEXT(ROW($1:$39),"!*00!*")),ROW($1:$39),99),ROW(A1)),"[<99]00;")

數字限1~39
把a:f欄設成文字格式, 再將單獨的數字重新輸入為兩位數, 如:05,06

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

2^#

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

Sub TEST()
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
Next
End Sub

TOP

准提部林