將cJG標註為範圍
Dim c1為範圍、c2為範圍、rng1為範圍、rngZY為範圍、rngZ為範圍、rngY為範圍
昏暗的i & amp，r & amp，r 1 & amp；、rZ & amp，rF & amp、rFf & amp美國國稅局。、pN、pNs & amp
Dim Arr1、d1、d2、rs、tmp、tmp2
暗淡的時光
iTimer =計時器
申請。StatusBar =“正在獲取數據，請稍候。。。“
申請。ScreenUpdating = False
帶表單5
Arr1 =。單元格（1，1）。調整大小（。範圍（“A65536”）。結束（xlUp）。行+ 1）。細胞
ReDim arr 2（LBound（arr 1，1）至UBound（arr 1，1））
set d 1 = CreateObject（“Scripting。詞典》）
Set d2 = CreateObject（“腳本。詞典》）
r = LBound（arr 1，1）+1
tmp = Left（arr 1（r，1），18）
d 1（r）= tmp
tmp2 = tmp
D2（r）= Right（arr 1（r，1），3）
對於i = r + 1至UBound（arr 1，1）
tmp =左（arr 1（I，1），18）
如果MsgBox（d 1。計數和計數。vbCrLf & amp；tmp & ampvbCrLf & amp；tmp2，vbOKCancel）& lt；& gtvbOK然後轉到1000
如果tmp & lt& gttmp2那麽d 1（I）= tmp:tmp 2 = tmp
D2（I）= Right（arr 1（I，1），3）
然後
以…結尾
申請。ScreenUpdating = True
申請。StatusBar =“正在調整格式，請稍候。。。“
申請。ScreenUpdating = False
帶表6
。UsedRange.EntireRow.Delete
。重置頁面中斷
。Rows.RowHeight = 24
。range（“a 1，C1，D1，f 1“）entire column . column width = 3.13
。range（“b 1，e 1“）entire column . column width = 32。
設置cJG =。單元格（2，1）
以…結尾
IrS = 25單列行數
帶工作表2
……
代碼很長，嗨，我把文件發給妳。