求助: 用VBA统计一串没有重复的数据并添加到列表框

yixiangke66

VBA菜鸟一枚,想实现VBA统计一串没有重复的数据并添加到列表框,然后该列表框在C列的每一个单元格都能使用.
我只能找出该串没重复的数据并放到B列,但是放不进列表框.
另外,用VBA数据有效性是不是也可以实现同样的功能? 要怎么编写?
谢谢.

Private Sub Workbook_Open()
Dim n
Set d = CreateObject("scripting.dictionary")
For n = 1 To [a65536].End(xlUp).Row
    If Range("a" & n) <> "" Then
    d(Range("a" & n).Value) = ""
    End If
Next n
Columns("b").Clear
[b1].Resize(d.Count) = Application.Transpose(d.keys)
End Sub

活在理想的世界

1. Private Sub Workbook_Open()
   
2. Sheet1.ComboBox1.Clear
   
3. Dim D As New Dictionary
   
4. Dim A()
   
5. Dim I As Integer
   
6. Dim K As Long
   
7. K = Sheet1.Range("A1048576").End(xlUp).Row
   
8. A = Sheet1.Range("A1:A" & K)
   
9. For I = LBound(A) To UBound(A)
   
10.     If Range("A" & I) <> "" Then
    
11.         D(A(I, 1)) = ""
    
12.     End If
    
13. Next
    
14. Sheet1.ComboBox1.List = D.Keys
    
15. End Sub
    

复制代码

活在理想的世界

11111111111111111111111111111111111

yixiangke66

活在理想的世界 发表于 2017-3-11 16:41

谢谢.这个可以.
如果我想把这个列表框放在C列的单元格里面,要怎么写? 就是点任何C列一个单元格,都可以从下拉菜单里面选择,类似数据有效性的下拉菜单. 是不是要用worsheet_selectionchange这个事件?

活在理想的世界

yixiangke66 发表于 2017-3-11 18:33
谢谢.这个可以.
如果我想把这个列表框放在C列的单元格里面,要怎么写? 就是点任何C列一个单元格,都可以从 ...

数据有效性需要的是一个区域，字典放不进数据有效性的。
如果需要去重还需要数据有效性必须新建工作表了。
分两步，第一步去重，第二步数据有效性，可以用OFFSET实现，想一步到位的做不到。

yixiangke66

活在理想的世界 发表于 2017-3-11 18:41
数据有效性需要的是一个区域，字典放不进数据有效性的。
如果需要去重还需要数据有效性必须新建工作表了 ...

谢谢.
我现在想把列表框里面的选择放到C列单元格,发现写不进去. 可以再帮我看看吗? 谢谢.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Column = 3 Then
        ComboBox1.Visible = True
        ComboBox1.Top = Target.Top
        ComboBox1.Left = Target.Left
        ComboBox1.ListIndex = 0
        End If
        End If
End Sub

活在理想的世界

yixiangke66 发表于 2017-3-11 18:53
谢谢.
我现在想把列表框里面的选择放到C列单元格,发现写不进去. 可以再帮我看看吗? 谢谢.

1. Private Sub ComboBox1_Change()
   
2. Dim I As Long
   
3. I = Sheet1.Range("C1048576").End(xlUp).Row
   
4. Sheet1.Range("C" & I + 1) = Me.ComboBox1.Value
   
5. End Sub
   

复制代码

活在理想的世界

我连续解决了你提出的两个问题，你是不是也应该给我几朵小红花了。

这个要求应该不过分吧。

yixiangke66

活在理想的世界 发表于 2017-3-11 19:33
我连续解决了你提出的两个问题，你是不是也应该给我几朵小红花了。

这个要求应该不过分吧。

当然没问题了,哪里可以送小红花?
其实我是想实现在C列的单元格里面载入列表框,就是在C列里面点击任何一个单元格,都自己载入列表框,然后选择一个数,就自动输入到当前单元格.
请帮忙再看看,谢谢大神.

世界的征服者

都不错，就不再赘述了！