在VBA中寻找一种解决方案，将新列中除第一个值以外的所有重复值标记为TRUE或FALSE，以便可以在透视表中作为页面过滤器过滤掉它们。第一次出现的值应该标记为FALSE，这样数据仍然显示，但顺序值隐藏在透视表中。
.Cells(clclrow, 19) = WorksheetFunction.CountIf(.Range("C1:C1" & clclrow), .Cells(clclrow, "C")) + WorksheetFunction.CountIf(.Range("C1:C1" & clclrow), .Cells(clclrow, "C")) > 2或.Cells(clclrow, 19) = WorksheetFunction.CountIf(.Range("C1:C1" & clclrow), .Cells(clclrow, "C"))> 1
其中clclrow = 2 To ws.Cells（Rows.Count，1）.End（xlUp）.Row
尝试仍将所有重复值显示为TRUE。
1条答案
按热度按时间idfiyjo81#
我的回答比什么都有逻辑性。我将使用一个分隔符，并假设分隔符之间的每个项在前面都有重复项。只需选择并剪切项目，然后搜索/替换与匹配的文本加上任何标签，你想添加的重复，最后粘贴剪切文本回到原来的位置。前进到下一个分隔符之外并重复。