有2个不错的代码分享大家①提取 ②删除重复行，并求帮助

lk2lklk

有2个不错的代码分享大家：①提取其他Excel表格到sheet1中 ②删除重复行

我根据自己需求做了改进，但也碰到点问题：
问题1：需要用("A2:Q1000") 解决范围选取。提取后，空白行为0，删除重复行时，极费时间。哪位大神帮忙改进循环判断语句，自动判断提取有用数据。
问题2：提取的第2行，格式发生变化，不知什么原因。


问题3：删除重复行的代码，在数据多时，运行速度很慢，很费时间，哪位大神帮忙优化一下。

感谢大家，互相帮助

lk2lklk

追加问题：因为提取的文件数据不同，所以不能用调整单元格数据范围，怕漏掉数据只能（With Sheet1.Range("A2:Q1000")

lk2lklk

1. Sub 提取()     '提取其他工作表数据
   
2.     Dim Temp As String
   
3.     Temp = "'" & ThisWorkbook.Path & "\[abc.xls]Sheet1'!"
   
4.     With Sheet1.Range("A2:Q1000") '取abc.xls工作簿Sheet1工作表("A1:C1")单元格数据，A1--C1为范围（根据需要更改）
   
5.         .FormulaR1C1 = "=" & Temp & "RC"
   
6.         .Range("A2:R2") = .Value ' 数据放到本工作簿Sheet1("A2:C2") 中，A1--C1为范围（根据需要更改）
   
7.     End With
   
8. End Sub
   
9. 
   
10. '问题：需要用“Q10000”解决范围选取。要改进循环判断语句，否则提取后为0，删除重复行时，很费时间
    
11. '问题：提取的第2行，改变了格式
    

复制代码

1. Sub 删除重复行()
   
2.     Dim m%, k%
   
3.     For m = Range("a65536").End(xlUp).Row To 2 Step -1
   
4.         For k = m - 1 To 2 Step -1
   
5.              If Cells(m, "b") = Cells(k, "b") And _
   
6.                 Cells(m, "c") = Cells(k, "c") And _
   
7.                 Cells(m, "d") = Cells(k, "d") And _
   
8.                 Cells(m, "e") = Cells(k, "e") And _
   
9.                 Cells(m, "f") = Cells(k, "f") And _
   
10.                 Cells(m, "g") = Cells(k, "g") And _
    
11.                 Cells(m, "h") = Cells(k, "h") And _
    
12.                 Cells(m, "j") = Cells(k, "j") And _
    
13.                 Cells(m, "k") = Cells(k, "k") And _
    
14.                 Cells(m, "l") = Cells(k, "l") And _
    
15.                 Cells(m, "m") = Cells(k, "m") And _
    
16.                 Cells(m, "n") = Cells(k, "n") And _
    
17.                 Cells(m, "o") = Cells(k, "o") Then
    
18.                 Cells(m, "a").EntireRow.Delete Shift:=xlUp '上面语法表示--对比列(b列--o列）
    
19.             End If
    
20.         Next
    
21.     Next
    
22. End Sub
    
23. 
    
24. '问题：数据多时，运行速度很慢，很费时间，求优化

复制代码

jjmysjg

.留下记号，谢谢

abc123281

既然是单元格整行删除  数据多了当然是慢了