VBA 拆分Excel为多个文件

拆分之前数据：

按照B列类型拆分为多个文件，相同前缀的放到同一个Excel中，并且按照类型不同分成多个页存放。

拆分后文件：

VBA代码：

Sub SplitSheetDataBaseOnCloum()
    Dim objWorksheet As Excel.Worksheet
    Dim nLastRow, nRow, nNextRow As Integer
    Dim strColumnValue As String
    Dim objDictionary As Object
    Dim objFileName As Object
    Dim varCloumFiles As Variant
    Dim varCloumFileName As Variant
    Dim varColumnValues As Variant
    Dim varColumnValue As Variant
    Dim objExcelWorkbook As Excel.Workbook
    Dim sht As Worksheet
    Dim objSheet As Excel.Worksheet
    Dim stCount As Long
    Dim wrk As Workbook 'Workbook object
    Dim FileName As String
    Dim Path As String
    Dim resFile As String
    Dim tbl As ListObject
    Dim rng As Range
    
    'Get file name
    FileName = ThisWorkbook.Worksheets("Sheet1").Range("C3").Value
    Path = ThisWorkbook.Path & "\" & FileName & ".xlsx"  'File Location
    Dt = ThisWorkbook.Worksheets(&