excel - 声明要在循环中使用的数组

Question

我正在尝试搜索某个类别的列，然后在满足条件时将该类别更改为不同的名称(如果它是我需要更改的类别)。我知道如何使用单个变量逐行遍历列，但是，当我尝试将行和列的组合声明为数组(以加快循环)时，我被挂断了。我是 VBA 新手，过去没有使用过数组。以下是我到目前为止的代码。

Dim myArray(1 To 1000, 3 To 3)
Dim i As Integer

For i = 1 To 1000
 myArray(i, 3) = Worksheets("Sheet1").Cells(i, 3)

 Next i

If myArray(i) = "Category1" Then
myArray(i) = "DifferentCategory"

Answer 1

您的阵列使用情况不一致。如果您所做的只是更改名称，则无需使用多维数组:

假设您的代码是您所拥有的，那么以下应该可以工作:

Dim myArray(1 To 1000)
Dim i As Integer

For i = 1 To 1000
 myArray(i) = Worksheets("Sheet1").Cells(i, 3)

 Next i

If myArray(i) = "Category1" Then
myArray(i) = "DifferentCategory"