EXCEL达人请帮忙！
EXCEL达人请帮忙！
日期：2013-04-03 11:01:24 人气：1
用宏吧：
1、按Alt+F11打开VBA编辑器
2、插入－模块
3、把下面的代码复制到模块1
4、运行宏“合并”，生成的新数据在Sheet2
Sub 合并()
Dim ob As Object
r = Sheets(1).[A65536].End(xlUp).Row
arr = Sheets(1).Range("A1:B" & r)
Set ob = CreateObject("scripting.dictionary")
For