Question : création du macro d'Excel pour manoeuvrer l'usnig VB de date

Les experts, le

I ont un bilan d'exceler avec les données suivantes : le

un besoin de B C
1 Smith John 5
2 Campbell Sara 4
3 Reese Jim 4
4 Soza Haley 3

I un macro au manipluate les données au suivant après le macro est couru : le

un B C
1 Smith, John, jsmith, bienvenue, le 5,6
2 Campbell, Sara, scampbell, le welcome, 4,5
3 Reese, Jim, jreese, bienvenu, 4, 5
4 Soza, Haley, hsoza, la bienvenue, 3, format de fichier d'importation de 4

The pour des étudiants est : le
LastName, FirstName, Username, Password, la catégorie, GroupID avec chaque étudiant sur un line.
Following est la cartographie pour les groupes de niveau de catégorie. Je dois si rapport insérer l'identification du groupe appropriée basée sur le niveau de catégorie. Par exemple, au-dessus de Haley est dans la 3ème catégorie et par conséquent appartiendra au 4ème groupe. Le macro doit remplacer des articles en cellule A, B, C avec la ligne délimitée par virgule dans la colonne A seulement. Je voudrais vraiment voir comment ceci est accompli ainsi je peux essayer d'autres différentes variations. Genre de précipitation sur ce code offrant ainsi le spécialiste 500. ęr grade
Group 7 du grade
Group 5 du grade
Group 3 du
Group un - Kindergarten
Group 2 - - 2ème grade
Group 4 - 3ème - 4ème grade
Group 6 - 5ème - 6ème grade

Thanks !

Shogun5 class= de

Réponse : création du macro d'Excel pour manoeuvrer l'usnig VB de date

Petite modification pour l'username correct.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 :

Reorganizedata secondaire () Faible mArray comme variante Faible wArray comme variante Faible Mme comme feuille de travail Faible lRow en tant que longtemps Placer Mme = ThisWorkbook.Worksheets (« Sheet1 ») lRow = mS.UsedRange.SpecialCells (xlCellTypeLastCell). Rangée mArray = mS.Range (« A1 : C » et lRow) wArray = mS.Range (« D1 : D » et lRow) Pour I = 1 au lRow Si mArray (I, 3) = « jardin d'enfants » puis wArray (I, 1) = mArray (I, 1) et « , » et mArray (I, 2) et « , » et LCase (laissé (mArray (I, 2), 1)) et LCase (mArray (I, 1)) et « , » et « bienvenue » et », « et mArray (I, 3) et », « et 1 Autrement wArray (I, 1) = mArray (I, 1) et « , » et mArray (I, 2) et « , » et LCase (laissé (mArray (I, 2), 1)) et LCase (mArray (I, 1)) et « , » et « bienvenue » et », « et mArray (I, 3) et », « et mArray (I, 3) + 1 Finir si Après i mS.Range (« A1 : C » et lRow) .ClearContents mS.Range (« A1 :  » Et lRow) = wArray Sous-marin d'extrémité