工作表拆分示例（vsto)

EH2003

工作表拆分示例（vsto)

1. Private Sub Button2_Click(sender As Object, e As RibbonControlEventArgs) Handles Button2.Click
   
2.         Globals.ThisAddIn.Application.ScreenUpdating = False
   
3.         Dim arr As Array = Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet.Range("A3:H" & Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet.Range("A65536").End(Excel.XlDirection.xlUp).Row).Value
   
4. 
   
5.             Dim DIC As New Dictionary(Of String, String)
   
6. 
   
7.             Dim arr_ct As Integer = UBound(arr)
   
8.             Dim arr_cvt As Integer = UBound(arr, 2)
   
9. 
   
10.             For I As Integer = 1 To arr_ct
    
11.                 If DIC.ContainsKey(arr(I, 3)) = False Then
    
12.                     DIC.Add(arr(I, 3), 0)
    
13.                 End If
    
14.             Next
    
15.             For Each key In DIC.Keys
    
16.                 Globals.ThisAddIn.Application.Worksheets.Add.name = key
    
17.                 Dim sht As Excel.Worksheet = Globals.ThisAddIn.Application.Worksheets(key)
    
18.                 For j As Integer = 1 To arr_ct
    
19.                     If arr(j, 3) = key Then
    
20.                         Dim RW As Integer = sht.Range("A65536").End(Excel.XlDirection.xlUp).Row
    
21.                         For k As Integer = 1 To arr_cvt
    
22.                             sht.Cells(RW + 1, k) = arr(j, k)
    
23.                         Next
    
24.                     End If
    
25.                 Next
    
26.             Next
    
27.         Globals.ThisAddIn.Application.ScreenUpdating = True
    
28.         MsgBox("表拆分完成!")
    
29.     End Sub

复制代码

工作表拆分for VSTO（源码).rar (734.44 KB, 下载次数: 127)

2020-8-2 09:31 上传

点击文件名下载附件

mohao

请教一下，拆分后没有标题行，请问怎么加上标题行啊？