FOR I TO UBOUND(ARR,1) 运行后卡住了，CPU使用率上升

shalisi

对比 客户详情A列 和 商品详情A列 的内容，相同时退出，不同时删掉不同内容的行。

用For i to50  正常

用For ito UBound(arr,1)  则是卡住了，CPU使用率上升

蓝桥玄霜

第2个多了一句：j=j-1
还是判断逻辑的问题，一般删除问题需要从最后往前做。

maditate

没测试过，试试下面代码

Private Sub CommandButton2_Click()
Dim arr, brr

arr = Sheet3.Range("a1:a" & Sheet3.[a65536].End(xlUp).Row)
brr = Sheet8.Range("a1:a" & Sheet8.[a65536].End(xlUp).Row)
Set D = CreateObject("Scripting.Dictionary")   '建立字典
For h = LBound(brr) To UBound(brr)       '循环将商品标准关键词装进字典
   D(brr(h, 1)) = D(brr(I, 1))
Next h



For I = UBound(arr, 1) To 2 Step -1   '删除行、列应该倒着开始，正删有麻烦。
     If D.Exists(arr(I, 1)) = True Then   '如果字典里存在此关键词，则删除此行。
       Sheet3.Rows(I).EntireRow.Delete
     End If
Next
End Sub

shalisi

蓝桥玄霜 发表于 2019-10-7 13:31
第2个多了一句：j=j-1
还是判断逻辑的问题，一般删除问题需要从最后往前做。

谢谢，已经改成  For i = UBound(arr, 1) To 2 Step -1  可以正常运行

shalisi

maditate 发表于 2019-10-7 13:44
没测试过，试试下面代码

Private Sub CommandButton2_Click()

提示  下标越界

liuxi001

直接对cells对象操作话用UNION会好一些吧