Pomoc s programom Excel VBScript - vyplňte stĺpce s údajmi - excel, vbscript

Mám tabuľku s e-mailovými adresami (stĺpec A) Musím napísať funkciu makro / VBScript na vyplnenie stĺpcov B až L s číslami 1 až 11, t.j.

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

Mohol by mi niekto pomôcť, aby ste to dosiahli?

TIA.

odpovede:

To by malo robiť to, čo žiadate. Tým sa pridajú čísla 1-11 do akéhokoľvek riadku, ktorý obsahuje údaje v prvej bunke.

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

Nemám vlastný Excel, takže som si istý, či to funguje správne:

pre i = 0 až rowCount Rozsah ("A" + i) .vyberte pre j = 1 až 11 Bunky (i, j) .Vyberte možnosť "I", ak tento riadok nefunguje ActiveCell.FormulaR1C1 = i nasledujúci j ďalej i

Dúfam, že to funguje.

Vyhľadajte si tutoriál. Neskopírujte a prilepte všetko.

Niečo také: http://www.excel-vba.com/index.htm