Я пытаюсь создать таблицу, в которой можно хранить данные «Информация об обучении».Приведенный ниже код работает (см. Пример результата ниже), однако он может добавлять только одну информацию за раз.
Что я хотел бы получитьдолжен иметь возможность добавить несколько данных только в мой столбец «Участники», в то время как другие столбцы будут содержать те же данные, поскольку это одно и то же обучение.
Есть идеи?
Dim ws As Worksheet
Dim lo As ListObject
Dim lr As ListRow
Set ws = Sheets("Trainings")
ws.Unprotect "321321"
Set lo = ws.ListObjects(1)
Set lr = lo.ListRows.Add
lr.Range(1, 1).Value = UCase(title.Value)
lr.Range(1, 2).Value = UCase(Date.Value)
lr.Range(1, 3).Value = UCase(Venue.Value)
lr.Range(1, 4).Value = UCase(VenueAdd.Value)
lr.Range(1, 5).Value = UCase(Attendees.Value)