Я неплохо справляюсь с Excel, но почти новичок в VBA. У меня есть таблица из трех столбцов. Столбцы A и B имеют координаты для массива, а столбец C имеет значение, которое должно быть размещено, как определено координатами. Не все ячейки массива перечислены, с пустыми ячейками по умолчанию «ноль». Нужно заполнить массив значениями. Кажется простым, но я потерялся!
1 ответ
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