两列合并筛选不重复数据给到listbox

csmihu123 · 发表于 2020-2-12 11:11

本帖最后由 csmihu123 于 2020-2-12 11:23 编辑

我想筛选出B和C列合并在一起的不重复的数据，给到listbox列表里。用数组筛选的方式，如下

<blockquote><div class="blockcode"><blockquote><blockquote><blockquote>Dim p As Integer
Dim brr As Range
p = [A65536].End(xlUp).Row
Set brr = Range("B2:B" & p) ’把B列给brr
brr.Sort key1:=brr(1, 1), order1:=xlAscending, Header:=xlNo ’排序
For i = 1 To p - 1

复制代码

这样看起来应该正常，但是筛选出来没有滤掉重复值。发现问题在于(brr(i, 1) & brr(i, 2)) <>((brr(i - 1, 1) & brr(i - 1, 2))，即使相等，也被判断为不相等，为什么？应该怎样表示？求老师给指点一下。如果不想用u合并方法的话，这样直接比较能否实现？

csmihu123 · 发表于 2020-2-12 11:24

不知道为啥，代码贴不全，再贴一次

Dim p As Integer
Dim brr As Range
p = [A65536].End(xlUp).Row
Set brr = Range("B2:B" & p) ’把B列给brr
brr.Sort key1:=brr(1, 1), order1:=xlAscending, Header:=xlNo ’排序
For i = 1 To p - 1
if (brr(i, 1) & brr(i, 2)) <>((brr(i - 1, 1) & brr(i - 1, 2)) then '为什么这句判断不好使？是字符串的原因吗？应该怎样表示呢？
listbox1..AddItem brr(i, 1) & brr(i, 2)
end if
next

复制代码

csmihu123 · 发表于 2020-2-15 17:26

找到原因了，血的教训。
不过学会了数组的使用

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

[求助] 两列合并筛选不重复数据给到listbox