[已解决]求助为什么在Sheet2表中用命令提取Sheet1的唯一名称会出错，在Sheet1表中用命令提...

qinhuan66

求助为什么在Sheet2表中用命令提取Sheet1的唯一名称会出错，在Sheet1表中用命令提取到Sheet2表中却正常。谢谢
提取相同的名称唯一值.rar (13.47 KB, 下载次数: 3)

2013-7-30 19:30 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-7-30 19:40

1. Private Sub CommandButton1_Click()
   
2. Dim d As Object
   
3. Dim i As Long
   
4. Dim s
   
5. Set d = CreateObject("scripting.dictionary")
   
6. For i = 3 To Sheets("sheet1").Range("C2003").End(xlUp).Row
   
7.     d(Sheets("sheet1").Cells(i, 3).Value) = ""
   
8. Next
   
9. Sheets("Sheet2").Range("B2:B14").ClearContents '先删除K列3至2000的单元格数据
   
10. s = Sheet1.Cells(Rows.Count, 3).End(3).Row '没此句时没值时出错
    
11.     If s > 2 Then '没此句时没值时出错
    
12. Sheets("Sheet2").[b2].Resize(d.Count) = Application.Transpose(d.Keys)
    
13. End If '没此句时没值时
    
14. End Sub
    
15. 
    
16. End Sub
    

复制代码

跳转到最佳答案楼层

我心飞翔410

1. Private Sub CommandButton1_Click()
   
2. Dim d As Object
   
3. Dim i As Long
   
4. Dim s
   
5. Set d = CreateObject("scripting.dictionary")
   
6. For i = 3 To Sheets("sheet1").Range("C2003").End(xlUp).Row
   
7.     d(Sheets("sheet1").Cells(i, 3).Value) = ""
   
8. Next
   
9. Sheets("Sheet2").Range("B2:B14").ClearContents '先删除K列3至2000的单元格数据
   
10. s = Sheet1.Cells(Rows.Count, 3).End(3).Row '没此句时没值时出错
    
11.     If s > 2 Then '没此句时没值时出错
    
12. Sheets("Sheet2").[b2].Resize(d.Count) = Application.Transpose(d.Keys)
    
13. End If '没此句时没值时
    
14. End Sub
    
15. 
    
16. End Sub
    

复制代码

qinhuan66

我心飞翔410 发表于 2013-7-30 19:40

你好经测试没反应

我心飞翔410

qinhuan66 发表于 2013-7-30 19:45
你好经测试没反应

有反应了 你在看看