- 帖子
- 60
- 主題
- 4
- 精華
- 0
- 積分
- 64
- 點名
- 0
- 作業系統
- w7-32
- 軟體版本
- 2013.2003
- 閱讀權限
- 20
- 註冊時間
- 2014-11-23
- 最後登錄
- 2016-6-6
|
2#
發表於 2015-5-6 20:36
| 只看該作者
收集了一個其餘請自行擴充搞定- Private Sub UserForm_Initialize()
- Dim A As Range
- ComboBox1.Clear
- Set d = CreateObject("Scripting.Dictionary")
- With Sheets("工作表1")
- .Activate
- For Each A In .Range("A2", .[A2].End(xlDown))
- d(A.Value) = IIf(d(A.Value) = "", A.Offset(, 2).Value, d(A.Value) & "," & A.Offset(, 2))
- Next
- ComboBox1.List = d.keys
- End With
- ComboBox1.Value = "選取"
- End Sub
- Private Sub CommandButton1_Click()
- Sheets("工作表1").AutoFilterMode = False
- kx = ComboBox1.Value
- With Sheets("工作表1")
- If kx <> "選取" And kx <> "" Then .UsedRange.AutoFilter Field:=1, Criteria1:=kx
- Sheets("工作表2").Cells.Clear
- .UsedRange.Copy Sheets("工作表2").Range("A1")
- End With
- Sheets("工作表1").AutoFilterMode = False
- End Sub
|
|
