VB.NET excel替换重复行

a33030626

VBA中
ActiveSheet.Range("b2:m" & ActiveSheet.usedrange.rows.count).RemoveDuplicates(Columns:=

array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13)

, Header:=xlYes)

搬到VB.NET后
        th.ActiveSheet.Range("b2:m" & th.ActiveSheet.usedrange.rows.count).RemoveDuplicates(Columns:={2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13}, Header:=Excel.XlYesNoGuess.xlYes)
也不报错，就是不运行这行代码~~~发现是   

{2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13}   这部分有问题，应该怎么改，求大神帮助

还有这句，光搬VBA把报错的改掉不行
                     IF th.Sheets(sh).Sheets("价格表").Range("b:b").Find(th.Sheets(sh).Cells(x, 3),
                            LookIn:=Excel.XlFindLookIn.xlValues, searchDirection:=Excel.XlSearchDirection.xlPrevious, LookAt:=Excel.XlLookAt.xlWhole) Is Nothing Then
                  

lipton

和VBA操作差不多。建议代码不要串起来写，容易出错，也不利于后续的操作增加，而且也不见得会提升效率。
比如

1. Sub test1()
   
2.     Dim sh As Worksheet
   
3.     Dim rng As Range
   
4.    
   
5.     Set sh = Sheets("sheet1")
   
6.     Set rng = sh.Cells(1, 1)
   
7.     rng.Value = "test"
   
8.    
   
9. End Sub
   
10. 
    
11. Sub test2()
    
12.     Dim sh As Worksheet
    
13.    
    
14.     ThisWorkbook.Sheets(1).Range("a" & 1) = "test"
    
15.    
    
16. End Sub

复制代码

第二个方法看是一行代码，其实效率不会比第一个方法高，容易出错，且不灵活，优化的代码不是以代码的多少来决定的。

VB。NET的代码，测试环境是文档型，其它环境原理一样的

1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
   
2. 
   
3. 
   
4.         '打开工作簿Interop.Excel对象
   
5.         Dim excelbook As Microsoft.Office.Interop.Excel.Workbook = Me.Application.Workbooks.Open("newtest.xlsx")
   
6. 
   
7.         '宣告工作表变量，引用目标工作表
   
8.         Dim newsheet As Microsoft.Office.Interop.Excel.Worksheet = excelbook.Worksheets("sheet1")
   
9. 
   
10.         'RemoveDuplicates方法是Range对象的方法()
    
11.         '引用操作最小的Range对象集合()
    
12.         Dim rng As Microsoft.Office.Interop.Excel.Range = newsheet.Range("a:e")
    
13. 
    
14.         '列参数Object对象()
    
15.         Dim arr() As Object = {1, 2, 3, 4, 5}
    
16. 
    
17.         '===========================
    
18.         rng.RemoveDuplicates(Columns:=arr, Header:=Excel.XlYesNoGuess.xlNo)
    
19.         '===========================
    
20.         excelbook.Close(True)
    
21.         '释放内存
    
22.         rng = Nothing
    
23.         newsheet = Nothing
    
24.         excelbook = Nothing
    
25.         Erase arr
    
26. 
    
27.     End Sub
    
28. End Class

复制代码

a33030626

初学者，串起来写确实容易出现问题，也不知道还要释放内存，谢谢指正，最后谢谢解答问题，

a33030626

lipton 发表于 2018-6-12 14:07
和VBA操作差不多。建议代码不要串起来写，容易出错，也不利于后续的操作增加，而且也不见得会提升效率。
...

Dim arr() As Object = {1, 2, 3, 4, 11, 12}
th.ActiveSheet.Range("b1:m" & th.ActiveSheet.UsedRange.Rows.Count).RemoveDuplicates(Columns:=arr, Header:=Excel.XlYesNoGuess.xlNo)

按你的意思应该是这个样子,可还是不行啊,相同的行还是没删掉

lipton

传个待处理的文件看看，说一下删除后的结果

a33030626

lipton 发表于 2018-6-12 19:35
传个待处理的文件看看，说一下删除后的结果

情况和结果都附件里了,麻烦看看

lipton

你的附件工作簿1.xlsxk可能损坏，我把lszb复制到新工作簿就可以运行

运行前：

1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
   
2. 
   
3. 
   
4.         '打开工作簿Interop.Excel对象
   
5.         Dim excelbook As Microsoft.Office.Interop.Excel.Workbook = Me.Application.Workbooks.Open("工作簿11.xlsx")
   
6. 
   
7.         '宣告工作表变量，引用目标工作表
   
8.         Dim newsheet As Microsoft.Office.Interop.Excel.Worksheet = excelbook.Worksheets("lszb")
   
9. 
   
10.         'RemoveDuplicates方法是Range对象的方法()
    
11.         '引用操作最小的Range对象集合()
    
12.         Dim rng As Microsoft.Office.Interop.Excel.Range = newsheet.Range("a:n")
    
13. 
    
14.         '列参数Object对象()
    
15.         Dim arr() As Object = {1, 2, 3, 4, 5, 12, 13, 14}
    
16. 
    
17.         '===========================
    
18.         rng.RemoveDuplicates(Columns:=arr, Header:=Excel.XlYesNoGuess.xlNo)
    
19.         '===========================
    
20.         excelbook.Close(True)
    
21.         '释放内存
    
22.         rng = Nothing
    
23.         newsheet = Nothing
    
24.         excelbook = Nothing
    
25.         Erase arr
    
26. 
    
27.     End Sub

复制代码

a33030626

lipton 发表于 2018-6-12 21:37
你的附件工作簿1.xlsxk可能损坏，我把lszb复制到新工作簿就可以运行

运行前：

       Dim APP As Excel.Application = Globals.ThisAddIn.Application
很奇怪的一件事情  Dim newsheet As Excel.Worksheet = APP.Worksheets("lszb")
  非要这样声明以后才能正常运行，
直接用activesheet 不行
甚至直接用APP.Worksheets("lszb")也不行
是不是我哪里声明错了~~~

lipton

a33030626 发表于 2018-6-15 17:38
Dim APP As Excel.Application = Globals.ThisAddIn.Application
很奇怪的一件事情  Dim newsheet ...

activesheet指向的是宿主控件,Dim newsheet As Excel.Worksheet = APP.Worksheets("lszb")指向本地的office对象处在不同的，命名空间，

a33030626

lipton 发表于 2018-6-15 18:58
activesheet指向的是宿主控件,Dim newsheet As Excel.Worksheet = APP.Worksheets("lszb")指向本地的offi ...

过程中需要新建工作簿,Dim APP As Excel.Application = Globals.ThisAddIn.Application
DIM TH AS EXCEL.WORKBOOK =  APP.THISWORKBOOK     (报错)
DIM TH AS EXCEL.WORKBOOK = APP.ACTIVEWORKBOOK  这样不会报错,但是处理不了.RemoveDuplicates 语句,应该怎么声明获取这个工作簿的句柄
比如   新建我是用DIM NEWWORKBOOK AS EXCEL.WORKBOOK = APP.Workbooks(APP.Workbooks.Count)  来获取新工作簿的句柄 (没试过.RemoveDuplicates语句的运行情况)