Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1981|回复: 4

[已解决]请高手帮助调试VBA代码

[复制链接]
发表于 2011-11-20 12:50 | 显示全部楼层 |阅读模式
QQ截图未命名.png 结果.png 客户123.rar (5.95 KB, 下载次数: 8)
发表于 2011-11-20 13:10 | 显示全部楼层
将诸如Range("A",m)这样的表达方式中的逗号都改为“&”试试,即:Range("A" & m){:3912:}
回复

使用道具 举报

发表于 2011-11-20 13:38 | 显示全部楼层
  1. Sub 查找客户()
  2.     A = Range("A65536").End(xlUp).Row
  3.     H = Range("E65536").End(xlUp).Row
  4.     For m = A To 2 Step -1
  5.         For i = 2 To H
  6.             If InStr(Range("A" & m), Range("E" & i)) > 0 And InStr(Range("A" & m), Range("D" & i)) > 0 And Range("C" & i) = "" Then
  7.                 Range("C" & i) = Range("A" & m)
  8.                 Range("A" & m).Delete shift:=xlUp
  9.             Exit For
  10.             End If
  11.         Next i
  12.     Next m
  13. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2011-11-20 14:43 | 显示全部楼层
本帖最后由 nancy66317 于 2011-11-20 15:31 编辑
zjdh 发表于 2011-11-20 13:38


如果有四五千行,能不能引入数组呢?又该怎么处理呢?还有没有更快捷的办法呢?

回复

使用道具 举报

发表于 2011-11-20 21:04 | 显示全部楼层    本楼为最佳答案   
引入数组,肯定快多了:
  1. Sub 查找客户()
  2.     ARR = Range("A2:B" & Range("A65536").End(xlUp).Row)
  3.     BRR = Range("C2:E" & Range("E65536").End(xlUp).Row)
  4.     ReDim CRR(1 To UBound(ARR))
  5.     For M = 1 To UBound(BRR)
  6.         For I = 1 To UBound(ARR)
  7.             If ARR(I, 2) <> 1 Then
  8.                 If InStr(ARR(I, 1), BRR(M, 2)) > 0 And InStr(ARR(I, 1), BRR(M, 3)) > 0 And BRR(M, 1) = "" Then
  9.                     BRR(M, 1) = ARR(I, 1)
  10.                     ARR(I, 2) = 1
  11.                     Exit For
  12.                 End If
  13.             End If
  14.         Next I
  15.     Next M
  16.     For I = 1 To UBound(ARR)
  17.         If ARR(I, 2) <> 1 Then
  18.             T = T + 1
  19.             CRR(T) = ARR(I, 1)
  20.         End If
  21.     Next
  22.     Range("A2:B" & Range("A65536").End(xlUp).Row).ClearContents
  23.     Range("C2:E" & Range("E65536").End(xlUp).Row).ClearContents
  24.     Range("A2").Resize(T, 1) = Application.Transpose(CRR)
  25.     Range("C2").Resize(UBound(BRR), 3) = BRR
  26. End Sub
复制代码
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 18:02 , Processed in 0.544072 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表