EXCEL VBA 数据对比错误： Range(Cells(f, 1) & Cells(f, 6)).Select
EXCEL VBA 数据对比错误： Range(Cells(f, 1) & Cells(f, 6)).Select
日期：2011-10-22 14:12:56 人气：3
程序这么写慢死了，要循环多少次啊，你的意思是在两张表里找相同的部分，复制到一个表的空白处吧，这么写：
Sub 找相同()
Dim arr, x As Long, y As Long, d As Object, crr(), o As Long
Dim brr
o = 1
Set d = CreateObject("scripting.dictionary")
x = Sheets("公司现行基药").Cells(6500, 1).End(xlU