数据只有六万条，但运行if和countif公式非常慢，求解决方法

karry凯莉

数据只有六万条，但运行if和countif公式非常慢，求解决方法
一整列都要复制第一格的公式

z403025335

删除重复项就好了啊

liulang0808

高级筛选，去除重复项即可

karry凯莉

liulang0808 发表于 2018-7-7 16:53
高级筛选，去除重复项即可

不是的我只是截取了其中一列数据，我需要删除相同订单号对应的其他数据，并且保持位置不变，所以才添加了这列

karry凯莉

liulang0808 发表于 2018-7-7 16:53
高级筛选，去除重复项即可

不是的我只是截取了其中一列数据，我需要删除相同订单号对应的其他数据，并且保持位置不变，所以才添加了这列

liulang0808

1. Sub aaa()
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = [a1].CurrentRegion
   
5.     For j = 2 To UBound(arr)
   
6.         If d.exists(arr(j, 1)) Then
   
7.            arr(j, 2) = "删除"
   
8.         Else
   
9.             arr(j, 2) = "保留"
   
10.         End If
    
11.         d(arr(j, 1)) = ""
    
12.     Next j
    
13.     [a1].CurrentRegion = arr
    
14.     Application.ScreenUpdating = True
    
15. End Sub
    

复制代码

liulang0808

附加内容供参考，先将A列修改成文本格式，不然容易导致数据格式变化

karry凯莉

liulang0808 发表于 2018-7-7 18:36

谢谢！！！我还有一个疑问想请教，数据其实也就38列，六万多行，照道理普通公式不会运行那么困难的呀，在不使用vba的情况下，是否还有其他解决方法，假如没办法，我就要开始学习vba

fxl447098457

公式一般适合万行以内的。最好几千行。

karry凯莉

fxl447098457 发表于 2018-7-9 09:29
公式一般适合万行以内的。最好几千行。

那只能用vba了吗？其中一个六万多行，另一个表有几十万行，感觉绝望