Aide avec Excel VBScript - Remplir des colonnes avec des données - Excel, VBScript

J'ai un tableur avec des adresses e-mail (colonne A). Je dois écrire une fonction macro / VBScript pour remplir les colonnes B à L avec les chiffres 1 à 11, respectivement, c'est-à-dire.

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

Quelqu'un pourrait-il m'aider à réaliser ceci s'il vous plaît?

TIA.

Réponses:

Cela devrait faire ce que vous demandez. Cela ajoutera les numéros 1-11 à toute ligne contenant des données dans la première cellule.

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

Je ne possède pas d’excel, je ne suis donc pas sûr que cela fonctionne correctement:

pour i = 0 à rowCount Range ("A" + i) .sélectionner pour j = 1 à 11 Cellules (i, j) .Sélectionnez "Je" ne suis pas sûr que cette ligne fonctionne ActiveCell.FormulaR1C1 = i prochain j ensuite je

J'espère que ça marche.

Cherchez-vous un tutoriel. Ne pas copier / coller tout.

Quelque chose comme ça: http://www.excel-vba.com/index.htm