在 Excel 中，根据表格用值（以及所需数组单元格的坐标）填充数组。所有数组单元格都已填充（默认为零）

Question

我对 Excel 相当熟悉，但对 VBA 却几乎一窍不通。我有一张三列表。A 列和 B 列包含数组的坐标，C 列包含按坐标定义的值。数组中并非所有单元格都列出，空单元格默认为“零”。需要用值填充数组。看似简单，但我却不知所措！

Answer 1

如果您不想处理数组，您可以做这样的事情（假设表从 E5 开始）

Sub test()
Dim x As Integer
Dim y As Integer
Dim item As String

For Each c In Range("A1:A3")
    x = c.Value
    y = c.Offset(, 1).Value
    item = c.Offset(, 2).Value
    Cells(4 + x, 4 + y) = item
Next

End Sub

要找到空单元格并输入零，您可以执行以下操作：

Dim d As Range
For Each d In Range("E5:G7")
    If IsEmpty(d) Then
    d = 0
    End If
Next