EXCEL VBA ,关于筛选的问题

发布网友 发布时间：2022-05-01 17:36

我来回答

共5个回答

热心网友 时间：2022-06-20 09:49

哈哈，这个啊！我前几天也是因为这个烦恼呢，不过现在超级简单哦，告诉你哦，你会选择筛选吧，（就是选中标题栏那一行，点击数据，在其出来的对话框中点击“筛选”，右侧弹出对话框“选择自动筛选”）。这些你会吧，接着，你自己想过滤哪一列的数据或文字就直接选择那一列的标题右下角的倒立的“△”符号，选择“自定义”，然后你就可以根据提示操作了，哈哈！筛选出来以后，你直接复制到另一个工作表就好了，

热心网友 时间：2022-06-20 09:50

用高级筛选，如经常操作，录个宏。

Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("Sheet3").Select
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Sheets("Sheet1").Range("A1:S4700").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Sheet1!Criteria"), CopyToRange:=Range("A1"), Unique _
:=True
End Sub

这个代码就是把Sheet1中B列包含某字的筛选到Sheet3.
在T2写：=ISNUMBER(FIND("新",B2))

热心网友 时间：2022-06-20 09:50

vba的话可以用 find 函数 确定行标，然后复制

技巧也可以用 查找选择后直接复制

直接用函数match查找就行嘛，如果返回错误值说名没有，如果返回的是数字刚好就是行数，无需用VBA的，用VBA也是用的MATCH函数或者FIND函数

热心网友 时间：2022-06-20 09:51

要想实现你的目的，必须要sheet2和sheet1有联系（sheet2中的100个电话号码在sheet1中能找到）。

热心网友 时间：2022-06-20 09:52

Hi我，直接给你做好

这个VBA 比较简单，我给你写