Tag: filter

Excel根据单元格内容过滤了数据validation列表: 我目前有一张如下所示的表格： | A | B | +——-+———–+ 1 | State | City | +=======+===========+ 2 | NSW | Goulburn | 3 | NSW | Sydney | 4 | VIC | Melbourne | 5 | VIC | Horsham | 6 | NSW | Tamworth | 然后我有另外一张桌子，看起来像这样： | A | B | C | +——-+———–+————+ 1 | […]

Excel VBA – 数据透视表筛选器运行时错误'1004'PivotItems: 我有下面的代码，它打开一个Excel文件，select工作表，并运行一个macros – 我已经设法使其删除filter的date，但我很难得到它过滤到"01/07/2013" Sub Data() Dim oExcel As Excel.Application Dim oWB As Workbook Dim oSheets As Sheets Dim oPi As PivotItem Set oExcel = New Excel.Application oExcel.Workbooks.Open ("\\A79APBRSFACTD\MDSS\FactivityServer\FactShar\OEE_Daily2.xls") oExcel.Visible = True Set oExcel = Excel.Application Set oWB = oExcel.Workbooks("OEE_Daily2.xls") oWB.Sheets("OEE Pivot Daily").Select oExcel.Run ("Update_OEE_Daily") oWB.Sheets("OEE Pivot Daily").Range("B3").Select With oWB.Sheets("OEE Pivot Daily").PivotTables("PivotTable2").PivotFields("Date") .ClearAllFilters .PivotItems("01/07/2013").Visible = True […]

Excel在应用filter后填充单元格范围: 我想对一组数据应用一个filter，之后我想将一个范围的数据填充到一个单元格范围内。但现在如果这样做，最后两行正在获取第一个单元格的值。 -74.4398 -74.2028 -69.8689 -73.1567 -80.1015 -75.822 -75.0529 -75.9859 -79.2546 -72.8093 -71.6604 这是单元格B3到B13中的数字列表。一个button后面带有以下VBA代码： Private Sub CommandButton1_Click() Dim arr() As Variant Dim i As Integer ReDim arr(1 To 11, 1 To 1) arr(1, 1) = "Hallo" arr(2, 1) = "Welt" arr(3, 1) = "Holla" arr(4, 1) = "verdugón" arr(5, 1) = "Hello" arr(6, 1) […]

VBA高级自动筛选+根据范围创build新的工作表: 我需要基于工作表模板中的单元格范围在工作簿中创build新的选项卡。我也想删除与标签名称不匹配的数据行。例如，从下面的表格中我将会有一个名为“2206-6”的新选项卡，只有与之关联的数据才会保留，请记住，每次使用macros时，这个范围的数据都会改变。之前：之后：区间数2206 – 6 6304 – 5 4102 – 20 表格从第11行开始，但我需要保留上面的所有信息。我有一个先进的过滤macros接近我想要的，但它做我不想做的两件事：创build空的选项卡，而不是保留第11行以上的信息。 Sub parse_data() Dim lr As Long Dim ws As Worksheet Dim vcol, i As Integer Dim icol As Long Dim myarr As Variant Dim title As String Dim titlerow As Integer vcol = 1 Set ws = […]

Excel：删除一列中的重复项，同时在相邻列中保留最高值: 我有一个Excel电子表格有两列。第一列是标签，第二列是数字值。我想删除列“A”中的所有重复标签，并保留在列“B”的最大数值。我试图在下面说明（filter会导致“合并表”给出“原始表”：注1：我试图parsing邮件服务器日志文件，以获取主机及其在特定date的最大SMTP连接的列表。如果你可以build议在Windows上这样做（即使它意味着使用草莓Perl），我会很感激解决scheme。注2：你可能不得不使用你的想象力，下面我画了“电子表格”，我试着把每一行放在一行中，但是所有的行都在一行中渲染。 [编辑]通过将所有内容放在无序列表中修复它。 “原稿” colA，colB name1，32.0， name1，12.5， name1，11.0， name1，10.1， name1，6.9，名称2，2.3， name2，1.1， name2，0.9， name3，54，名称3，60， name3，101， name3，12， “合并表” colA，colB name1，32.0，名称2，2.3， name3，101，问候，emk

删除重复的可见行: 我正在尝试使用下面的VBA代码来做两件事情。计算过滤的工作表中唯一可见行的数量。删除重复的行至今： Function UniqueVisible(MyRange As Range) As Integer Dim ws As Worksheet Set ws = Worksheets(1) Dim R As Range Dim V() As String ReDim V(0 To MyRange.Count) As String For Each R In MyRange If (R.EntireRow.Hidden = False) Then For Index = 0 To UniqueVisible If (V(Index) = R.Value) Then R.Delete Exit […]

高级filter错误: 我正在尝试创build一个唯一的列表，但列表中的第一个值是空白，这似乎是导致我一个问题。当我使用基本的高级filter时，它基本上只是命名范围“提取”并复制格式。所以F2等于`Extract'如下，我已经尝试了使用标准范围的许多方法，但似乎没有任何工作。理想情况下，我希望这是VBA代码，但手动高级filter不起作用。澄清我正在像这样寻找，我在这里看到一个类似的问题，它只是不适合我。有没有人有任何想法我做错了？这是“复制到新的位置”选项，这是搞砸了吗？理想情况下，我需要它是独特的领域，但我似乎得到相同的结果，有或没有唯一字段唯一方框打勾。最终我希望这是代码，但是，当我在VBA中运行下面时，我得到一个运行时错误。 Range("E2:E5").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "h1:h2"), CopyToRange:=Range("F2"), Unique:=True 编辑

VBA：select第一个过滤的单元格，然后移到下一个单元格: 我想要做的事似乎对我来说很简单，但我找不到一个办法。我有一个Excel电子表格，其中有很多联系方式，例如： ABCDE 1 Select who you would to like to email: * Drop down list * 2 Name: Company: Role: Email Address1: Email Address2: 3 Michael Jackson Jackson 5 Singer MJ@J5.com Michael@J5.com 4 Brian May Queen Guitarist BM@Queen.com Brian@Queen.com 5 Kurt Cobain Nirvana Singer KC@Nirvana.com Kurt@Nirvana.com 6 Freddie Mercury Queen Singer FM@Queen.co.uk Freddie@Queen.com 7 […]

从VBA中的filter中提取唯一值的集合: 我有一个文件，其行数可以跨越8列数以万计。一个特定的列包含周末date。我必须计算在这个文件中出现的周末数。有没有一种方法来提取数据，如下图所示？如果我们能够提取并获得这个集合的数量，那么问题就解决了。请帮忙。提前致谢！

Excel VBA映射过滤XML到表: 我有下面的代码，将XML架构映射到Excel表（如在ListObjects中）。 Sub MapXMLFieldsToExcelCells(wb As Workbook, sLOB As String) '******************************************************************* '** Name: xmlFieldMap '** Purpose: Maps fields of existing xlmMap (named "xmlData") to file '** Dependents: TieXMLToExcel (remapping of xml file) '** Notes: '******************************************************************* sProcName = "MapXMLFieldsToExcelCells" With wb Dim xMap As XmlMap Set xMap = .XmlMaps(sLOB) Dim wsXMLMain As Worksheet Set wsXMLMain = .Worksheets("xml" & […]