arrays - 使用 ARRAY 中的变量声明 Cells(row,col)

Question

是否可以使用数组中的变量来声明单元格位置？

这是我的旧代码，可以完美运行，但是如果我需要更多单元格怎么办？ (我把它缩短了)。此代码通过按下按钮将所选单元格的值设置为零。

Sub ResetButt01_Click()

Cells(12, 5).Value = 0
Cells(12, 13).Value = 0
Cells(12, 21).Value = 0
Cells(19, 4).Value = 0
Cells(19, 6).Value = 0
Cells(19, 12).Value = 0

End Sub

这是我尝试使用数组来做到这一点:

Sub ResetButt01_Click()

Dim myRow() As Variant
Dim myCol() As Variant

myRow = Array(12, 12, 12, 19, 19, 19)
myCol = Array(5, 13, 21, 4, 6, 12)

Cells(myRow, myCol).Value = 0

End Sub

但是这段代码不起作用。所以我尝试了这个:

Sub ResetButt01_Click()

Dim myRow() As Variant
Dim myCol() As Variant
Dim r As Integer
Dim c As Integer

myRow = Array(12, 12, 12, 19, 19, 19)
myCol = Array(5, 13, 21, 4, 6, 12)

r = myRow
c = myCol

Cells(r, c).Value = 0

End Sub

但是还是不行。您知道如何将值放入数组并使用这些值作为变量来定义单元格的位置吗？

Answer 1

您可以创建一个包含单元格地址的逗号分隔字符串:

Const myCells As String = "A1, B2, C3, D4, E5, F6"
Range(myCells).Value = 0

您还可以创建命名范围myCells2并简单地调用:

Range("myCells2").Value = 0