使用变量作为自动筛选的列(vba)
使用变量作为自动筛选的列是一种在VBA（Visual Basic for Applications）中实现自动筛选功能的方法。VBA是一种用于编写宏和自定义功能的编程语言，常用于Microsoft Office套件中的应用程序，如Excel、Word和Access。
在Excel中，使用变量作为自动筛选的列可以实现根据用户输入的条件自动筛选数据。以下是一个完善且全面的答案：
概念： 使用变量作为自动筛选的列是指在VBA代码中，将用户输入的条件存储在一个变量中，并将该变量应用于筛选操作的列。通过这种方式，可以根据用户的需求动态地筛选数据。
分类： 这种方法属于Excel VBA编程中的数据处理和筛选技巧。
优势： 使用变量作为自动筛选的列具有以下优势：
- 灵活性：可以根据用户的输入动态地筛选数据，而不需要手动更改筛选条件。
- 提高效率：自动筛选可以减少手动筛选数据的时间和工作量。
- 可重复使用：可以将该功能封装成一个独立的子程序，以便在不同的工作簿和工作表中重复使用。
应用场景： 使用变量作为自动筛选的列适用于以下场景：
- 大量数据筛选：当需要筛选大量数据时，使用自动筛选可以提高工作效率。
- 动态筛选：当需要根据不同的条件筛选数据时，使用变量作为筛选列可以实现动态筛选。
推荐的腾讯云相关产品和产品介绍链接地址： 由于要求不能提及特定的云计算品牌商，这里无法提供腾讯云相关产品和产品介绍链接地址。但腾讯云提供了云服务器、云数据库等云计算相关产品，可以在腾讯云官方网站上查找相关信息。
总结： 使用变量作为自动筛选的列是一种在VBA中实现自动筛选功能的方法，可以根据用户输入的条件动态地筛选数据。这种方法具有灵活性、提高效率和可重复使用的优势，适用于大量数据筛选和动态筛选的场景。
相关·内容
2回答
将多列合并为一列
、、、
您能否建议使用或不使用VBA为12个单独的列(位于工作簿内12个不同的Excel表中)创建联合列的最佳方式？
有很好的手册可以在没有VBA的情况下(使用MATCH函数)为两列做这件事，但是我不确定如何处理多列的情况。
浏览 0提问于2015-07-29得票数 3
1回答
我正在使用Excel2010，并且正在尝试创建一个宏，它将允许我打开自动筛选的文本筛选器-> Contains对话框(始终搜索一列)，或者任何允许我输入文本字符串并返回包含该字符串的行的对话框。根据我到目前为止所做的谷歌搜索，看起来VBA脚本将是必要的，但我宁愿尽可能避免使用它，因为我没有使用它的经验。
数据位于A2和F25000之间- A1-F1是AutoFilter报头。提前感谢任何人都能提供的帮助。
诚挚的问候,
相同的
浏览 16提问于2016-08-03得票数 0
2回答
我在寻找这段代码的替代方案。我需要选择所有名为“导出1”、“导出2”的行，等等，不包括“导出测试”。
Sub CopyManager()
Dim Source As Worksheet
Dim Target As Worksheet
Dim valsArray As Variant
valsArray = Array("Export *") '<--| define your values to be filtered on Source sheet column A
' Change worksheet de
浏览 0提问于2019-02-25得票数 0
回答已采纳
1回答
我使用VBA在Excel 2010中对筛选过的工作表进行排序。从视觉上看，排序是有效的，但是当我在VBA中遍历已排序、过滤的范围时，该范围似乎仍然保持原来的顺序。就我的目的而言，这是不可取的。
下面是我循环代码的摘录：
For r = 2 To LastRow
Set row = ws.Range(r & ":" & r)
Debug.Print row.Row
Next
浏览 4提问于2015-08-15得票数 1
回答已采纳
我的电子表格中有范围为A6:H105的数据
我想用H列上的固定条件过滤前十行(A6:H15)，只复制结果中的A、D、E列
到目前为止，我有以下代码：
Sub Filter()
ActiveSheet.Range("A6:H15").AutoFilter Field:=8, Criteria1:="xxx"
End Sub
问题1:为什么没有过滤第一行？
问题2:如何在应用过滤器后仅复制范围中的A、D、E列？
浏览 31提问于2015-02-02得票数 0
3回答
我已经编写了一个代码，根据员工的资质对他们进行分类。为了剔除具有不需要的资质的员工，我对标题为其资质类别的每个列应用了一个过滤器。
我编写VBA代码的目的是为了便于定位，使重复的名称和限定不可见。但是，我无法让代码自动运行。
目前，让代码运行的唯一方法是将其设置为
私有子目标(ByVal Worksheet_Change As Range)，然后更改任意单元格的值。
我在以下位置找到了我认为正确的解决方案：
但是我不能理解它。
在筛选器运行后，有没有一种方法可以运行此代码，而不必选择和取消选择单元格？
浏览 2提问于2012-10-10得票数 3
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
回答已采纳
我有一个excel表，有2000行和3列。我正在寻找一个“如果每一行的单元格1和单元格2相等的话删除整行”的解决方案。
Cell1 Cell2 Cell3
ID1 id1 val1 -delete
ID4 id1 val1 -retain
ID2 id2 val1 -delete
ID2 id1 val1 -retain
我在VBA中看到了很多答案，但我正在寻找一个excel solution.Thanks。
浏览 10提问于2015-02-14得票数 3
回答已采纳
我需要使用VBA来过滤excel中的一些信息。因为我有一个有20列的excel，如果它包含一个值(例如: ID010)，现在想使用AutoFilter函数在一些列中进行搜索。我想要的是它将显示至少有一列包含ID010的所有行。
目前，我使用以下代码进行搜索。但是，它找不到任何数据，因为所有标准似乎都使用AND运算符绑定在一起
' Search range, [argIn]---> search value
With [D5:M65536]
.AutoFilter Field:=4, Criteria1:=argIn
.AutoFilter Fiel
浏览 3提问于2010-03-18得票数 2
回答已采纳
1回答
我有一组数据，每天更新在我的excel表格上。我需要自动过滤系统日期到今天的日期，在E列和系统时间F列在0730至1930年之间，通过excel VBA每日。我该怎么做？
我试过用
Sub DateNTimeFilter()
Dim DateToday As Date
DateToday = Today()
Selection.AutoFilter
ActiveSheet.Range("E1:E").Autofilter Field=5, Operator:=x1Filtervalues, Criteria:=TodayDate
浏览 1提问于2019-11-25得票数 0
回答已采纳
2回答
我想使用VBA按2列筛选转储工作表，条件来自同一工作簿中不同工作表上的值。
使用的代码是：
Sub FilterOnCellValue()
With Sheets("Dump")
.Range("A1:Z10000").AutoFilter Field:=9, Criteria1:=Sheets("ControlPlanning").Range("C1").Value, Field:=23, Criteria1:=Sheets("ControlPlanning").Range("C4").
浏览 1提问于2017-09-18得票数 2
回答已采纳
我有一个excel工作表来过滤列。该栏涉及一个人的全部经验。值为5a，2个月，32Years，6个月等。所有的值都是字符串格式。我需要以下功能。
当我在文本框中输入>5 (我将在表单中创建)时，它应该只显示小于5(过滤)的体验。我需要知道如何在vba中做到这一点。
有人能帮忙吗..？我只是需要一个方法来做这件事。
浏览 1提问于2017-06-14得票数 1
我正在学习VBA，在有两个工作表的工作簿中开发宏时遇到了困难。第一个工作表命名为"Para“，第二个工作表命名为"Report”。
当我在Para!C6中输入一个数字或文本(例如76894)时，我希望VBA代码删除Report!Y:Y列中的所有行，但与Para!C6中的值匹配的行除外。
我尝试了以下代码，但它不起作用：
Sub KeepOnlyAtSymbolRows()
Dim ws As Worksheet
Dim rng As Range
Dim lastRow As Long
Dim s As Integer
s = Works
浏览 0提问于2017-03-28得票数 0
回答已采纳
1回答
VBA日期格式
、、
我需要过滤包含日期的列。我需要得到日期在current date和current date + 15 days之间的所有行
这是我的VBA代码：
Dim seuilDate As Date, currentDate As Date
seuilDate = DateAdd("d", 15, Date)
currentDate = Date
MsgBox "Date seuil :" & seuilDate & " Current Date:" & currentDate
Wit
浏览 1提问于2016-04-25得票数 0
回答已采纳
假设我有一本工作簿，上面有三个工作表。我已经过滤掉了第一个表格，它是基于相当于俄亥俄的State列的。然后，我从列ID的筛选列表中获得一个值列表，并将它们放入一个整数/长数组中。基本上，我将所有的ID的放在每一行的俄亥俄州列。
现在，我正在尝试根据它们的ID列过滤其余的表，在那里它们与我的ID的数组相匹配。问题是，当遇到未在新工作表中筛选的ID的，而不是为每个工作表提供匹配时，只剩下最后一个匹配值。下面是我的VBA试图过滤剩下的表的一个例子：
For Each sheet In Worksheets
If sheet.Name <> "Sheet1" Then
浏览 6提问于2015-07-15得票数 1
回答已采纳
我想知道是否有一个解决方案，这只是通过一个公式或快捷方式，或者它是否是什么东西，我需要使用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
回答已采纳
我喜欢VBA，但如果它可以用一个相当直截了当的公式，那就更好了！(为最终用户着想)
假设我有以下数据：
我想要创建一个公式，可以在D列中填充，它可以查找"a“(这也可以是一行而不是列)，并在连续的行(或列)中返回”红色“、”蓝色“、”绿色“--即连续返回所有唯一值，然后停止/错误退出或其他.
有可能吗？合理的期望？
解释公式如何工作的加成积分，
浏览 6提问于2015-05-04得票数 1
我在网上搜索，没有任何帮助...我只是希望能够让我的VBA代码在单元格中编写此公式：
=IF(C4="-"; "-"; Cars!C4*C4*Data!$C$8)
正如您所猜到的，有一个名为"Cars“的页面和一个名为"Data”的页面，我可以在其中选择所需的信息。
当然，因为它是VBA代码，所以C4将是2个变量，一个用于C语言，另一个用于将要演变的4个变量……实际上，我试过这个：
Worksheets("Calculation").Range(Column & PosStartCalc + 1).Formula = &#
浏览 9提问于2019-08-09得票数 0
回答已采纳
2回答
我在excel中有带有值A1的单元格3/09/2018。我可以将其转换为VBA中的日期，如下所示。
startdate = Format(#3/09/2018#, "Short Date")
但是，我无法让它与变量一起工作，例如：
value1= ActiveSheet.Range("A1").Value
final_value = "#" & value1 & "#"
startdate= Format(final_value,"Short Date")
如何使用final_value变量来处理
浏览 1提问于2018-10-02得票数 1
回答已采纳
我有这样的代码: Range("$A$1:$C$118").AutoFilter Field:=1，Criteria1:="= searchtext“，其中搜索文本需要是一个变量，并且很难找到如何用那里的变量来编写它。
提前感谢
浏览 4提问于2011-03-29得票数 0
我的Excel文件中有三列当前为AutoFiltered。我的任务是设置多个过滤器。我开始的方法是使用ActiveX复选框构建一个选项的“菜单”，并将“链接的单元格”属性分配给右侧的单元格。因此，如果选中第一个选项，单元格BB30将显示'TRUE‘。
问题开始于这样一个事实:第一列有16个项目，第二列有11个项目，第三列有5个项目。我的老板希望它工作的方式是，如果他们从第一列选择2个选项，从第二列选择一个项目，它就会过滤该信息上的数据(在单独的工作表上)。
示例数据：
Column A Column B Column C
--------
浏览 3提问于2013-12-14得票数 0
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
回答已采纳
目前，我正在处理一个Excel/VBA工作簿，该工作簿显示大约。预算中的500个项目，每个项目都在不同的行上。我希望用户在预算中选择详细的级别:在最高级别的每个单独的项目将显示，在较低的详细级别几个项目将被分组在一个标题下。
下面概述的方法(逐行隐藏/取消隐藏)非常慢:隐藏/取消隐藏大部分项目需要大约4分钟。我希望你能给我任何关于如何加速程序的提示！
通过对话框选择详细程度时，程序将执行以下步骤：
1)更新画面关闭：
Application.ScreenUpdating = False
Application.EnableEvents = False
2)对于预
浏览 3提问于2013-08-10得票数 1
这个问题实际上是针对Excel的，而不是Excel“编程”本身。但是，如果这在GUI中是不可用的，我会好奇是否有一个VBA解决方案(尽管，我基本上有0的VBA知识/经验)。
是否有一种方法可以查看哪些过滤器在Excel中是活动的，除了查看漏斗图标？(如我所附的屏幕快照所示)，有些电子表格中的列可以扩展到可见屏幕之外，因此很容易忽略指示活动过滤器的漏斗图标。(此外，我认为可以很容易地忽略图标，即使在少数列中也是如此。)
理想情况下，应该有某种列表显示哪些列/标头被主动筛选。
谢谢。
浏览 6提问于2016-08-31得票数 8
回答已采纳
我正在处理一个VBA代码，它删除W列中值为"No“的所有行，然后对其进行排序。现在我一直在
range类的 VBA自动筛选方法失败
.AutoFilter 1, "*No*"行上的错误。奇怪的是，这件事今天早些时候起了作用，我对它进行了多次测试，但后来突然停止了工作。
我该怎么做才能消除这个错误？
Sub FilterMacro()
Dim Lastrow As Long
'Delete
With ActiveWorkbook.Worksheets("Deduction - Filtered")
.AutoFilterMode
浏览 1提问于2019-11-22得票数 0
回答已采纳
我有一列需要作为自由文本的子例程的一部分进行过滤。我需要过滤掉所有包含任何类型文本的单元格。我使用的是vba代码
With rng
.AutoFilter Field:=1, Criteria:= "cannot find solution - need [A-Za-z]"
.Offset(1, 0).Resize(.Rows.Count - 1).SpecialCells (xlCellTypeVisible).Rows.Delete
代码本身运行良好，我只是不知道如何将标准设置为字母表中的任何一个字母
有办法做到这一点吗？
谢谢你的建议。
浏览 3提问于2020-08-20得票数 0
1回答
嗨，我有下面的VBA代码，它一次又一次地失败。
Sub theathersplitmacro()
Dim SDrv As String
Dim DDrv As String
Dim Sfname As String
Dim Dfname As String
Dim wkbSrc As Workbook
Dim wkbDst As Workbook
Dim shtname(1 To 16) As Variant
Dim i As Integer
Dim Lastrow As Variant
Dim destination_file As String
'Dim regions
浏览 2提问于2017-10-24得票数 0
回答已采纳
2回答
简单的VBA问题。我需要一个VBA子例程，它可以根据条件(在本例中，如果C列中的内容以数字形式等于11-Jun-12 41071 )过滤数据，而不会遍历整个数据集。我看了一下互联网上的过滤，但似乎没有什么是我想要的(或者我只是不太明白发生了什么)。为了清楚起见，这里有一个我想要的例子：
我想要
去。
谢谢!
浏览 0提问于2012-07-31得票数 1
回答已采纳
2回答
Introduction
我有一些电子表格，如下所示。
在这里，标题位于第16行和第17行。在前面的行和列中，左边有一个“头”(未显示)，其中包括图片、一些非表格数据、图例等，这在这里并不重要。第16行的标题文本由于原因而被混淆。用粗体红色标记的数据表明，该样本点经过了某种处理。下面是脚本中以粗体红色突出显示这些数据点的代码片段。
' Traverse columns applying redding until hitting the row end, Comment, or SpGr: whichever comes first
For currIndex = abcDa
浏览 7提问于2016-08-10得票数 1
回答已采纳
我有一个公式：
=IF(OR(AND(H6<>"";I6<>"");AND(H6="";I6=""));"Price error";IF(H6<>"";F6*H6;IF(G6<>"";G6*I6;"")))
我可以用VBA写
Range("J6") = "=IF(OR(AND(H6<>"""";I6<>""""
浏览 2提问于2014-05-06得票数 1
回答已采纳
我正在创建一个导航窗体，其中的一些导航按钮只是对子窗体应用过滤器。问题是现在每个选项都是排他性的，即我可以通过分支机构或职位来选择员工。如何使选项不是独占的，以便一次应用多个筛选器？
编辑只需添加。我对VBA一无所知，所以我尝试使用图形界面和宏来完成这项工作。如果不能使用这些工具来完成，那么好吧，我会找到不同的解决方案。
浏览 2提问于2013-04-18得票数 0
在使用vba自动筛选工作簿中的列方面需要帮助，但筛选条件位于另一个工作簿上的单元格引用中。首先，我有两个工作簿，第一个是输入宏的报告模板，另一个是需要筛选的数据文件。
浏览 3提问于2017-04-13得票数 2
1回答
我有一个表"Schedule"，我要检查表列"Number“。如果一行中的“数字”为空白，我希望将列"Name“中的该行的单元格更改为字体大小11非粗体，但如果”数字“不是空白，则希望将”名称“更改为字体大小为12粗体。
我不知道该怎么做。我还有大约六万个细胞在生长，所以它需要尽可能少的工作，这样它就能保持尽可能快的速度。
我会编辑这个，因为我在问题中添加了字体，而不是在主题中。我计划用VBA来做这件事，因为我不能在有条件的情况下处理字体大小。
浏览 3提问于2022-02-09得票数 -1
我已经编写了代码，根据单个输入值从单个列筛选器中删除行，我希望编辑它以处理来自同一列筛选器的多个输入值。
数据库的头位于A4:Z上。
Option Explicit
Sub Test()
Dim ws As Worksheet
Dim lastRow As Long
Dim rng As Range
Dim myValue As Variant
'set sheet reference
Set ws = ActiveSheet
'turn off autofilter
ws.AutoFilterMode =
浏览 0提问于2017-03-28得票数 0
回答已采纳
1500页访问97圣经(不要笑！)老板让我解决他的问题并不能解决我如何解决他的问题，因为它需要VBA代码。
让我首先说明一下，我尝试过在没有(很多)编码的情况下解决这个问题，而且我已经用VBA编写了相当多的代码，所以我基本上熟悉大多数事情，包括记录集、查询等，但是在如何使用来自VBA变量的数据形成报表方面，MS访问限制有问题。我在大多数编程语言中也是多才多艺的，但这不是语言问题，而是“如何/什么是可能的”问题。
我现在的问题是，将查询字段拖到Detail子窗体中，并将它们放入“左”和“顶”列中的单元格中，使用VBA代码可以移动它们，但是每个单元格都位于一个新页面上。不幸的是，每个单元格中有多个
浏览 3提问于2012-01-04得票数 0
回答已采纳
我正在处理Excel 2016 VBA宏，该宏将筛选器应用于标题列。然后，用户应用过滤条件。我希望能够在VBA中检索用户应用的筛选条件，并将其保存到字符串数组中。有没有办法访问筛选条件？
浏览 21提问于2017-07-06得票数 3
回答已采纳
1回答
我有一张带过滤器的桌子。我编写了简单的VBA，以便当用户选择不同的选项时，VBA将选择过滤器并自动对表进行排序。它工作得很完美。然后，我隐藏、锁定和保护工作表，使其保持简单，并防止用户更改公式。但是，一旦工作表受到保护(我勾选并授予了所有操作的权限)，VBA仍然无法运行。如果我换回“不受保护”，一切都会恢复正常。我被困住了，希望各位专家能给我建议。非常感谢！
简单的VBA如下：
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("BF1").Value = "Highest $" Th
浏览 9提问于2022-10-14得票数 0
我需要VBA从"Final_Sheet“中的A列获取值，并根据"SIS_Case_Contacts”表的A列中的值进行过滤。 Sub filter()
Dim lastRowSISCaseContacts As Long
Dim lastRowFinalSheet As Long
Dim ws As Worksheet
Set ws = Sheets("SIS_Case_Contacts")
With Sheets("SIS_Case_Contacts")
lastRowSISCaseContacts = .Range("A&
浏览 29提问于2020-04-14得票数 0
1回答
我有一张B栏显示产品名称的表格。它们可以按随机顺序输入。
_Generation_ _Product_ _Quantity_
Existing Hard Drive 1
Proposed SS Drive 1
Existing Blank DVDs 10
Proposed Flash Drive 3
Existing Lg. Notepads 10
Proposed Sm. Notepads 50
我的枢轴表提取“建议的”行。最左边的列是从B列中提取的。
_Product_ _Qua
浏览 0提问于2016-01-17得票数 2
1回答
我有一个项目与员工(员工1至8)和他们的每月计划，我有2个(或更多)工作岗位。他们的班次是1,2和3。假设S1是第一个职位，S2是第二个职位。员工1到4通常安排在S1，员工5到8安排在S2。当我需要一个来自S1的员工在S2上工作时，我把这个班次和一个指示器(例如2 S02)放在他的S1行上，我有第二个工作表，用索引/匹配来读取所有的班次(我需要把整个程序放在一行中，这样我就可以在第二个工作表上做一些其他的计算)。然后在第一张工作表上，我有两个职位上的所有员工(所以两个职位都有8行)，每个职位都有额外的行，用一个counta函数和一个0/1过滤器隐藏，其中包含一个简单的if函数，它只返回班次编号
浏览 1提问于2020-10-31得票数 0
我使用excel vba，制作一个枢轴表。在我使用枢轴“值MAT19”和“体积(Kg) MAT 19”的值部分中的两列构建枢轴之后，我想在枢轴上添加一个派生字段，即'Value MAT19‘/’容积(Kg) MAT 19‘。但是，我不想自己修复列名，而是给用户一个控件来选择枢轴中的列(可以是值MAT18或值MAT17，也可以是VBA列的值MAT17)，因此我使用了VBA的InputBox特性。但是我运行宏之后，计算出的字段就不会出现了。这是我为它写的代码。我已经将myValue和myVolume声明为字符串变量。列最终API将显示在枢轴中，但未显示最终Val/Vol.II。
Acti
浏览 6提问于2019-11-12得票数 0
回答已采纳
1回答
我有一个在A列有159行的Table1，假设n= 159。我想在另一个工作表vba中使用这个数字来确定列G.Column G中的目标范围不是表的一部分。我习惯于用python编写代码，对vba语法有一个初学者的理解。这有可能吗？下面是我在这个网站上研究的一个代码示例。
Sub FillDown()
Dim sh As Worksheet
Dim rn As Range
Dim strFormulas(1) As Variant
Set sh = ThisWorkbook.Sheets("Analysis")
Dim k As Long
浏览 0提问于2020-06-05得票数 0
我想运行一个保存自动过滤设置的程序，做一些事情，可能会编辑过滤器，然后重新应用它。
我使用以下代码来保存自动筛选数据：
With ActiveSheet.AutoFilter
Set filtRange = .Range
With .Filters
fieldNumber = .Count
ReDim filtArray(1 To fieldNumber, 1 To 4)
For f = 1 To fieldNumber
With .Item(f)
If .On Then
浏览 5提问于2015-08-06得票数 1
7回答
我是VBA的新手，我正在尝试想出一种方法来删除网站列单元格中包含单词none的所有行(如果可能的话，还可以向上移动单元格)。该表包含5000+记录，这将为我节省大量时间。
我很感谢你的建议。首先要感谢大家！
浏览 0提问于2013-07-12得票数 37
回答已采纳
我有一个长表，通常我希望将资产编号(第一列和从第4行到第3080行)筛选成多个值。excel自定义文本筛选器不能过滤两个以上的文本。我想知道是否有可能过滤两个以上。我知道在VBA里这可能是可能的。
示例，将A列筛选为"85254“、"8782A”和"GH0012“
浏览 6提问于2015-06-10得票数 0
回答已采纳
1回答
我有一个电子表格设置为“只读”，其中大约有8000行，包含各种合同(以及其他一些随机数据)的详细信息。在每项合同中有50-300个项目列出，我必须定期对各种合同进行报告。目前，我在“D”列中打开电子表格并按合同进行筛选，并删除除我希望保留的合同以外的所有其他行。
我希望使用宏和vba代码来自动实现这一点，因此当我运行宏时，它会显示一个InputBox，并请求报告的契约名。当我输入合同名称时，例程将删除不包含InputBox中指定的合同名称的所有其他合同行和任何其他数据行(在‘D’列中)。
我对vba非常陌生，并且尝试将下面的代码放在一起，但我知道它不正确，也不起作用(它实际上是在查找字符串&#
浏览 0提问于2015-07-04得票数 1
回答已采纳
2回答
我将使用的例子是一个名单的人，我购买糖果，提出优先和可排序的分类。我有一个格式的值表：
Option 1|Option 2|Option 3|Catagory 1 | Category 2 |
--------|--------|--------|-----------|------------|
Bob | Mary | Jane | Candy | Sherbert |
James | Bob | Jane | Choc | Cadbury Bar|
Jane | | | Candy | Hari
浏览 2提问于2016-03-31得票数 3
回答已采纳
1回答
我需要通过VBA从SAS导入数据到excel。导入需要运行例如。在workbookOpen或Worksheet_BeforeDoubleClick上，或者可以在任何宏中调用它。下面的代码解决了这个问题：
Sub GetSASdata()
Dim obConnection As ADODB.Connection
Dim obRecordset As ADODB.Recordset
Dim i As Integer
Set obConnection = New ADODB.Connection
' Do not get stuck on the choice of connection
浏览 1提问于2014-08-22得票数 1
1回答
我正在尝试使用VBA自动执行特定的透视表筛选。我不确定如何添加“报告过滤器”(请参阅附件屏幕截图)使用VBA。
为了自动化这个过程，我得到了添加行、列和值的代码，但似乎找不到报告过滤器的代码。
你能帮我解决这个问题吗？
浏览 0提问于2017-09-15得票数 1
1回答
我想用过滤器函数中的一个给定日期过滤我的工作表。我得到了一列(K)开始日期和(L)结束日期。
现在，我想在没有VBA的情况下过滤一个特定的日期(用户输入)，它位于列K&L之间。
我的第一种方法是将两列连接为一个日期范围，并使用“中间”筛选器对其进行过滤。但不幸的是，我不能在本专栏中使用日期筛选函数。
如果没有VBA，有人可能会建议解决这个问题。Excel文件实际上很大，最多可超过1000行。
提前谢谢你。
我试图在日期范围内连接这两列，以使用Excel的inbuild选项。
浏览 13提问于2022-10-26得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
