Tag: filter

如果filter中没有值，则退出子: 我正在运行一个macros，它根据用户input的数字进行过滤。然后获取该数字并根据该值过滤列表。我需要一个validation，如果用户input一个不在列表中的数字，它将退出macros。我觉得我很接近，但我是VBA新手，所以我一直陷入困境。任何帮助都是极好的！谢谢！ 'Filter based on user entry Sheets("New Revision ").Select part = Range("B4").Value Sheets("PN_List").Select Columns("D:E").Select Selection.EntireColumn.Hidden = False ActiveSheet.Range("$A$1:$K$3000").AutoFilter Field:=1, Criteria1:=part If ActiveSheet.Range("$A$1:$K$3000").AutoFilter Field=1, Criteria1="" Then MsgBox "Part number not found please try again.", vbOKOnly + vbExclamation, "Entry Error" Exit Sub End If

使用两个过滤列在Excel中使用数据透视表查找中位数: 我有工作types列A。我有经验范围的B列。我有C列工资。这些在一张名为“数据”的表中。我已经创build了一个作业types为行和经验范围为列的数据透视表。（在另一张纸上）我想find数据透视表中每个单元的中位数。我怎么做？例如，如何find“阶段经理”（单元格A2）具有“不到2年”（单元格B1）经验的工资中位数？请帮忙。谢谢！

想要一个先进的sortingfilter，search特定列中的字母的特定组合，而不考虑其后置和前置字母: 这是我的数据集现在，我希望所有的行都有红色filter组合到我的工作表2，而不pipe其前后的字母。我想要这样的结果。但只能使用下面的代码达到目的。 Sub FilterCopyToOtherSheet() ' Sheets("Sheet1").Range("A1:C14").AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=Sheets("Sheet1").Range("E1:E2"), _ CopyToRange:=Sheets("Sheet2").Range("A1"), _ Unique:=False End Sub

我怎样才能删除筛选多个Excel文件与视觉基本？: 我有大约500个文件的Excel和大部分有filter。现在我需要把所有的信息放在一张纸上。我发现如何把所有在一张纸，但filter的书只有复制信息与filter，我需要所有。所以，我需要删除所有的Excel文件的filter。重要（不是所有的文件都有filter）谢谢你的帮助 ;）

VBA /macros添加条件的另一个列: 我需要帮助来编写列M中名为“Person”的附加列或标题，条件是：如果第一列（ Column A ）具有这些关键字"AU", "FJ", "NC", "NZ", "SG12" ，则（ column M)的文本应该是Person1 如果第一列（ Column A ）具有这些关键字"ID", "PH26", "PH24", "TH", "ZA", （ column M ）中的文本应该是Person2 如果第一列（ Column A ）有这些关键字"JP", "MY", "PH", "SG", "VN" ，则（ column M ）中的文本应该是Person3 我希望这个行动成为最后一件事（在所有事情之后）。我试图录制一个macros。过滤关键字，然后手动input，然后向下滑动复制，但似乎应该有另一种方式来粘贴过滤的数据。范围也应该是dynamic的，因为我每次都会有不同数量的数据以下是我的代码到目前为止： Sub person() Selection.AutoFilter ActiveSheet.Range("$A$1:$L$38").AutoFilter Field:=1, Criteria1:=Array("AU", _ "FJ", "NC", "NZ", "SG12"), Operator:=xlFilterValues ActiveWindow.LargeScroll ToRight:=1 […]

另一个工作簿的AdvancedFilter Criteriarange: 我正在尝试筛选列A（“名称”）中的名称列表，条件是列E（“主类别”）不是“IT”。我可以完成名称过滤或者<> IT过滤，但是我不知道如何把这两个语句放在一起。理想情况下，我希望代码在dynamic列表的另一封闭工作簿中查看条件信息。这是我到目前为止。 Sub Macro1() ' Range("A1:A196").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Sheets("Sheet1").Range("A1:A59"), Unique:=False End Sub Sub Macro3() ' Range("E1:E196").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Sheets("Sheet1").Range("E1:E2"), Unique:=False End Sub 任何帮助在这个方向将不胜感激！

如何根据这个标准在Excel中过滤行: 我有8行像这样用逗号分隔： ID Code Cost 1 X 20 2 20 3 50 4 50 5 Y 10 6 10 7 70 8 70 标准是：如果存在代码列中的值，则在没有任何操作之后打印行和行。你怎么能在Excel中做任何数量的行？注意订单总是相同的，所以你可以假设如果一个代码被发现的行和后面的将始终打印。在上面的例子中，我得到的输出是： ID Code Cost 1 X 20 2 20 5 Y 10 6 10

Office-JS API：从表中获取过滤的数据: 我试图找出一种方法来从表中提取只过滤值，如果在Office-JS API中的活动filter。现在唯一的办法就是从table range values属性中获取所有的表数据： var table = tables.getItemAt(0); var tableRange = table.getRange(); tableRange.load("values"); ctx.sync().then(function () { // This returns all the values from the table, and not only the visible data var values = tableRange.values; }); 如果filter处于活动状态，我可以如何继续从表中只提取可见值的任何想法？从以前的Office Interop经验来看，我已经通过遍历表范围的不同区域实现了同样的function，但是我无法find相当于Office-JS中的区域。

即使代码另有指定，Excel仍在当前工作表上运行macros: 我有以下代码： Sheets("Booked").Range("$A$1:$H$379").AutoFilter Field:=8, Criteria1:= _ ">=" & StartDat Sheets("Booked").Range("$A$1:$H$379").AutoFilter Field:=9, Criteria1:= _ "<=" & EndDat CorBookCol = Worksheets("Booked").Cells.Find("Booked Impressions").Address BookAnswer = Worksheets("Booked").Application.WorksheetFunction.Subtotal(9, Range(CorBookCol, Range(CorBookCol).End(xlDown))) MsgBox (BookAnswer) Debug.Print "——————" Debug.Print BookAnswer & " – Booked Answer" 我们的目标是让macros从我的“预订”工作表中获取一个列的小计，并将该编号与当前工作表中的其他编号结合使用。但是，即使我已指定macros从“已预订”工作表中find小计，它只会在当前工作表中find“BookedCorCol”地址的小计。任何帮助，将不胜感激

Excel 2010按string筛选以防止通过删除重复项来删除它们: 我有一个列表，有时有重复的东西，通常会删除重复删除没有问题。这一次，我发现我有一个常用的string，不希望任何这些string被删除，如果他们有相同的金额。代码就像 Dim Rng As Range Dim Rw As Long Rw = Cells(Rows.Count, 1).End(xlUp).Row ActiveSheet.AutoFilterMode = False Set Rng = Range("A3:K" & Rw) With Rng .AutoFilter .AutoFilter Field:=1, Criteria1:="<>*Discount*", Operator:=xlAnd End With ActiveSheet.Range("$A$1:$C$1000").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes ActiveSheet.AutoFilterMode = False 此代码隐藏“折扣”，但当它删除重复它跳过filter，并删除它们。从数据显示到Excel，他们是完全一样的，但数据来自QuickBooks，我需要所有的折扣，使一切正常加起来。