Sub 分解()Dim H As Long, H1 As Long, M As String, K As Integer, BM As WorkbookDim PAT As StringApplication.ScreenUpdating = FalsePAT = ThisWorkbook.Path & "\"With Sheet2
Rows("1:1").Select
Selection.Delete Shift:=xlUp
'第一行没用
H = .Range("a65536").End(xlUp).Row
For H1 = 1 To H
'此处有问题，H的值并...
Sub 分解1() Dim H As Long, H1 As Long, M As String, K As Integer, BM As Workbook Dim PAT As String Application.ScreenUpdating = False PAT = ThisWorkbook.Path & "\" ...
Sub part()Dim H As Long, M As String, K As Long, Mk As StringDim PAT As StringApplication.ScreenUpdating = FalsePAT = ThisWorkbook.Path & "\"M = ThisWorkbook.NameK = 1...
