Вопрос : создавать макрос Эксел для того чтобы манипулировать usnig VB даты

Специалисты,

I имеют электронная таблица первенствовать с следующий данными: бежится

потребность b C
1 Smith Джон 5
2 Campbell Сара 4
3 Reese Джим 4
4 Soza Haley 3

I макрос к manipluate данные к следующий после макроса:

b C
1 Smith, Джон, jsmith, гостеприимсво, 5,6
2 Campbell, Сара, scampbell, welcome, 4,5
3 Reese, Джим, jreese, радушное, 4, 5
4 Soza, Haley, hsoza, гостеприимсво, 3, формат файла ввоза 4

The для студентов является следующим:
LastName, FirstName, Username, Password, ранг, GroupID с каждым студентом на отдельно line.
Following составлять карту для групп уровня ранга. Мне нужно если заявление ввести соотвествующее удостоверение личности группы основанное на уровне ранга. Например, над Haley находит в 3-ей ранге и следовательно принадлежит к 4-ой группе. Macro нужно заменить детали в клетке a, b, c с линией размежеванной запятым в колонке a только. Я реально хотел был бы увидеть как это завершено поэтому я могу попытаться дальше другие по-разному изменения. Вид спешкы на этом Кодем так предлагая pts 500. grade
Group 7 grade
Group 5 grade
Group 3
Group одного - Kindergarten
Group 2 - 1-ое - 2-ое grade
Group 4 - 3-ее - 4-ое grade
Group 6 - 5-ое - 6-ое grade

Thanks!

Shogun5 class=

Ответ : создавать макрос Эксел для того чтобы манипулировать usnig VB даты

Малое изменение для правильно username.

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

Sub Reorganizedata () Тусклое mArray как вариант Тусклое wArray как вариант Тусклая госпожа как рабочий лист Тусклое lRow как длиной Установите госпожу = ThisWorkbook.Worksheets («Sheet1») lRow = mS.UsedRange.SpecialCells (xlCellTypeLastCell). Рядок mArray = mS.Range («A1: C» & lRow) wArray = mS.Range («D1: D» & lRow) Для I = 1 к lRow Если mArray, то (I, 3) = «детсад» после этого wArray (I, 1) = mArray (I, 1) & «,» & mArray (I, 2) & «,» & ое LCase ((mArray (I, 2), 1)) & LCase (mArray (I, 1)) & «,» & «гостеприимсво» &», «& mArray (I, 3) &», «& 1 Еще wArray (I, 1) = mArray (I, 1) & «,» & mArray (I, 2) & «,» & ое LCase ((mArray (I, 2), 1)) & LCase (mArray (I, 1)) & «,» & «гостеприимсво» &», «& mArray (I, 3) &», «& mArray (I, 3) + 1 Закончитесь если Затем iий mS.Range («A1: C» & lRow) .ClearContents mS.Range («A1: » & lRow) = wArray Подводная лодка конца