PKKO

將您的程式碼轉換為陣列
速度就會直接大幅度提升
建立陣列的方式有很多種
下列建立陣列方式需要注意:.每一筆資料都要連續

由陣列的值放入EXCEL的方式也不同
下列方式是最簡單也是最慢的,但您的資料量如果放入值只有在一千個之內
應該還感受不到一秒的差異

1. Sub test()
   
2.     Z = Sheet1.[A65536].End(xlUp).Row
   
3.     Rng = Sheet1.[a1].CurrentRegion
   
4.     rng2 = Sheet2.[a1].CurrentRegion
   
5.    
   
6.     For ZZ = 2 To Z
   
7.         For X = 1 To 48
   
8.             For Y = 1 To 1000
   
9.                 If Rng(ZZ, 1) = rng2(Y, X) Then
   
10.                     Sheet1.Cells(ZZ, 4) = Rng(1, X)
    
11.                 End If
    
12.             Next
    
13.         Next
    
14.     Next
    
15. End Sub

複製代碼