如何使用Autofilter - VBA在过滤结果后复制特定列
Autofilter是一种在Excel VBA中用于自动筛选数据的方法。它可以根据特定的条件过滤数据，并复制特定列的结果。
Autofilter的使用步骤如下：
- 首先，打开Excel，并在VBA编辑器中创建一个新的模块。
- 在模块中编写以下代码，以实现使用Autofilter进行数据筛选和复制特定列的功能：
Sub FilterAndCopy()
Dim ws As Worksheet
Dim rng As Range
' 设置要操作的工作表
Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
' 确定要过滤的数据范围
Set rng = ws.Range("A1:D10") ' 将"A1:D10"替换为实际的数据范围
' 启用自动筛选
rng.AutoFilter
' 设置过滤条件
rng.AutoFilter Field:=1, Criteria1:="条件1" ' 将"条件1"替换为实际的过滤条件
' 复制特定列的结果
ws.AutoFilter.Range.Columns(2).SpecialCells(xlCellTypeVisible).Copy ' 复制第2列的结果
' 将结果粘贴到其他位置
ws.Range("F1").PasteSpecial ' 将结果粘贴到"F1"单元格，可以根据需要替换为其他位置
' 关闭自动筛选
ws.AutoFilterMode = False
End Sub请注意，在使用上述代码时，需要将"Sheet1"和"A1:D10"分别替换为实际的工作表名称和数据范围。同时，可以根据需要修改过滤条件和复制的列数、粘贴位置等。
Autofilter的优势在于它可以方便快速地筛选大量数据，并复制特定列的结果，从而提高数据处理效率。
Autofilter在实际应用中具有广泛的应用场景，例如：
- 数据分析和报表制作：通过筛选数据，可以快速生成符合特定条件的报表。
- 数据清洗和整理：可以通过筛选数据来清洗和整理数据，去除不需要的信息。
- 数据比对和匹配：可以使用筛选功能来比对和匹配不同数据源中的相似数据。
- 数据导出和导入：通过筛选数据并复制特定列，可以将数据导出到其他软件或系统中使用。
推荐的腾讯云相关产品：由于不可提及具体云计算品牌商，请在腾讯云官方网站上查找与Excel相关的云产品和解决方案。
希望以上信息对你有所帮助！
相关·内容
因此，在对列应用了几个筛选器之后，我尝试从该列复制唯一值。对于其中一个筛选器，我不能按确切的字符串进行筛选，因为列如下：
我想要从右数第八位有"U“的值，而忽略在同一位置有"O”的值。
例如，在图像中：'S20-0260-TA-002_W06_05C_AMBRH_U-404728‘应该存在，但'S20-0260-TA-001_W06_30C_75RH_O-404713’不应该存在。
我知道如何从右边，从右边的函数中检查字符，但我正在努力将其应用于带有if条件的筛选器。这是我到目前为止使用其他过滤器的相关代码：
Dim uniquesArray As V
浏览 0提问于2021-01-30得票数 3
1回答
我收到多封邮件，我必须进行模式搜索，并将结果保存到一个数组中。在excel vba中有什么简单的方法可以做到这一点吗？
我的邮件内容如下所示：
选择:您的选择
Description :我的描述
项目：
ITEM.12345.XYZ
ITEM.56789.KHI
ITEM.54567.YHT
这是一个示例邮件。
..
我需要为所有以ITEM开头的行执行grep。我可以这样做，通过这种方式：
aryLines = Split(MyMail.Body, vbCrLf)
循环遍历aryLines
查找匹配项
我正在寻找一种简单的解决方案，因为匹配行的数量会有所不同，有时会超过1000行，有时会少于1
浏览 1提问于2013-12-21得票数 0
最近，我有一些关于多列的动态过滤的有趣问题。此外，我已经在S/O中搜索了所有的解决方案，但似乎没有一个有效： Autofilter for multiple columns in excel VBA :VBA for filtering columns :Dynamic filter using excel VBA 最近，我看了一篇Dynamic Filtering in Excel using VBA 的教程(注:我没有Microsoft365，因此过滤功能对我不起作用)。 我试图实现的是，当VBA脚本检测到textbox中的更改时，我只想使用一个文本框(链接在单元格C3上)同时过滤出列2
浏览 90提问于2020-09-02得票数 0
1回答
我做了一个代码，用于按选定单元格值过滤，以创建一个快速访问工具栏图标，并使其更快地过滤。当过滤器从A列开始时，它工作得很好。但有些过滤器从B列或C列开始。并在另一列中筛选该值，跳过与没有筛选的空列完全相同数量的空列。你们知道怎么修吗？如何让VBA返回字段编号？ Sub Filtro_Valor_Célula()
'Filtra a coluna pelo valor da célula selecionada
'
Valor = ActiveCell.Value
ActiveSheet.Range(ActiveSheet.AutoFilter.Range
浏览 16提问于2019-12-30得票数 0
回答已采纳
1回答
我有一个文件，它的A-D列充满了信息。直到第75行的每一行都被填满了；随着时间的推移，它的长度会发生变化。但是，列B和列C并不都包含数据。此外，第一行列A-D被合并，现在用作标题。
问题是：
我想打印D列中有"1“的所有行。我有一个宏，它会把它们从"1”排序到那些有"0“的行。"1“是第一个列出的。如何才能只打印D列中带有"1“的行？
浏览 1提问于2012-01-27得票数 0
我有一个包含此示例数据的Excel文件。
A B C D
Entity Container login mail
A 1 tutu tutu@tutu.com
A 1 toto tutu@toto.com
A 2 tata tutu@tata.com
B 3 tete tutu@tete.com
B 4 t
浏览 0提问于2016-11-23得票数 0
2回答
在筛选数据集之后，我试图复制一个特定的列(不包括标题)。如果筛选后有多行，则我选择的范围很好，并且可以将该列复制到另一个工作表中。但是，如果过滤后只有一行，当我指定范围时，它会选择所有空单元格和非空单元格，并且我的代码出现故障。我该如何解决这个问题？
我尝试过使用不同的范围属性，但没有得到想要的结果。
'''Finding the Pack Test Category from the filtered 1st column'''
Set RngA = ActiveSheet.AutoFilter.Range.SpecialCells(xlCel
浏览 1提问于2019-05-02得票数 0
回答已采纳
我正在处理Excel 2016 VBA宏，该宏将筛选器应用于标题列。然后，用户应用过滤条件。我希望能够在VBA中检索用户应用的筛选条件，并将其保存到字符串数组中。有没有办法访问筛选条件？
浏览 21提问于2017-07-06得票数 3
回答已采纳
我想知道我们是否可以在数组中使用" if“来过滤单个代码中的多个列。例如，我有两列数据&为了得到结果，我必须使用过滤器两次。 在第7列中使用Apple进行过滤的第一步&今天-第3列中的第3列和第8列中的之前 ActiveSheet.Range("A1:W100000").AutoFilter Field:=7, Operator:=xlFilterValues, Criteria1:="Apple"
ActiveSheet.Range("A1:W100000").AutoFilter Field:=8, Operator
浏览 32提问于2021-03-22得票数 1
回答已采纳
2回答
我正在进行一个项目，在这个项目中，我筛选列CI中的“否”和"N/A"，如果有任何结果，我希望从相应的行中复制A:CD中的数据。如何选择A:CD中的数据？我正在处理50,000+行数据，所以任何偏移循环都会使程序慢得太多。结束前的最后一行代码肯定是不正确的。
Sub selectdata()
Sheets("Sheet_1").Select
Range("A1:CD1", Range("A1:CD1").End(xlDown)).Copy
Sheets("Sheet_2").Select
ActiveSheet.R
浏览 1提问于2018-03-04得票数 0
回答已采纳
我运行我的VBA代码，它第一次运行时我得到了我想要的结果，但是如果我第二次运行它，我的列标题就会被删除。仅供参考，我的表从E开始，经过N。我的按钮在O列，当我第二次运行它时也会被删除。
切换范围没有帮助，将AutoFilter设置为false也不起作用。#
Sub Auto_filter()
Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("HP Service Manager")
sh.AutoFilterMode = False
With sh
On Error Resume Next
.ShowAllData
.
浏览 36提问于2019-08-02得票数 0
3回答
嗨，我试图过滤基于两列的标准。我正在尝试使用高级筛选器选项，但它的工作方式并不符合逻辑。我想我可能需要写一个输入框，并找到一种使用vba的方法，但我想确保在投入时间之前，我不会错过任何东西。
下面是我想要做的事情的一个例子
A B
1 20 30
2 21 35
3 7 15
4 26 27
5 5 15
6 9 12
7 24 26
output
A B
1 20 30
2 21 35
4 26 27
7 24 26
在这个例子中，我只想显示在a和b之间有26的行。不确定我是否可以组合
浏览 5提问于2018-01-30得票数 0
回答已采纳
我要求使用VBA筛选少于当前月份的记录。
ThisWorkbook.Sheets(1).Range("A:L").AutoFilter Field:=5, Criteria1:="<" & MonthName(Month(Date))
我试过了，但没有得到想要的结果。
请建议我们如何使用VBA过滤所需的数据。
浏览 3提问于2020-03-21得票数 0
1回答
我试图过滤excel中的两个列，以显示今天交付的所有结果(两个单独的列)。我尝试过多种方法，但我不断获得反映“和”陈述的结果。我觉得我很亲近。
Sub Playing_Today_v2()
Dim s As String
s = "=" & CStr(Date)
With ActiveSheet.ListObjects("table1").Range
.AutoFilter
.AutoFilter Field:=7, Criteria1:=s
End With
With ActiveSheet.ListObjects("table1"
浏览 0提问于2018-03-19得票数 0
回答已采纳
2回答
我有一张有200行的表格，中间有一些空白。
我不能使用End(xlDown)或End(xlUp)来获取整个范围，因为有空行。
如何将数据复制到列中包含数据的最后一个区域？
另外，我不想复制标题。
请建议我如何在Excel VBA中做到这一点。
浏览 0提问于2012-07-10得票数 0
1回答
过滤列的VBA
、、
我有一个像数据库一样大的工作表，第一行包含标题。我想要一个基于列值的表行子集。两个问题：
1)就VBA而言，我想循环遍历这些列，当所有必需列的值都匹配时，将整个行复制到一个新的工作表中。
2)行子集是基于一个列表的。我刚读到，我可以用一个数组来使用自动过滤器。是否可以从列中输入这个数组，而不是在VBA代码中手动输入它？我使用的列表由200个不同的字符串组成，并将定期更新。
其中CritList是字符串列表。我还需要想办法，但现在我离开了办公室，所以明天就更多了。
感谢@DougGlancy，EDIT1；现在自动过滤已经开始工作了。这是他漂亮的代码(我只添加了数组过滤器)。
EDIT2包含了一个
浏览 2提问于2012-12-18得票数 4
回答已采纳
给定一个数据集，也就是10列。在A列中我有日期，在B列中我有%。我只想筛选A列2014年的数据和B列<70%的数据，然后将筛选后的数据复制粘贴到另一个工作表中。如何开始编写下一行的代码，以获得过滤数据的第一行？
ActiveSheet.Range("$A$1:$AR$1617").AutoFilter Field:=5, Operator:= _
xlFilterValues, Criteria2:=Array(0, "12/28/2014")
ActiveSheet.Range("$A$1:$AR$1617").AutoFilter Fi
浏览 0提问于2014-05-15得票数 3
回答已采纳
1回答
如果我在输入表上应用自动筛选器，然后运行VBA代码，则代码不关心自动筛选器。
但是，有时在自动过滤的工作表上运行VBA代码会破坏程序的结果。
所以，我的问题是: VBA关心自动过滤器吗？
例如：
Sub check()
Dim rng as range
Set rng = Sheets("input").Range("A1")
row = 0
Do until rng.offset(row,0) = ""
row = row + 1
Loop
End Sub
在上面的代码中，VBA并不关心在
浏览 3提问于2012-04-24得票数 4
回答已采纳
下面是我的任务的简化模型：
我想过滤这个表，以便只显示7月22日至7月22日之后的条目.如果手动应用筛选器并在菜单/对话框中使用以下值，则可以获得预期的结果：
“日期Filters""After...""is”之后的和"22/7/2020"
但是当我使用这个代码(从自动过滤器关闭开始).
Dim xx As Date
xx = Cells(4, 1)
ActiveSheet.Range("$A:$B").AutoFilter Field:=1, Criteria1:=">" & xx, Op
浏览 2提问于2020-07-22得票数 0
我的VBA代码遇到了一些问题，我正在编写这些代码来替换手动过程。
我已经接近尾声了，但我很难让代码将过滤过的数据逐列地复制到新的工作表中(新工作表中的布局变化)。我目前拥有的代码只是复制单元格C2中的数据。
有人能看看这个，看看我哪里出了问题吗？我已经复制了下面代码的相关部分。
提前感谢
'Copy formula down
Range("F2:L2").Select
Selection.Copy
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("F2:L2").
浏览 1提问于2014-09-18得票数 0
回答已采纳
我有一个表tbl_recommendations，在第13列中包含以下值：--、-、=、+、++。
现在，我想过滤=、+、++。这是很好的手动工作，但是，当使用VBA过滤=时，我遇到了一些问题。只需使用宏录制器，它就会给出以下代码：
Sub Test()
ActiveSheet.ListObjects("tbl_recommendations").Range.AutoFilter Field:=13, _
Criteria1:=Array("+", "++", " = "), Operator:=xlFilterValu
浏览 0提问于2017-03-03得票数 0
1回答
我有一个简单的宏，其中包括一个满足条件的动态数组。数据填充宏，因为它应该运行，直到它将数据粘贴到电子表格。现在，除了日期值之外，所有数据都已正确粘贴。日期值被错误地从欧洲格式粘贴到美国格式到电子表格(即dd-mm-yyyy到mm-dd-yyyy)。例如，2019年3月1日成为电子表格上的2019年1月3日。请注意，无论我是否预先格式化目标文件，问题仍然会发生。
数组有14列，只有12-13列是日期值.
编辑摘要
从不相关的信息中分解代码；添加结果的图像。
下面是代码
Sub Verification()
Dim NewWorkbook As String, NewWorksheet A
浏览 0提问于2019-07-04得票数 1
我的工作簿有多个工作表，每个工作表中的列数相同。日常的新工作表被添加到工作簿中。
是否可以通过运行vba代码将第一个工作表上的过滤数据传输到后续工作表？
问候
浏览 3提问于2015-10-26得票数 1
回答已采纳
1回答
我以为我终于完成了我的工作簿，但是当我们将它付诸实践时，不幸的是出现了一个问题(这让我非常沮丧)。
简而言之，我使用自动筛选(不是在vba中)菜单来筛选我的仓库中的项目以及它们所在的货架。当我过滤掉除了我想要添加库存的货架之外的所有东西时，我添加的值(通过一个VBA编程的按钮，基本上复制了“添加到库存”行(也称为"C4:C1000“行，并将其添加到”当前库存“行(也称为"D1:d1000"))添加到了错误的行。
我的解决方案是使用自动筛选来找到正确的货架，写下添加到库存中的数量，然后按下按钮。按钮的VBA代码(在我的新计划中)将与以前完全一样，只是这一次它将首先删除过滤
浏览 0提问于2020-12-19得票数 0
2回答
将过滤器应用于表似乎破坏了我对如何处理此问题的理解。
我有一个包含多列的表。我将对其中一列进行筛选，对另一列进行排序。之后，我想选择/复制过滤到另一个表中的特定列的前10行。
在过滤之前，我可以很容易地做到这一点。我需要在应用过滤器后的前10行。我不知道如何选择过滤器之后的第10行。
谁能给我指一本解释如何做的VBA参考资料？我需要使用SQL来做这件事吗？我是不是想得太多了，把事情搞得太复杂了？
浏览 4提问于2013-09-10得票数 1
我在excel中有一个由71列组成的数据集。在将源表(RAS(Offshore))上的自动筛选器应用到目标表(Dst)后，我只需要从它们复制7列。在使用Excel将RAS(Offshore)上的筛选器应用到Dst之后，我需要复制的列是Dst。
我是成功地应用自动过滤器和复制整个范围，但我不能提取特定的列，如上文所述。请帮帮忙。
FilterCriteria = InputBox("What text do you want to filter on?", _
"Enter the filter item.&#
浏览 2提问于2017-07-20得票数 3
回答已采纳
2回答
我需要满足以下要求的代码，其中以下代码不起作用：
Sub sample48()
Worksheets("Sheet").Select
Range("AG1").Select
Range("A1:AQ1").Autofilter Field:=33, Criteria1:="COD*"
Range("AG:AG").Value = Range("AM:AM").Value
End Sub
我需要在AG列中筛选一个名为**COD**的单词，然后只需要将这些筛选出的行项目的值从AG列复制并粘
浏览 2提问于2018-10-03得票数 0
我正在编辑一个有2500个条目的文档，需要应用AutoFilter，这是我第一次尝试编辑宏代码，请耐心等待。
我使用record创建宏，当我去编辑它的某些部分时，在我编辑的代码部分之外得到了“编译错误:预期:表达式”。这个“...”是更多的条目。
ActiveSheet.Range("$A$1:$C$2500").AutoFilter Field := 2, Criteria1 := Array( _
"#N/A","3K Technologies, LLC","ABN","Accenture","
浏览 1提问于2012-08-08得票数 0
回答已采纳
2回答
新的编码& VBA，这是我第一次尝试选择和复制前10行的可见数据和表头中的一个表，我已经使用VBA进行了过滤。我在堆栈溢出上使用了这个链接中的代码示例。。这个特殊的示例允许我学习如何在单个列中复制值。我想要复制整个行的值，或者一些列，这取决于哪一列更容易。
Sub LPRDATA()
Dim TYEAR As String
TYEAR = Range("TYEAR").Value
Dim QUARTER As String
QUARTER = Range("QUARTER").Value
Dim r As Range, rC As Ran
浏览 0提问于2018-01-23得票数 1
回答已采纳
我有表格的日期在A列，我需要找到最新的日期和筛选前7天的最新日期。我只在网上找到了vba代码，它需要今天的日期--7天，但我不能使用它，因为这些日期是去年的。
拜托了，谢谢！
编辑：
谢谢你的建议。我试图把它放在我的vba代码中，但是它过滤了0的结果。
Sub Filter()
Dim maxDate As Date
maxDate = WorksheetFunction.Max(ActiveSheet.Range("A:A"))
ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria
浏览 0提问于2018-10-16得票数 0
1回答
我正在从这样的桌子上获取信息：
A 1
2
B 3
1
4
C 2
5
本质上是一系列集(A，B，C)，它们的元素垂直排列在它们的旁边。
我要做的是检索第2列中具有特定值的第1列值的列表。例如，如果第2列的查找值为1，我希望A和B匹配，但不匹配C。最好的情况下，我可以生成一个包含匹配项的新列。有没有办法做到这一点而不诉诸于VBA？
编辑:我正在处理的数据不是那么清晰，这里有一个修改过的版本
1 2 3 4
83 Fun Edit ZZZZZZ*AAAAA
浏览 3提问于2014-03-07得票数 1
回答已采纳
2回答
下面是我对第1页和第2页中的大量数据所做的工作：
将Sheet1.Columnname(基于多个比较)与sheet2中的所有匹配行进行比较。高亮显示差异并粘贴到结果表。
在结果表中，对于在column1中具有相同值的所有行，检查其他字段的字体颜色。如果是红色，请将column1复制到新的结果表。
我受够了(1)。对于(2)，我使用findall函数从()得到column1中所有重复项的子集。代码正在工作，但非常慢。我还有别的办法可以做吗？
我本可以使用数组来完成的，但是我无法使用数组来触摸字体颜色。我尝试了Application.Calculation = xlCalculat
浏览 0提问于2017-02-15得票数 0
2回答
我对VBA很陌生，经过大量的搜索，我无法使代码正常工作。我试图筛选/选择B列中的值313和C列中的值1或2的任何内容，然后使用来自同一工作表底部的所有列( at )的数据复制所有相关行。工作表没有固定的行数，313并不总是在同一组单元格中。我尝试过以下方法，但代码似乎是粘贴在'A2‘中，而不是底部的选择。任何帮助都将不胜感激。
Sub CopyPartOfFilteredRange()
Dim ws1 As Worksheet
Dim filterRange As range
Dim copyRange As range
Dim lastRow As Long
Set ws1 = T
浏览 3提问于2016-06-23得票数 0
回答已采纳
4回答
用于快速删除行的VBA宏
、、、
我有几个非常大的excel数据文件，我需要遍历它们并删除T列中单元格的值为1的所有行。现在，我的代码如下所示：
Sub test()
Dim cell As Range
For Each cell In Worksheets("Sheet1").Range("T5", "T900000")
If cell.Value = 1 Then
cell.EntireRow.Delete
End If
Next cell
End Sub
它似乎是有效的，但需要永远运行，我将不
浏览 0提问于2013-03-13得票数 4
回答已采纳
我修改了我的Excel，它以前是逐行的，现在它大量地过滤结果和副本。效率高得多。
我现在遇到的问题是，自动筛选器给工作表增加了数以百万计的空行，我无法确定它为什么会这样做。
CountryCodes是一个字典，它包含过滤器的值。“条件”正在查找包含字典中条目的行。
这是代码：
For Each vall In CountryCodes
thisWB.Activate
thisWB.Sheets("Overall Numbers").Activate
lookfor = CountryCodes.Item(vall)
rep = Repl
浏览 2提问于2015-09-03得票数 3
回答已采纳
2回答
我有一个宏，用于根据包含在几个列中之一的值将一行的内容复制到单独的工作表中，然后单击一个按钮，该按钮包含在原始工作表上：
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Dim longLastRow As Long
Dim Cancelled As Worksheet, Discontinued As Worksheet, NotConf24
浏览 2提问于2016-01-28得票数 1
回答已采纳
1回答
我在使用VBA进行自动过滤时遇到了困难。我的代码工作了一次，之后我得到了一个运行时错误代码91。这是我的密码。我知道这很简单，但我错过了什么？提前谢谢。
Dim MyWorksheet As Worksheet
Set MyWorksheet = Sheets("entity details - cost summary")
Sheets("entity details - cost summary").Select
Range("H6").Select
MyWorksheet.AutoFilter.sort.SortFields.Clear
M
浏览 8提问于2015-08-21得票数 0
回答已采纳
我正在做一个VBA项目，我希望它能计数符合特定标准的范围内的单元格数。
两列也是如此，如果满足两个要求，countif将计算值。此外，我在范围中添加了自动筛选器，因此，当您筛选列时，计数将发生变化(例如，如果我选择特定的教室而不是所有的教室，则值将发生变化)。
dim i as integer
dim rcell as integer
lastrow = Activesheet.Cells(.Rows.Count, 1).End(xlUp).Row
Col_Dessert =5
Col_Snack =6
i=0
with Worksheets(&#
浏览 0提问于2018-10-17得票数 0
回答已采纳
我想知道是否有一个解决方案，这只是通过一个公式或快捷方式，或者它是否是什么东西，我需要使用VBA。我正在使用的电子表格包含112行、31列和33行，其中包含一个"Y“(Y=positive用于正在使用的报表)。我试图删除行中不包含单个"Y“的行(E-AA列)，因此只有行中某个位置包含"Y”的行和人的名称保留在散页表中。我从其他人那里找到了一个VBA代码片段，它产生了一些成功的结果，但没有包括每一行都带有"Y“(我数了33行包含Y，VBA代码只显示了14行)。
我使用的代码：
Sub sbDelete_Rows_IF_Cell_Contains_Stri
浏览 6提问于2017-12-20得票数 0
回答已采纳
1回答
我尝试对DE42的列L进行宏排序，然后将可见单元格复制到列AL中，减去标题未定义的3，复制到表的最后一行。我让它排序，但它复制了头部，并且只粘贴了一半的数据。这是我到目前为止所知道的：
Sub DE42 ()
ActiveWorkbook.Sheets(“Alerted Deduped”)
Range (“L1”).AutoFilter Field:=12 Criteria1:=“DE42”
Range(“AL2”).SpecialCell xlCellTypeVisible.Copy
Range.(“F2”).PasteSpecial xlPasteValues
End Sub()
浏览 0提问于2018-03-24得票数 1
2回答
我目前正在使用以下VBA，但我需要在它的基础上一点。
Option Explicit
Sub AutoFilterData()
Dim wsData As Worksheet
Set wsData = ThisWorkbook.Worksheets("Master")
With wsData
On Error Resume Next
'//Reset Autofilter
.ShowAllData
ThisWorkbook.Worksheets("Master").Range("A1:BZ1").Auto
浏览 2提问于2017-12-19得票数 0
2回答
我想使用VBA搜索客户名称和他们花费的金额的列表(分别在列A和B中)，并返回一个结果列表，其中包含花费超过$500的人的名称(和相应的金额)，在同一工作表的另外两列中，例如列D和E。
任何帮助都是非常感谢的。谢谢!
浏览 2提问于2014-03-13得票数 0
我正在尝试在复制的每一行上设置一个条件。我想要所有的唯一性，但前提是它们在另一个字段中也有一个特定值。
这就是我必须获取所有唯一性的方法(并且它是有效的)，但是我不知道如何只获取列J中具有特定值的行。
r1.Columns(20).AdvancedFilter xlFilterCopy, , Sheet11.Range("A1"), unique:=True
我试过做一个CriteriaRange，但是我似乎不能得到正确的语法。此外，我还考虑了If语句，但在逻辑上，它意味着每次有true语句时，它都会触发整个列表，而不是以每行为基础。
这是我认为它可能是如何工作的。但是我得到一
浏览 0提问于2018-10-01得票数 0
1回答
我希望在Excel中有一个VBA宏，可以复制第10列中的值与今天的日期匹配的所有整行，并将其粘贴到另一个工作表中。考虑到表是按时间排序的，最近的日期在表的底部，因此查找操作应该从表的最后一行开始，以提高效率。 到目前为止，我在VBA中有以下代码： Sub Test()
Dim TodaysDate As Date
Dim LastRows As Long
TodaysDate = Sheets("Sheet1").Range("B28")
LastRows = Sheets("Sheet1").Columns(10).Find(What:
浏览 10提问于2020-01-21得票数 0
1回答
我们希望使用Excel /宏实现这个过程的自动化，因为我们每周处理2到10个电子表格。我们希望每一组电话号码都提取一定数量的行。例如:一个有200,000行的电子表格有20,000行分配给10个电话号码。我们要提取每个电话号码前十行。我们的结果文件将有100行按电话号码排序。
备注：
我们需要提取每个电话号码的可变记录数。
列数可能会有所不同。
行数可能会有所不同。
我们需要整排数据。
电话号码列可能在每个电子表格中的不同位置。
电话号码可能各不相同。
这里有一个在一个文件上工作的代码，但是不能复制到另一个工作表，因为每个工作表的“字段”、“条件”和“行”都会改
浏览 0提问于2018-10-17得票数 0
请指导我如何在vba中使用过滤查找功能。我想找出所有应该包含“孟买”和“德里”的行。我使用了下面的代码，但只能放在条件下。
If Not ws1.AutoFilterMode Then
ws1.Range("A1").AutoFilter _
field:=1, Criteria1:="Mumbai", Operator:=xlFilterValues
End If
浏览 1提问于2016-06-28得票数 0
2回答
我正在尝试使用第4行作为列标题来过滤一些数据。这里的问题是，我有一些合并在第2行和第3行之间的单元格。当我尝试筛选第4行时，VBA代码会筛选第2行，而不是第3行。我记录了打开第3行筛选器的几个步骤，然后在某些列中选择一些条件进行筛选。这是excel VBA记录器生成的代码。 代码： Sub Macro1()
Rows("3:3").Select
Range("D3").Activate
Selection.AutoFilter
ActiveSheet.Range("$A$3:$G$8").AutoFilter F
浏览 16提问于2019-05-10得票数 1
回答已采纳
2回答
下面的VBA为什么不删除数据集中U列中包含“TUN”的单元格，范围为30-40k。它只带走了一些，而不是全部。
Selection.AutoFilter
ActiveSheet.Range("$A$1:$X$21322").AutoFilter Field:=21, Criteria1:=Array( _
"TUN"), Operator:=xlFilterValues
Range("A2:Z2").Select
Range(Selection, Selection.End(xlDo
浏览 2提问于2018-04-09得票数 0
回答已采纳
1回答
我有一个从单元格C1中调用的方便的函数，它使用过滤器下拉列表填充单元格中已经应用到列C的过滤器:当用户在下拉列表中单击OK时，=ShowColumnFilter(C:C)就会显示过滤器。
但是，当我使用下面的命令按钮或超链接使用VBA对同一列应用筛选器时，该列被正确筛选，但函数ShowColumnFilter返回一个错误。
'Code Snippet:
With ActiveSheet.Range("A:W")
.AutoFilter Field:=3, Criteria1:="Some Criteria Here"
End With
Fun
浏览 2提问于2021-05-05得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
