Public Sub 多个区域拆分到多表() AppSettings On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer 'Input code here Dim Wb As Workbook Dim sht As Worksheet Dim OneSht As Worksheet Const ROW_COUNT As Long = 16 Const COLUMN_COUNT As L…