求助两张表格两列姓名汇总后抽取不重复姓名

chxw68

510437958 发表于 2018-1-9 11:35
chxw68老师，初步看了下，您的代码和我修改的好像一样呀，为什么我的会出错呢？崩溃！我修改以后直接保存 ...

把这句：r = .Cells(.Rows.Count, 1).End(xlUp).Row
修改为：r = .Cells(.Rows.Count, 2).End(xlUp).Row

510437958

ZhouFfett 发表于 2018-1-9 11:25
纯公式解决，加了一个辅助表Z表

非常感谢，5000多行函数辅助列运算会否比较慢？

510437958

jivy1212 发表于 2018-1-9 10:48
数据----现有连接----选择电脑上该EXCEL文件----属性的命令文本改成   
select * from [2017$] union
se ...

这个思路很好，等我试试以后再评分，先谢谢了！能帮我看看为什么修改取值区间代码和chxw68老师修改后的代码一样，为什么我的会出错？老师的会得出正确结果？谢谢！

510437958

chxw68 发表于 2018-1-9 11:39
把这句：r = .Cells(.Rows.Count, 1).End(xlUp).Row
修改为：r = .Cells(.Rows.Count, 2).End(xlUp).Row

这好像修改了行的取值范围，原来是第一行改为第二行开始？对吗？

chxw68

510437958 发表于 2018-1-9 12:00
这好像修改了行的取值范围，原来是第一行改为第二行开始？对吗？

原来是第一列，现在改到第二列了。

510437958

jivy1212 发表于 2018-1-9 10:48
数据----现有连接----选择电脑上该EXCEL文件----属性的命令文本改成   
select * from [2017$] union
se ...

jivy1212老师，您的我用了SQL有一个问题，我是2003版本的，在建立连接以后，发现会有空值出现，如何排除空值呢？还有入过我就在同一张表如原附件的比对表上也可以建立链接吗？谢谢！

jivy1212

510437958 发表于 2018-1-9 12:05
jivy1212老师，您的我用了SQL有一个问题，我是2003版本的，在建立连接以后，发现会有空值出现，如何排除 ...

筛选去空就可以了。

510437958

jivy1212 发表于 2018-1-9 13:47
筛选去空就可以了。

应该有参数排除空值吧？

510437958

chxw68 发表于 2018-1-9 12:02
原来是第一列，现在改到第二列了。

r = .Cells(.Rows.Count, 2).End(xlUp).Row这句用通俗的语言解释是什么意思呢？前面那个点事什么意思？

chxw68

510437958 发表于 2018-1-9 15:18
r = .Cells(.Rows.Count, 2).End(xlUp).Row这句用通俗的语言解释是什么意思呢？前面那个点事什么意思？

r就是该表B列最下面一个有内容的单元格的行号，.是跟上面的With配套的，表示是With对象的子对象或者属性。