將cJG標註為範圍
Dim c1為範圍，c2為範圍，rng1為範圍，rngZY為範圍，rngZ為範圍，rngY為範圍
昏暗的i & amp，r & amp，r 1 & amp；、rZ & amp，rF & amprFf & amp美國國稅局。、pN、pNs & amp
Dim Arr1，d1，d2，rs，tmp，tmp2
昏暗的時光
iTimer =計時器
申請。StatusBar = "正在獲取數據，請稍候..."
申請。ScreenUpdating = False
帶表5
Arr1 =。單元格(1，1)。調整大小(。範圍(" A65536 ")。結束(xlUp)。行+ 1)。細胞
ReDim arr2(LBound(Arr1，1)至UBound(Arr1，1))
set d 1 = CreateObject(" Scripting。字典》)
Set d2 = CreateObject("腳本。字典》)
r = LBound(Arr1，1) + 1
tmp = Left(Arr1(r，1)，18)
d1(r) = tmp
tmp2 = tmp
d2(r) = Right(Arr1(r，1)，3)
對於i = r + 1至UBound(Arr1，1)
tmp = Left(Arr1(i，1)，18)
如果MsgBox(d1。計數& ampvbCrLf & amp；tmp & ampvbCrLf & amp；tmp2，vbOKCancel)& lt；& gtvbOK然後轉到1000
如果tmp & lt& gttmp2然後d1(i) = tmp: tmp2 = tmp
d2(i) = Right(Arr1(i，1)，3)
然後
以…結尾
申請。ScreenUpdating = True
申請。StatusBar = "正在調整格式，請稍候..."
申請。ScreenUpdating = False
帶表6
…………
以前回答過類似問題，Hi我，給妳QQ，詳細回答。