Sub？按鈕1_Click()
申請。屏幕更新？=?錯誤的
設置？d？=?CreateObject(" scripting . dictionary ")
設置？噓？=?床單(2)
張(1)。範圍(“C2:C65536”)。清除內容
arr？=?張(1)。使用範圍
為了什麽？j？=?2?去哪？欠奉
如果？Len(arr(j，1))?& gt？0?然後
如果？存在(Left(arr(j，1),?1))?然後
張(1)。單元格(d(左(arr(j，1),?1)),?3)?=?張(1)。單元格(d(左(arr(j，1),?1)),?3)?& amp？“/第壹”？& amp？j？& amp？“有，有。”
其他
設置？Rng？=?先令列(“壹個:D”)。Find(Left(arr(j，1),?1),?lookat:=xlPart)
如果？Rng？是嗎？什麽都沒有？然後
其他
張(1)。細胞(j，2)?=?先令細胞(Rng。劃，？“丙”)‘這句話
張(1)。細胞(j，3)?=?先令細胞(Rng。劃，？“D”)
d(Left(arr(j，1),?1))?=?j
結束？如果
結束？如果
結束？如果
下壹個？j
申請。屏幕更新？=?真實的
結束？潛水艇