子更新SBC()
Dim a為整數，b為整數，c為整數，d為整數
對於b = 2至200
如果床單(2)。細胞(2，b - 1)。價值& lt& gt”“還有床單②。單元格(2，b + 1)。值= " "那麽
d = d + 4
單元格(2，d + 2) =工作表(2)。細胞(2，b)
單元格(3，d + 2) =工作表(2)。細胞(3，b)
單元格(4，d + 2) =工作表(2)。細胞(4，b)
單元格(5，d + 2) =工作表(2)。單元格(5，b)
如果…就會結束
然後
末端接頭