在不同的工作表中提取唯一值

阿利 · 发表于 2017-10-12 21:07

前天发过一个贴，发现我没有把我的意图说明白。说起来很简单，就是想用VBA把“期初数”工作表的A列的物料名称和“入库”表A列的物料名称，合并后的唯一值，如何提取到“库存”表中的B列中来。按我现在的代码，老是出现“类型不匹配”，请哪位大神帮我分析一下，问题出在哪里

duquancai · 发表于 2017-10-12 21:10

其实，说起来是最不简单的事情，并不是说起来很简单！

uynayna · 发表于 2017-10-12 21:30

Sub weiyi()
Dim d
Set d = CreateObject("Scripting.Dictionary")
Dim arr As Variant
Dim i, k, s As Integer
arr = Sheets("期初数").Range("a1").CurrentRegion
brr = Sheets("入库").Range("a1").CurrentRegion
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 1)) Then
d(arr(i, 1)) = ""
End If
Next
For i = 1 To UBound(brr)
If Not d.exists(brr(i, 1)) Then
d(brr(i, 1)) = ""
End If
Next
With Sheets("库存")
.Range("B1:b65536").Clear
.Range("B1").Resize(d.Count, 1) = Application.Transpose(d.keys)
End With
End Sub

复制代码

maditate · 发表于 2017-10-12 21:36

有多处类型不配，其中一处是下句
其中一处是读到了 Sheet1 工作表，此工作表上不存在 "物料名称“ ，Match 匹配不到值，返回类型不配，代码无法运行下去了。

maditate · 发表于 2017-10-12 21:41

此外下面这一句，从表面看上去此句的变量 Arr 是一个单元格区域赋值的数组。所谓单元可区域起码要两个以上单元格才能赋值为数组，如果此区域只有一个单元格，赋值的结果就 arr 就不是数组了，运行到字典里出现类型不配。
arr = Sheets("库存").Range("iv2:iv" & Sheets("库存").Columns("iv").Cells(Sheets("库存").Columns("iv").Cells.Count).End(xlUp).Row)

阿利 · 发表于 2017-10-12 21:49

uynayna 发表于 2017-10-12 21:30

非常感谢，初步测试，应该可以实现我想要的效果。不过我上传的附件是经过简化过的工作表，我将在我的原表中继续测试

maditate · 发表于 2017-10-12 21:54

阿利发表于 2017-10-12 21:49
非常感谢，初步测试，应该可以实现我想要的效果。不过我上传的附件是经过简化过的工作表，我将在我的原表 ...

楼上的代码，用楼主的数据测试结果还有类型不配。

阿利 · 发表于 2017-10-12 22:31

maditate 发表于 2017-10-12 21:54
楼上的代码，用楼主的数据测试结果还有类型不配。

目前我测试结果是正常的，请问，假如出现类型不匹配该如何处理呢？而且，我在库存表里B列之后都是公式，如何用VBA代码实现在运行取唯一值的时候也能自动扩展公式

maditate · 发表于 2017-10-13 10:32

阿利发表于 2017-10-12 22:31
目前我测试结果是正常的，请问，假如出现类型不匹配该如何处理呢？而且，我在库存表里B列之后都是公式， ...

我用楼主的文件，用3楼的代码，测试了一下。出现了类型不配。原因是楼主文件的期初初工作表，只有一个单元格（A1）有值。与此单元格相连的周边没有数据，以A1单元格组成的区域无法形成数组。出错的原因如我在5楼所说的一样。

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

[求助] 在不同的工作表中提取唯一值