通過指定的數組循環？

Question

我想匹配特定行從一個表到另一個行的高度，這工作，如果我只是刪除所有行與rowlist和做對於我= 1至200，但這需要太長時間。我只想匹配幾行高度，並通過所有介於1和200我的代碼不走低於：

Dim y As Double 
Dim i As Long 
Dim rowlist() As Variant 

rowlist = Array(3, 5, 23, 30) 

For i = LBound(rowlist) To UBound(rowlist) 

y = Worksheets("Development").Rows(i).RowHeight 
Worksheets("Final").Rows(i).RowHeight = y 

Next i 

Answer 1

當你設置和使用y，使用.Rows(rowlist(i))而非.Rows(i)。

i簡單地存儲該索引數組，不是值的，即

• I = 0; rowlist（i）= 3
• i = 1; rowlist（i）= 5
• i = 2; rowlist（i）= 23
• i = 3; rowlist（1）= 30

所以你在循環從LBound(rowlist)到UBound(rowlist)正確的，你只需要確保你使用存儲在該循環中的數組中的值。