Question

使用这些代码可以搜索A列中的所有值，但是有什么方法可以对其进行过滤？就像基于B，C，D的列为空或有值一样。

最终结果将类似于如果B或C或D列为空，则A列标题将在X中列出，如果B，C，D得到值，则A列标题将在Y中列出。

*因此A列将返回到基于B，C，D列为空的列表框或组合框

 With Worksheets("sheet1")

Me.x.List = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value
Me.y.List = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value

 End With

结果如下：

Example 1

Answer 1

我自己解决了

Private Sub UserForm_Initialize()
    Dim X As Long
    Dim Y As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Sht1")
    Y = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    For x= 1 To Y 
        If ws.Range("B" & x) ="" or ws.Range("C" & x) = "" or ws.Range("D" & x) = ""Then
            Me.ListBox1.AddItem ws.Range("A" & x)
        End If
    Next r
End Sub

搜索并过滤到列表框和组合框

1 个答案: