[已解决]求助，查找返回值，如果有空值怎么解决

hou_xuerong · 发表于 2012-2-16 14:16

库存.rar (30.36 KB, 下载次数: 20)

砂海 · 发表于 2012-2-16 14:24

楼主文件好大. " 没有响应 "

lookup 不能有空值.
尝试用辅助列 ="顺便什么"&(含空值的列)

砂海 · 发表于 2012-2-16 14:26

楼主文件好像该用宏,
在数组内查找.
用单元格很慢的.

liuts · 发表于 2012-2-16 14:50

板号是空的,你想怎么处理?

hou_xuerong · 发表于 2012-2-16 16:34

liuts 发表于 2012-2-16 14:50
板号是空的,你想怎么处理?

如果板号是空的我想不显示，或者显示错误值

liuts · 发表于 2012-2-16 17:03

Option Explicit
Sub liuts()
Dim arr, i As Long, brr(1 To 50000, 1 To 3), sr$, j As Long, d As New Dictionary
sr = Sheet1.[a2]
arr = Sheet4.Range("A1").CurrentRegion.Value
For i = 2 To UBound(arr)
If arr(i, 1) = sr And arr(i, 5) <> "" Then
j = j + 1
If Not d.Exists(arr(i, 5)) Then
d.Add arr(i, 5), arr(i, 4)
brr(j, 1) = arr(i, 5): brr(j, 2) = arr(i, 5): brr(j, 3) = arr(i, 4)
Else
brr(j, 1) = arr(i, 5)
End If
End If
Next i
Sheet1.Range("b2").Resize(j, 3) = brr
Columns("C:D").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

复制代码

liuts · 发表于 2012-2-16 17:04

库存.rar (30.71 KB, 下载次数: 8)

hou_xuerong · 发表于 2012-2-17 08:16

liuts 发表于 2012-2-16 17:03

能跟我讲讲吗？

liuts · 发表于 2012-2-17 08:19

效果对了吗?

hou_xuerong · 发表于 2012-2-17 08:20

liuts 发表于 2012-2-16 17:04

好像不对呀，第二次查询时，如果第一次查询的数据要比第二次多，则第二次查询只会覆盖其中一部份，而不能把第一次查询的数据全部清除

		自动登录	找回密码
密码			注册