保留 Excel sheet 中的特定值并删除其他值并计算重复 vbscript 的次数

Question

我想删除 excel 数据中除行 'containing' 名称 "abc" 之外的所有数据。我正在尝试更新 excel sheet 和然后计算每个副本有多少次 repeated.The 输出应该是另一个 excel sheet，其中我有压缩的重复值以及我之前得到的计数。

我做了什么：为了计算重复值的数量，我使用了这个：

      =COUNTIF($A:$A, A1

但是我怎样才能删除其他值并将剩余的值放入新的 Excel Sheet.

Answer 1

添加带有行号或任何其他行 ID 的 "RowNo" 列。接下来在输出 Excel 文件中使用 Microsoft Query 例如：

SELECT S1.Val, COUNT(S1.Val) FROM `C:\Book1.xls`.`Sheet1$` as S1 
INNER JOIN `C:\Book1.xls`.`Sheet1$` as S2 
WHERE S1.Val = S2.Val and S1.RowNo > S2.RowNo
GROUP BY S1.Val

另外删除不包含例如'abc' 您可以在 WHERE 子句中添加另一个条件：S1.Val NOT LIKE "abc"。见下文：

 SELECT S1.Val, COUNT(S1.Val) FROM `C:\Book1.xls`.`Sheet1$` as S1 
    INNER JOIN `C:\Book1.xls`.`Sheet1$` as S2 
    WHERE S1.Val = S2.Val and S1.RowNo > S2.RowNo AND S1.Val NOT LIKE "*abc*"
    GROUP BY S1.Val

随时使用我的插件测试不同的 SQL：link。

要通过 VBscript 进行设置：

步骤 1：使用此 Microsoft Query
第 2 步：创建一个 VBscript，它将刷新 Excel 文件中的 Microsoft Query（参见此处示例，了解如何从 VBscript [连接到 Excel 文件=13=]).

保留 Excel sheet 中的特定值并删除其他值并计算重复 vbscript 的次数

Retain Specific values in Excel sheet and remove others and get count of how many times repeated vbscript

vbscript

excel

vba