请给我加急

PeterPan9720 · 发表于 2022-7-6 21:27:41

卡尔塞法
如果列“E”中的单元格值为true，则表示在特定行上具有lat和long的单元格被复制，如果不为false，则表示该单元格被复制。
当然，您可以使用范围更广、过滤条件更多的参数，将Arg添加到函数中，并使用变量代替在特定单元格中写入值TRUE或FALSE。如果需要，可以删除行，检查函数的结果是否为true或false。

Kalsefar · 发表于 2022-7-6 21:30:00

谢谢你的代码很有帮助
@彼得·潘9720

PeterPan9720 · 发表于 2022-7-6 21:34:44

@卡尔塞法，
这只是有帮助，还是你解决了你的问题？
如果从函数中删除复选框“>1”，则函数会将重复单元格的数量返回为1或2或更多，这取决于标准计数为真的次数。
当然，您会发现重复值的2倍或更多，因为在整个范围的扫描过程中，第一个单元格范围将被复制，并继续扫描到最后一个范围值，找到了第二个单元格重复值。见附列“F”。

Kalsefar · 发表于 2022-7-6 21:37:39

没有解决我的问题，
它帮助我复制，但我需要一些类似值的帮助，如（23.855024）、（23855025）
所以我需要突出显示或写入（False）上述值之一
@彼得·潘9720

eldon · 发表于 2022-7-6 21:40:30

我将通过首先排序来实现这一点。然后，通过与前一行中的值进行比较，简化了代码。

PeterPan9720 · 发表于 2022-7-6 21:43:42

添加一个范围和标准，或者放置另一个计数，如果仅使用较高或较低的标准，则函数总是相同的。

copy


Set Arg5 = Sheets(1).Range("C2:C15")

copy


Arg6 = Sheets(1).Range("C" & cell.Row).Value > 0,0001 'Example

copy


Sheets(1).Range("E" & cell.Row).Value = Application.WorksheetFunction.CountIfs(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6) > 1

Kalsefar · 发表于 2022-7-6 21:48:02

不幸的是，仍然不起作用。
@彼得·潘9720

PeterPan9720 · 发表于 2022-7-6 21:51:18

好的，你定义了一个标准吗？我在前一篇文章中展示的只是一个例子，你们应该定义一个标准，一个单元格值，它被认为是彼此相似的。
试着从重复的函数值中分离出来，只是为了了解它是否工作，看看web上有很多关于Excel函数和VBA的文献，参见示例https://stackoverflow.com/questions/32332301/how-to-use-countifs-formula-in-vba网站。
做实验，我不能创造奇迹，我不知道你的要求。
同样，您应该创建选定值的标准，例如单元格A3+/-00000 1之间的单元格A2值。
一个范围->一个标准->一个参数。。函数中的n。试着用几个细胞。