Tag: 重复

在Excel中简单重复macros

我GOOGLE了这一点，但无法find明确的答案。 我有一个包含大量工作表的工作簿，每个工作表都包含采购订单信息。 我想复制每个工作表的同一单元格范围，并编译所有这些范围的长列表。 我的代码是目前; Sub WorksheetLoop() Sheets("5040001253").Select Range("A4:O23").Select Selection.Copy Sheets("PO_Combi").Select lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row ActiveSheet.Range("A" & lastRow + 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub 我的问题是：是否有一个简单的命令，允许replace名为5040001253表，这将使这个macros在所有表中重复？ 如果没有，有人可以告诉我该怎么做才能做到这一点？

确定一组重复并find其最大/最高编号

不确定解决scheme是否是VBA /macros或Excel中的公式。 但是，目标是将具有相同帐户名称的一组帐户中的最高/最高期限＃的值复制到相应的AValue。 [下图] 注意：这些帐户已经sorting，并且无法将其分类为另一种格式，因为它处理7000多个条目

如果列中存在重复，则删除行

如果在第一列中存在重复项，我该如何删除一行？ 想象一下下面的场景： 你可以看到A9 = A12但也注意到B9 != B11 。 Excel 2010中的当前“删除重复”function只会删除整个行，如果整个是相同的另一个。 有什么build议么？ 〜解决感谢pnuts！

将XML列表映射到Word重复组件（Word 2013）

我有一个从Excel电子表格生成的XML文件。 这个xml表示电子表格的行和列。 例如： <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <data-set xmlns="dummy.xsd"> <record> <LastName>Smith</LastName> <Sales>16753</Sales> <Country>UK</Country> <Quarter>Qtr 3</Quarter> </record> <record> <LastName>Johnson</LastName> <Sales>14808</Sales> <Country>USA</Country> <Quarter>Qtr 4</Quarter> </record> <record> <LastName>Williams</LastName> <Sales>10644</Sales> <Country>UK</Country> <Quarter>Qtr 2</Quarter> </record> <data-set> 我希望能够遍历每一行，并将它的每个部分显示为一个单词组件，以便我可以使用单词格式进行格式化。 所以我会喜欢（用[[..]]象征组件和重复结构） [[ [[ [[Lastname]] – [[Sales]] – [[Contry]] – [[Repeat]] ]] [[ [[Lastname]] – [[Sales]] – [[Contry]] – [[Repeat]] ]] ]] 我已经打开了开发人员窗格 ，并使用XML […]

接收与公式重复

我一直在试图找出过去两周的这个公式！ 现在，我正在使用的公式为前几个单元格，然后我开始接收重复，我不明白为什么。 我也想＃N / A值是空白的，因为我确实需要公式全部列C. 我的目标是什么？ 我有超过1000个竞争对手的名字，每个竞争对手都会被放入一个“事件”（图1）。 这些“事件”名称放在每个工作表的单元格B5（如图2和图3所示）中，最多可以有40个事件（工作表）。 因此，在第一张照片中，托德（D14）在事件A（E14）中。 我需要托德的名字出现在第二张照片的C9中，这与我的公式有关; 但是，如果向下看第二张图片的下列单元格并将其放入第三张图片，名称将开始复制。 然后，当事件A和B没有进一步的竞争者名字时，我收到＃N / A值; 我想保持空白。 屏幕截图只是一个简单的例子，但是竞争对手也会列出他们的姓氏（格式为：名字_姓氏）。 下面是C9的公式（第二张照片） =INDEX('COMPETITOR NAMES ~ DIVISIONS '!D14:E$1201,MATCH('First Event'!$B$5,'COMPETITOR NAMES ~ DIVISIONS '!E14:E$1201,0),1) 下面是C10的公式（第二张照片） =INDEX('COMPETITOR NAMES ~ DIVISIONS '!D15:E$1201,MATCH('First Event'!$B$5,'COMPETITOR NAMES ~ DIVISIONS '!E15:E$1201,0),1) 感谢您的时间和帮助！

VBA重复的数字相邻

好的，我有一个Excel中的可变大小的数组。 使用VBA我想查找是否有任何重复的值，所以相邻的值是相同的，而不是在整个列。 我知道，只要在excel中，你可以使用if语句，但是你怎样才能使用for循环把它分散到整个表格中。 我非常新手vba。 这是我第一次尝试，虽然没有工作，我不知道如何继续。 总数是由用户input的值 ok = True For j = 2 To 24 For l =1 to total If ActiveCell.Offset(j, l).Select = ActiveCell.Offset(j + 5, l) And ActiveCell.Offset(j + 4, l) And ActiveCell.Offset(j + 3, l) And ActiveCell.Offset(j + 2, l) And ActiveCell.Offset(j + 1, l) Then ok = False End if Next […]

突出显示不同工作表上两个范围之间的重复项

我试图find一种更有效的方法来突出显示不同工作表上两个范围之间的重复单元格。 下面的代码是非常缓慢的： Sub HighlightDuplicates() Application.DisplayAlerts = False lrU = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row lrPT = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row Dim rng1, rng2, cell1, cell2 As Range Set rng1 = Worksheets("Sheet1").Range("DL4:DL" & lrU) Set rng2 = Worksheets("Sheet2").Range("E3:M" & lrPT) For Each cell1 In rng1 For Each cell2 In rng2 If cell1.Value = cell2.Value Then cell1.Font.Bold = True cell1.Font.ColorIndex = 2 […]

删除重复/怀疑行

我试图设置一个VBA代码来打开名为“数据”的工作表，如果列A的数据不是唯一的（已经在列A的其他行中），则删除整行。 使用下面的例子，我将只保留第2,6,8和11行。 Sub delete_duplicates_on_column_A() ' delete_duplicates_on_column_A Macro ' Columns("A:E").Select ActiveSheet.Range("$A$1:$E$22").RemoveDuplicates _ Columns:=1, Header:=xlYes End Sub

根据它们的出现删除重复项

我想检查某个列（W）的重复项（出现次数存储在另一列（AZ）），并删除所有行这种方式： 值在列中find两次 – 只删除包含该值的一行。 在列中find更多的值 – 删除所有包含值的行。 我的代码工作得很好，但有时它不会删除所有重复项，因为它应该这样做。 任何想法改善？ 编辑：更新的代码工作真的很好，除了它总是错过一个重复，并保持不被删除。 fin = ws.UsedRange.Rows.count For i = 2 To fin ws.Range("AZ" & i).value = Application.WorksheetFunction.CountIf(ws.Range("W2:W" & fin), ws.Range("W" & i)) Next i For j = fin To 2 Step -1 If ws.Range("AZ" & j).value > 2 Then ws.Range("AZ" & j).EntireRow.Delete fin = ws.UsedRange.Rows.count ElseIf ws.Range("AZ" & […]

条件格式化“突出显示重复值”，突出显示非重复项

我有几个专栏，我正在比较对方。 我将在下面给出一些有问题的示例数据以及一些没有问题的数据集。 当我去做条件格式并突出显示重复值时，大部分信息都很好。 然而，一些随机单元格突出显示为重复，但实际上并没有复制到任何地方！ 所以我认为这可能与值的长度和Excel只检查15或16位数字的数字，但不能是那个B / C我有其他人一样长，有重复的数字到第十五和第十六位，但不同之后，那些不突出彼此重复…. 这是怎么回事？？？ 任何build议如何解决这个，因为我比较多列？ 这些被重点显示为重复，但显然不是： 99954000000020098841 99954000000020098858 99954000000020099008 这些没有突出显示重复，但只是一样长，并互相重复，直到 00007964821931730792 00007964821931734868 现在让我们看一下，如果我以999开头的3个数字的集合，将它们从列表中取出，然后将它们粘贴到一个单独的表单中，然后对这3个单独运行重复值检查，底部两个标记为重复！