另外，大量循環應該考慮將表格讀入數組，用數組參與循環，提高速度。
比如使用語句：A1=Worksheets("樣本1").usedrange
則生成A1數組，A1(i,1)就相當於cells(i,1)
另外可以學習VBA的字典法，進壹步提高匹配速度