vba复合过滤

Ⅰ VBA复合框，下拉项。要求输入框输入字符串时模糊匹配下拉项字符串并去，除所有不包含输入字符串的下拉

Dim arr
Private Sub ComboBox1_Change()
ComboBox1.DropDown
a = ComboBox1.Text
For i = ComboBox1.ListCount - 1 To 0 Step -1
If InStr(ComboBox1.List(i), a) = 0 Then
ComboBox1.RemoveItem (i)
End If
Next
If a = "" Then
ComboBox1.Visible = False
ComboBox1.Visible = True
ComboBox1.SetFocus
ComboBox1.DropDown
ComboBox1.Clear
For i = 0 To UBound(arr)
ComboBox1.AddItem arr(i)
Next
End If
End Sub
Private Sub UserForm_Initialize()
arr = Array("abc", "bnb", "hui", "ooo", "pio", "rta", "err", "qwe", "qqq", "wwe")
For i = 0 To UBound(arr)
ComboBox1.AddItem (arr(i))
Next
End Sub

Ⅱ vba 里面怎么过滤数组里面的重复值。

用字典的方法参考代码
SubPushAndPop()
OnErrorGoToErr_Lab
DimCL AsRange
DimKey AsVariant
DimRow AsLong
Row = 3
Sheets("Sheet3").Range("B3:C65535").ClearContents
SetKey = CreateObject("Scripting.Dictionary")
ForEachCL InSheets("Sheet2").Range("B3:B65535")
IfCL.Value = ""ThenExitFor
IfNotKey.Exists(CL.Value) Then
Key.Add CL.Value, CStr(CL.Value)
Sheets("Sheet3").Cells(Row, 2).Value = CL.Value
'......
DoEvents
Row = Row + 1
EndIf
Next
SetKey = Nothing

ExitSub
Err_Lab:
MsgBox Err.Number
EndSub

Ⅲ VBA中清除文本框和复合框中的内容

TypeName(rng) 注意大小写 TextBox

Ⅳ 如何用VBA过滤多列重复数据

Sub 去重方法二()

Dim d As Object, bR, arr

t = Timer
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual

zw = [XFD1].End(xlToLeft).Column ' 自动识别最后一列。从右往左，找出第一个非空单元格，取它列号。
sm = 8 '第8列，即H列，也即运单编号所在列，根据此字段来判断是否有重复项。8这个数字不用改。

Set c1 = Cells(1000000, sm).End(xlUp)
qq = c1.Row

bR = [A2].Resize(qq - 1, zw) '把数据区域 装入bR数组
Set d = CreateObject("scripting.dictionary")
n = 0
ReDim arr(1 To c1.Row, 1 To zw) '定义arr数组长，宽
For i = 2 To qq
If Not d.exists(bR(i - 1, sm)) Then
d.Add bR(i - 1, sm), "" '【核心】循环 运单编号 字段，把此字段唯一值循环装入字典d
n = n + 1
For j = 1 To zw
arr(n, j) = bR(i - 1, j) '同时，再把它其他信息装入arr数组
Next
End If
Next
Range(Cells(2, "A"), Cells(1000000, zw)).ClearContents
[A2].Resize(n, zw) = arr
Set d = Nothing: Erase bR: Erase arr

Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox "搞定！耗时 " & Round(Timer - t, 0) & " 秒！已删除 " & qq - Cells(1000000, sm).End(xlUp).Row & " 个重复项！"

End Sub

Ⅳ VBA复合框去除多余项

PrivateSubUserForm_Initialize()
Dimi,j,m,clc,FlagAsSingle
Fori=1To10
ComboBox1.AddItemApplication.WorksheetFunction.RandBetween(1,10)
Next
Flag=1
clc=ComboBox1.ListCount
DoWhileFlag<=clc

1:
Fori=2ToComboBox1.ListCount
Forj=1Toi-1

IfComboBox1.List(j-1)=ComboBox1.List(i-1)Then
ComboBox1.RemoveItem(i-1)
Flag=Flag+1
GoTo1
EndIf

Next
Next

Flag=Flag+1
Loop

EndSub

Ⅵ excel 怎么通过vba过滤出一行的重复的数据

度友，你好，如图，公式：=MID(SUM(MID(A1&1/17,SMALL(FIND(ROW($1:$10)-1,A1&1/17),ROW($1:$10)),1)/10^ROW($1:$10)),3,COUNT(FIND(ROW($1:$10)-1,A1)))

如果是2016版本的，支持TEXTJOIN的话，公式：=TEXTJOIN("",1,IF(ISNUMBER(FIND(ROW($1:$10)-1,A1)),ROW($1:$10)-1,""))

数组公式，需要shift+ctrl+enter三键结束

Ⅶ excel vba怎么筛选和过滤数据

录制一段宏，看代码不就行了。只要界面上能操作的，不知道VBA怎么写都可以录制宏，然后复制到自己的VBA代码里修改一下即可。

Ⅷ 请问VBA中，多个条件筛选如何实现

是否可以使用autofilter方法，并用field属性添加各个筛选条件即可。
语法：
expression.AutoFilter(Field, Criteria1, Operator, Criteria2, VisibleDropDown)
expression 必需。该表达式返回“应用于”列表中的对象之一。
Field Variant 类型，可选。相对于作为筛选基准字段（从列表左侧开始，最左侧的字段为第一个字段）的偏移量。
Criteria1 Variant
类型，可选。筛选条件（一个字符串；例如，“101”）。使用“=”可搜索到空字段，或者使用“<>”可搜索到非空字段。如果省略该参数，则搜索条件为
All。如果将 Operator 设为 xlTop10Items，Criteria1 则指定数据项个数（例如，“10”）。
Operator XlAutoFilterOperator 类型，可选。
XlAutoFilterOperator 可为以下 lAutoFilterOperator 常量之一。xlAnd 可使用 xlAnd 和 xlOr 将 Criteria1 和 Criteria2 组合成复合筛选条件。

具体使用示例：
Range(数据区域).AutoFilter Field:=数据区域中条件A所在列的序号, Criteria1:=条件A
Range(数据区域).AutoFilter Field:=数据区域中条件B所在列的序号, Criteria1:=条件B
Range(数据区域).AutoFilter Field:=数据区域中条件C所在列的序号, Criteria1:=条件C
Range(数据区域).AutoFilter Field:=数据区域中条件D所在列的序号, Criteria1:=条件D1, _
Operator:=xlOr, Criteria2:=条件D2

Ⅸ Excelvba窗体为什么我这个复合框代码筛选附值不能识别，直接输入又可以求大神解决 Privat

.range().value

Ⅹ VBA 如何筛选一个文件中复合条件的数据更新到另一个文件

Sub Copy_Data()Dim wb As Workbook, rng As Range, sht As WorksheetDim sht_Name, theDatesht_Name = "Sheet1" '假设所有报表文件中的数据都在 Sheet1Set sht = ActiveSheet '保存当前工作表对象fn = Dir(ThisWorkbook.Path & "\报表-*.xls", vbReadOnly) '打开第一个报表文件Do While fn <> "" '开始循环 Set wb = Workbooks.Open(fn) '以只读模式打开报表文件 '取得报表文件中的日期字符串 theDate = Mid(fn, InStr(fn, "\报表-") + 4, Len(fn) - InStr(fn, "\报表-") - 7) '将报表文件中的数据复制到当前工作表 With wb.Worksheets(sht_孩沪粉疚莠狡疯挟弗锚Name) .Range(.Range("A2"), .Range("A1").End(xlToRight).End(xlDown)).Copy _ Destination:=sht.Range("A65536").End(xlUp).Offset(1, 1) End With wb.Close (False) '关闭报表文件，不保存 sht.Activate '激活当前工作表 Range(Range("A65536").End(xlUp).Offset(1, 0), Range("B65536").End(xlUp).Offset(0, -1)) = DateValue(Format(theDate, "0000-00-00")) '在A列填充报表文件的日期信息 fn = DirLoop '循环下一个报表文件End Sub