Question

我需要分析4个值。但是，每次运行代码时，这4个值都会更改。我需要运行代码100次并将4个值粘贴到不同的单元格中。这是我到目前为止所提出的：

Sub min()
Dim i As Integer

For i = 1 To 5
    Cells(i, 14).Value = Array(Cells(5, 12).Value, Cells(6, 12).Value, Cells(5, 13).Value, Cells(6, 13).Value)

Next i
End Sub

每当我改变时，我会得到4个不同的值。

Answer 1

您需要调整范围大小以匹配数组的大小。无需转置阵列，它已经处于正确的形状。

Sub min()
    Dim i As Integer

    For i = 1 To 100
        Cells(i, 14).Resize(1, 4).Value = Array(Cells(5, 12).Value, Cells(6, 12).Value, Cells(5, 13).Value, Cells(6, 13).Value)

    Next i
End Sub

在VBA中取出多个值

1 个答案: