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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2021-7-9 10:29 | 只看該作者

[發問] 數字各取1

重複取1.rar (2.01 KB)
A2=B2：F2以下的數字各取1
下拉填滿。

請教：Excel 2003的函數公式？
謝謝！

樓主熱帖

ziv976688

高中生 Rank: 3 Rank: 3

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

32^#

發表於 2021-7-22 22:02 | 只看該作者

回復 31# 准提部林
哈~我真是假會~~
感謝版主不厭其煩的指導和幫忙

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

31^#

發表於 2021-7-22 21:24 | 只看該作者

回復 28# ziv976688

第2種公式, 不須用with ~~ end with

TOP

ziv976688

高中生 Rank: 3 Rank: 3

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

30^#

發表於 2021-7-22 20:52 | 只看該作者

回復 29# ML089
版主 :您好!
瞭解了!
感謝您的耐心指導和幫忙

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

29^#

發表於 2021-7-22 20:41 | 只看該作者

回復 27# ziv976688

1_列6的sp是什麼涵義? special?
需不需要設立變數?
2_我現在設立的變數對不對?夠不夠全?

SP是一個變數，名稱為隨意定，當初是以 Split 簡寫
好的程式應該是要定義變數比較嚴謹，因為VBA不強迫宣告變數，加上我是業餘寫小程式就沒習慣定義變數。

這小程式有4個變數可以定義如下
Dim xD As Object, xS As Worksheet, xR As Range, SP

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ziv976688

高中生 Rank: 3 Rank: 3

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

28^#

發表於 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是我寫錯程式碼，還是我放錯位列?
請您賜正。
謝謝您