我要把一个工作表中的数据无重复添加到另一个工作表中

Vicel · 发表于 2015-1-28 21:06

hqmtba 发表于 2015-1-28 20:47
已解决，原来总想着在您给得代码里加入清除单元格的内容，总成功不了，在您的提示之下，在运行您 ...

你要是其它列还有数据，而且需要保留的话，那就用Sheets("Sheet1").Range("A2:L65536").ClearContents好了

hqmtba · 发表于 2015-1-28 21:48

本帖最后由 hqmtba 于 2015-1-28 21:52 编辑

Vicel 发表于 2015-1-28 21:06
你要是其它列还有数据，而且需要保留的话，那就用Sheets("Sheet1").Range("A2:L65536").ClearContents好了 ...

谢谢！

hqmtba · 发表于 2015-1-28 22:01

本帖最后由 hqmtba 于 2015-1-28 22:06 编辑

Vicel 发表于 2015-1-28 21:06
你要是其它列还有数据，而且需要保留的话，那就用Sheets("Sheet1").Range("A2:L65536").ClearContents好了 ...

另外想请教个问题，要学会用VBA从网页上下载数据到Excel，该如何入手为快？有推荐的书吗？我手头有两本：高级VBA编程宝典、VBA程序开发自学宝典（罗刚君），我现在的基础是能把代码看懂个大概，进行简单的套用。如图中的一长串的日期生成我就一点都不懂，网页数据的真实地址查找、提取出的数据整理等就压根儿不懂......（图附不成功，我把代码附到44楼）
C:\Users\HT\Desktop\截图

hqmtba · 发表于 2015-1-28 22:04

图附不上，那我就附个代码的附件

Vicel · 发表于 2015-1-28 22:09

hqmtba 发表于 2015-1-28 22:01
另外想请教个问题，要学会用VBA从网页上下载数据到Excel，该如何入手为快？有推荐的书吗？我手头 ...

不好意思。我目前还没接触过从网页上下载数据到Excel这一块，没去研究这些

hqmtba · 发表于 2015-1-28 22:20

我有点搞不清方向，很想知道可以参考哪些资料。您已经帮我很大忙了，万分感谢！

hqmtba · 发表于 2015-1-28 22:25

Vicel 发表于 2015-1-28 00:03

我很好奇，编30楼这70几行代码，要费多长时间？

Vicel · 发表于 2015-1-28 22:37

hqmtba 发表于 2015-1-28 22:25
我很好奇，编30楼这70几行代码，要费多长时间？

能一次性写完的话，是用不了多少时间。
一般都是先有个思路，然后按那思路去写，这个过程中少不了调试。通过调试，再逐步去完善代码
其实我也没有去统计究竟用了多少时间

baolong · 发表于 2015-11-13 17:15

TomingTang 发表于 2015-1-26 14:29
某个写错了。现在改好了。我的程序运行速度比2楼，当量大时。

我也在找类似的方法，能否拜托高手再写一段更通用的代码？
不仅判断“姓名”，而且判断“学历”，或者其他的更多列，只有在完全相同的时候才不添加
比如上例，当胡一刀是“硕士”的时候，也添加。
另外，如果能打开外部数据表，就是另一个Excel文件，而导入到自己的库中，这样意义更大。

bo824111 · 发表于 2017-2-27 23:36

TomingTang 发表于 2015-1-26 14:29
某个写错了。现在改好了。我的程序运行速度比2楼，当量大时。

添加表中的重复项还是增加到明细中去了，没有解决这个问题

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

[求助] 我要把一个工作表中的数据无重复添加到另一个工作表中