Tag: 重复

在Excel中检查重复的子string: 我试图find一种方法来比较每个单元格中的第一个重要单词与下一个单元格中的第一个重要单词，如果第一个重要单词匹配，则删除第二个条目。例如，起始数据可能如下所示：通用电气通用电气公司通用电气公司微软微软公司微软服务器任天堂任天堂企业结果应该是这样的：通用电气微软任天堂到目前为止，我已经设置了遍历数据列的代码： Sub CompanyNameConsolidate() Dim companyName As String Dim companyArray() As String Dim companyName2 As String Dim companyArray2() As String Dim totalArray() As String Dim wordCount As Integer Dim i As Integer Dim r As Range With Sheets("Unassigned") Range("B1").Select Do Until IsEmpty(ActiveCell) […]

Excel计算一行中的重复次数，忽略空白，并返回布尔值: 我在Excel中有一行随机数据，如下所示： | A | B | C | D | E | F | G | | 1 | see | saw | swing | see | slide | | | 如何检测row 1是否有重复，如果有，则返回1如果没有则返回0 ，忽略F和G列中的空白单元格？

从一列中select最低date，从单独的列B中的date中减去该值，但忽略Excel中第三列中的重复项: 我有一个具有以下结构的Excel文件（这是一个显示数据结构的链接，如果有帮助的话）： ABCDE ID PayDate PayAmount BillDate OriginalBillAmount 1423 1/12/15 $20.00 1/1/15 $1,000.00 1423 2/10/15 $49.00 1/1/15 $1,000.00 1423 2/12/15 $122.00 1/1/15 $1,000.00 5124 11/1/15 $49.00 1/4/15 $200.00 5124 3/4/15 $53.00 1/4/15 $200.00 2341 4/9/15 $12.00 1/6/15 $540.00 我想计算每个人在账单上进行第一次付款需要多长时间。身份证是重复的，因为一个人在账单余额上多次付款。如何从列D中的每个个人中减去B列中最早的PayAmountdate，并以天F中的一个数字的forms返回差异？我试图能够在新数据进入时自动重现这一点，所以配方解决scheme将是理想的。我最好喜欢有一个看起来像这样的列F（值只是例子）： F Diff 11 (blank/NA) (blank/NA) (blank/NA) 124 96

MS Excel查找和匹配重复的值并返回重复的唯一值: 使用MS Excel公式，我有三个列（即，名称，电话和重复）。我目前正在使用一个基于两个标准（即“NAME”和“DUPLICATE”）查找匹配重复项的公式，并显示是否在“重复”列中显示重复项。我想要一个Excel公式，如果find一个重复的logging，返回唯一的“PHONE”值，该值对应于重复的“NAME”和“DUPLICATE”logging的第一个实例并匹配，并显示唯一的“Phone”号码与重复logging相邻的同一行。请参阅原始示例电子表格：在下面显示的示例输出中，使用MS Excel公式; 而不是仅仅确定已经find了重复的logging（即，名称和重复）; 显示唯一值（电话）标识为匹配的名称和重复。我想显示独特的或第二个匹配的“电话2”如下…谢谢示例logging输出所需

如何一次删除多个列的单个列中的重复值: 如何一次删除所有列中的单个列中的重复值？如果我在Excel中select“ Remove Duplicates工具并select多个列，则假定我正在查找跨列的重复项。我想要的是删除单个列中的重复项，但我不想单独单击每个列。例如，假设我有一个包含500列的电子表格。我想删除列1（“A”）中的所有重复值，然后删除列2（“B”）中的所有重复的列，等等，通过列500。我试过的东西： loggingmacros。结果： ActiveWindow.ScrollColumn = 1 Columns("A:A").Select Application.CutCopyMode = False ActiveSheet.Range("$A$1:$A$582").RemoveDuplicates Columns:=1, Header:=xlYes 正如你所看到的，对于一些反应，它会自动select列“A”。我不知道如何一般地select我select的列的字母。 SOOO … 我尝试了以下内容： Col = Split(ActiveCell(1).Address(1, 0), "$")(0) Application.CutCopyMode = False ActiveSheet.Range("Col1:Col1581").RemoveDuplicates Columns:=1, Header:=xlYes 但是这也行不通。我将如何去做这个？我正在使用MS Excel 2010（Professional Plus）

计算多个范围内重复值的百分比: 下面的示例电子表格显示了两列。列A包含显示由两个灰色的行轮廓表示的两个不同的分组。 B列包含每个组的“分配模块”。在列CI中想要指示每个组内重复的“分配模块”的百分比（注意几个垂直合并的单元格）。每个分组的“分配模块”数量不同。所以我不能使用一个静态范围。任何人都可以build议我是如何计算每组重复“分配模块”的数量？谢谢！例如单元格C3（合并的C3-8）= 83％电池C10（合并C10-13）= 100％

优化VBA / Excelmacros代码（查找重复和sorting大型数据集）: 我目前有一个代码被写入查找重复值从范围“A3”到最后一行使用; 突出显示重复的红色，包括第一个和最后一个实例; 按颜色突出显示，最后从最小到最大sorting。稍后我将使用这些副本来复制到另一张表。数据从列“A3”到“V3”开始，到最后一行使用。数据范围从10,000到40,000行，可能更多取决于收到的数据。我的问题是这个marco运行速度非常慢，有时会冻结..有没有另一种方法来达到相同的结果，但更有效和更快？ Sub filtersort () Dim sht As Worksheet Set sht = Worksheets("Sheet1") Lastrow = Range("A" & Rows.Count).End(xlUp).Row N = Cells(Rows.Count, "A").End(xlUp).Row sht.Range("A3:A" & Lastrow).Select Selection.FormatConditions.AddUniqueValues Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority Selection.FormatConditions(1).DupeUnique = xlDuplicate With Selection.FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = […]

如何在Excel中find两列对应的匹配对？: 我有2列包含这种格式的数据： ColA ColB ax by cz xa yb zc 我很难筛选出匹配的对，如值a，x和x，a。任何帮助将不胜感激！编辑：理想情况下，我想有一个独特的价值，如每一对第三柱 ColA ColB ColC ax 1 by 2 cz 3 xa 1 yb 2 zc 3 所以我可以将它们过滤出来，或者快速做一个数据透视表。

如何删除列重复的单元格值，并向上移动其行中的其他值: 正如你在图片中看到的，我有一个有许多重复值的列。我想删除重复的单元格值只留下最高价值，但同时移动行如下所示：有谁知道我会写什么来实现这个？

如果在列A中存在具有相同值的另一行，并且该行在c中具有值，则删除该行: 我正在尝试编写一个macros来执行以下操作：它取A列的值 – 每行的行数（从下到上）=初始行它会检查列A中是否有另一个具有相同值的行如果是，则需要第一场比赛它检查匹配的行是否有列C写入的内容如果是，则删除最初的行我有以下，但它不工作，现在似乎也有错误“无法获得工作表function类的匹配属性。 Option Explicit Sub Testing() Dim x As Long Dim y As Long Dim LastRow As Long Dim MatchedRow As Long Dim RowValue As String LastRow = Range("A999999").End(xlUp).Row For x = LastRow To 1 Step -1 RowValue = Range("A" & x).Value If Application.WorksheetFunction.CountIf(Range("A1:A" & x), Range("A" & […]