Помогите с Excel VBScript - заполните колонки данными

Question

У меня есть электронная таблица с адресами электронной почты (столбец A). Мне нужно написать функцию макроса / VBScript, чтобы заполнить столбцы B-L числами от 1 до 11 соответственно, т.е.

some.user@address.com 1 2 3 4 5 6 7 8 9 10 11

Может ли кто-нибудь помочь мне достичь этого, пожалуйста?

ТИА.

Answer 1

Это должно делать то, что вы просите. Это добавит числа 1-11 к любой строке, содержащей данные в первой ячейке.

Sub AddNumbers()
LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
    For Each cell In Range(Cells(1, 1), Cells(LastRow, 1))
        If cell.Text <> "" Then
            For i = 2 To 12
                Cells(cell.Row, i).Select
                ActiveCell.Value = (i - 1)
            Next
        End If
    Next
End Sub

Answer 2

У меня нет Excel, поэтому я не уверен, что это работает правильно:

for i = 0 to rowCount
 Range("A" + i).select
 for j = 1 to 11
  Cells(i,j).Select ' I'm not sure if this line works
  ActiveCell.FormulaR1C1 = i
 next j
next i

Надеюсь, это сработает.