Dim a表示範圍，p表示範圍，i%，j表示雙精度，r表示雙精度，ci()表示變量
將sh顯示為工作表
申請。ScreenUpdating = False
對於ActiveWorkbook中的每個sh。工作表
先令使活動
r =範圍(“e65535”)。結束(3)。第8行
範圍(" P9:W " & amp；r + 8)。清楚的
將ci(1到r，1到8)重新定義為變量
對於i = 1到8
對於j = 1到r
如果單元格(1，15 + i) =單元格(8 + j，4 + i)，則ci(j，i) =單元格(1，15 + i)
下壹個j
接下來我
範圍(" P9:W " & amp；r + 8) = ci
下壹個
紙張(“斷裂”)。使活動
申請。屏幕更新=真
末端接頭
******************
如果直接賦值需要壹點時間，我測試數組需要57毫秒，直接賦值需要93毫秒。