- 帖子
- 678
- 主題
- 147
- 精華
- 0
- 積分
- 799
- 點名
- 0
- 作業系統
- win 8
- 軟體版本
- MS 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2016-2-9
- 最後登錄
- 2022-1-20
|
回復 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是我寫錯程式碼，還是我放錯位列?
請您賜正。
謝謝您 |
|
發表於 2021-7-20 13:17
| 
