1

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

1 ответ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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .