通过指定的数组循环？

我试图匹配从一个表到另一个特定行的行高度，这个工程，如果我只是删除所有行与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只是存储数组的索引 ，而不是值，即

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

所以你从LBound(rowlist)循环到UBound(rowlist)是正确的，你只需要确保你正在使用循环中的数组中存储的值。