VBA中根据某个指定的单元格进行筛选

最新推荐文章于 2024-09-11 07:16:42 发布
最新推荐文章于 2024-09-11 07:16:42 发布
阅读量408 收藏
点赞数 4
文章标签： oracle 数据库 服务器
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/2401_83532256/article/details/136698555
版权

 Sub search_data()
 
 Set x = Worksheets("销售查询").Range("E6")
 
 Sheets("销售数据库").Select
    ActiveSheet.ListObjects("表1").Range.AutoFilter Field:=3, Criteria1:=x
 
 End Sub

AutoFilter Field ：筛选的字段位于筛选区域的第几列 

小鱼很厉害
关注
在Excel中使用VBA来筛选数据
Mars的自语
11-27 2万+
1.       问题由来早晨还没有完全醒来，你就被电话吵醒，有一个中学同学向你请教一个Excel的问题。作为一个所谓的Excel专家，你经常会受到此类骚扰。问题大概是这样的，一个很大的Excel文件，其中有些行是重复的，也就是说，有2行是完全一样的，而有些行是不重复的，现在的问题是要找出所有不重复或者重复的行，你没有听明白。你大概考虑了一下，用“VLOOKUP”查找一下，然后重新排序，应
VBA 对于筛选的一些操作
weixin_44819434的博客
10-13 1434
【代码】VBA 对于筛选的一些操作。
excel中利用VBA实现筛选功能
造钞
05-22 2189
笔者使用的是excel 2021家庭或学生版。实现功能：在office的excel中，在一张表中，从表中第4行开始，C列、D列、E列、F列（4列）输入的数据在该四列已经输入的数据中已经存在（输入的数据类型多样化，并且允许4列数据中有空值存在）。此时，提示用户这数据已经存在，请勿重复输入，并且该条新增记录不被保存，怎么实现？
Excel VBA AutoFilter 多字段筛选_用vba实现任意列包含字符的高级筛选
m0_60567881的博客
04-17 1185
这段代码和Case 1最大不同就是筛选范围是动态的，即A列和C列包含数据的区域，需要注意的是，range(“A1”,[C1].end(xldown))来表示活动区域时，如果运行的工作表不止一个，需要写成range(“A1”,sheets(“Data”).[C1].end(xldown)).假定所有字段分别为“啤酒”，“面包”，“香肠”，“牛排”，“蛋糕”，“猪排”，需要筛选除“猪排”外所有字段，与此类似，如果反选有“猪排”和“蛋糕”两个字段，Criteria2参数加上即可，如下述。理想很丰满，现实很骨感。
excel中VBA获取指定单元格内容
u010719791的专栏
11-24 1万+
1、筛选指定列获取数据 For Each Rng In Sheets("目录").Range("b1:B23") Debug.Print Rng.Value If Rng.Value = "个人" Then n = n + 1 Sheets("备注").Cells(n, "g").Resize(1, 5) = Rng.Offset(0, -1).Range("a1:e1").Value Sheets("备注").Cells(n, "g").
快速清空Excel表格（超级表）
神奇的BI
08-22 1688
实例需求：示例文件中的表格（有时称为超级表）如下图所示。现在需要清空表格内容，保留一个空行，如下图所示。
Excel 2010 VBA 入门 038 按颜色查找单元格
复行数十步
04-13 2169
目录 示例： 实现代码： 单元格对象的Clear方法 动态表示数据区域 单元格对象的Copy方法 示例代码2.0 单元格对象的选择性粘贴(PasteSpecial)方法 参数Paste表示选择性粘贴的内容，可以为下表中的任何一个。 参数Operation为粘贴的附加操作，可以为下表中的任何一个。 参数SkipBlanks表示是否跳过空白单元格，若为True，则表示不将剪贴板中的空白单元格复制到目标区域。 参数Transpose表示是否转置，若为True，则表示转置。 示例： ..
Excel中VBA筛选特定内容迁移到新sheet
qq_38801934的博客
05-01 6849
一、背景 checklist中有多个工作表，对每个工作表筛选出fail项进行查看，费时费力 二、实现思路 在excel中编写VBA脚本，遍历每个表并进行筛选失败项，将fail项汇总到failResult表中 三、具体实现 Attribute VB_Name = "fail项过滤" 'Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) Sub 宏1() '添加注释 Application.ScreenUp
Excel VBA小程序03-快速提取单元格中的数字和非数字
Nemuel的博客
08-09 6055
遇事不决就去隔壁找Word 手机2134 型号324 2135手机 325型号 2手机136 32型号6 自定义函数 Function Extract_numbers(aa As Range) Dim n As Integer, i As Integer, tem n = Len(aa.Value) For i = 1 To n If IsNumeric(Application.Find(Mid(aa.Value, i, 1), "
Excel-VBA宏编程实例源代码-排序与查询-忽略重复项进行筛选.zip
12-14
在这个特定的压缩包"Excel-VBA宏编程实例源代码-排序与查询-忽略重复项进行筛选.zip"中，包含的源代码很可能是针对如何在VBA中实现数据的排序和去重功能。以下是对这些知识点的详细解释： 1. **VBA基础知识**： - ...
Excel 2010 VBA 入门 047 判断某文本中是否包含指定字符（Instr）
复行数十步
04-15 1万+
示例 如图所示，该表为某公司采购清单。由于在记录时并未标记供应商来源地，只能通过E列供应商名称中寻找。现需要筛选出所有上海的供应商采购记录，该如何用VBA实现？ 商品编码 入库日期 部门 业务员 供应商 数量 单价 金额 GXGY023 2009/1/1 采购部 刘清 上海照明公司 200 41.88 8376.07 GXGY024 2009/1/1 采购部 刘清 上海照明公司 ..
Excel·VBA自定义函数筛选单元格区域重复值
hhhhh_51的博客
03-09 2710
贴吧提问，Excel内置函数使用比较麻烦，VBA字典实现比较直观自定义函数UNIQUE_IF筛选单元格区域中的值，可以选择返回其中的唯一值或重复值，并用分隔符分隔。
Excel VBA 多条件筛选及汇总统计
jfmyes的博客
04-22 2万+
在日常工作中，面对Excel表格数据，为了分类进行统计，通过对表格数据筛选获取分类条目，再按条目实行汇总统计。要完成上面的工作，有人工操作和开发程序两种方法，本文通过一个实例，详细介绍这两种方法。
excel vba筛选
muyuruo
02-10 1万+
excel 中有两个筛选 1、筛选，vba 代码为 set rg=range("a1:a100") rg.AutoFilter Field:=1, Criteria1:="内容" rg 为筛选区域， Criteria1为筛选的值，比如在A1列内筛选内容为北京区的 ，则 Criteria1="北京区" 2、高级筛选  Rg.AdvancedFilter Action:=xlFilte
VBA筛选AutoFilter用法
热门推荐
Gordennizaicunzai的博客
06-24 6万+
在面对大量数据时，我们可以使用Excel的筛选功能，滤出我们需要的信息。在本文中，我们先从Excel中的“筛选”命令谈起。         如下图所示的工作表，将活动单元格置于任一数据单元格中，单击功能区中的“排序和筛选”中的“筛选”命令，可以看到表头单元格中出现了筛选下拉箭头。   上述操作录制的VBA代码如下： Sub Macro1() ' ' Macro1
Oracle EBS AP预付款行分配行剩余预付金额数据修复
最新发布
陈显平的专栏-Oracle EBS
09-11 317
英文：You may not cancel this prepayment. See the Oracle Payables User’s Guide or online help.英文：APP-SQLAP-10117: You cannot delete a prepayment that has been applied to an invoice(s).中文：APP-SQLAP-10117: 您无法删除已核销至发票的预付款。请撤消所有预付款核销，撤消已付预付款的付款单据，然后删除预付款。
1、打开excel表后打开文件夹中的某个工作簿，然后排序该工作簿某字段为升序，然后摘取指定字段的值存放在表1中 2、将表1的所有值追加到表2中 3、将表3中的重复值根据另外字段中最小值，删除重复值得整行数据 4、表4中根据某单元格的值筛选表3中的全部内容放在表4指定单元格中 完成以上某一项指令后要刷新屏幕的vba代码
06-11
以下是VBA代码，可以实现你提到的四个任务： ``` Sub ProcessExcel() Dim wb As Workbook Dim ws As Worksheet Dim ws1 As Worksheet Dim ws2 As Worksheet Dim ws3 As Worksheet Dim ws4 As Worksheet Dim lastRow As Long Dim lastRow1 As Long Dim lastRow2 As Long Dim lastRow3 As Long Dim lastRow4 As Long Dim i As Long Dim j As Long Dim k As Long Dim l As Long Dim temp As Variant ' 打开文件夹中的某个工作簿 Set wb = Workbooks.Open("C:\folder\workbook.xlsx") Set ws = wb.Worksheets("Sheet1") ' 排序某字段为升序 ws.Sort.SortFields.Clear ws.Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ws.Sort.SetRange Range("A1:D100") ' 修改为你需要排序的区域 ws.Sort.Header = xlYes ws.Sort.MatchCase = False ws.Sort.Orientation = xlTopToBottom ws.Sort.SortMethod = xlPinYin ws.Sort.Apply ' 摘取指定字段的值存放在表1中 Set ws1 = wb.Worksheets("Sheet2") ' 修改为你需要操作的工作表 lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row ' 修改为你需要摘取的区域 j = 1 ' 修改为你需要摘取的列数 For i = 2 To lastRow temp = ws.Cells(i, j).Value ws1.Cells(i - 1, 1).Value = temp Next i ' 将表1的所有值追加到表2中 Set ws2 = wb.Worksheets("Sheet3") ' 修改为你需要操作的工作表 lastRow1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row lastRow2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To lastRow1 temp = ws1.Cells(i, 1).Value ws2.Cells(lastRow2 + i, 1).Value = temp Next i ' 将表3中的重复值根据另外字段中最小值，删除重复值得整行数据 Set ws3 = wb.Worksheets("Sheet4") ' 修改为你需要操作的工作表 lastRow3 = ws3.Cells(Rows.Count, 1).End(xlUp).Row ws3.Range("A1:D" & lastRow3).RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes ' 修改为你需要删除重复行的区域 ' 将表4中根据某单元格的值筛选表3中的全部内容放在表4指定单元格中 Set ws4 = wb.Worksheets("Sheet5") ' 修改为你需要操作的工作表 lastRow4 = ws4.Cells(Rows.Count, 1).End(xlUp).Row ws3.Range("A1:D" & lastRow3).AutoFilter Field:=1, Criteria1:=ws4.Range("A1").Value ' 修改为你需要筛选的列数和条件单元格 k = 2 ' 修改为你需要写入结果的起始行数 For l = 2 To lastRow3 If ws3.Cells(l, 1).EntireRow.Hidden = False Then ws4.Cells(k, 1).Value = ws3.Cells(l, 1).Value ws4.Cells(k, 2).Value = ws3.Cells(l, 2).Value ws4.Cells(k, 3).Value = ws3.Cells(l, 3).Value ws4.Cells(k, 4).Value = ws3.Cells(l, 4).Value k = k + 1 End If Next l ' 刷新屏幕 Application.ScreenUpdating = True End Sub ``` 请根据你的实际情况修改代码中的文件路径、工作表名称、区域和单元格等参数。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值