qwerty550
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Что делает этот код может кто нить объяснить хоть приблезительно. Макрос рабочий на 110%, с 5 % погрешностью. Мне надо правильно расставить данные,судя по коду их надо в Лист1 или Лист2. Где должны быть входные,а где выходные я не понел и вот в этом вопросе нужен ваш совет нужен ваш профессиональный совет. Заранее благодарен.
Код: Sub Макрос1()
i = 3
Range("H3").Select
STAR = 1
NOV = 1
While i <= 65000
While (STAR = NOV)
NOV = Cells(i, "H").Value
If Len(NOV) = 0 Then
NOV = STAR
End If
Cells(i, "H").Value = STAR
i = i + 1
Wend
STAR = NOV
Wend
Range("H6").Select
End Sub |
Код:
Sub Макрос2()
Sheets("Лист1").Select
Login = Sheets("Лист1").Cells(1, "A").Value
DAT = Sheets("Лист1").Cells(1, "H").Value + 1
NARAB = Sheets("Лист1").Cells(1, "L").Value
j = 1
While (Len(Login) <> 0)
nextlog = Sheets("Лист2").Cells(1, "A").Value
Naiden = False
i = 1
While ((Len(nextlog) <> 0) And Not (Naiden)) 'цикл поиска логина
If Login = nextlog Then
Naiden = True
Nstr = i
End If
i = i + 1
nextlog = Sheets("Лист2").Cells(i, "A").Value
Wend
If Naiden Then
Sheets("Лист2").Cells(Nstr, DAT).Value = NARAB
Else
Sheets("Лист2").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Sheets("Лист2").Cells(1, "A").Value = Login
Sheets("Лист2").Cells(1, DAT).Value = NARAB
End If
j = j + 1
Login = Sheets("Лист1").Cells(j, "A").Value
DAT = Sheets("Лист1").Cells(j, "H").Value + 1
NARAB = Sheets("Лист1").Cells(j, "L").Value
Wend
End Sub |
Код:
Sub Макрос4()
Sheets("Лист2").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
End Sub |
формат данных такой(выкладываю с разделителями запитая. Как запостить в виде таблицы не нашел)
User Name,SessionCount,Seconds Total,Seconds Per Day,Seconds Per Ses,BW In,BW Out
test11,1,2892,2892,2892,370460,3466413
test11,1,3016,3016,3016,819402,9851685
test11,1,3158,3158,3158,522585,4515796
test11,1,3274,3274,3274,764515,10749458
test11,1,3538,3538,3538,1444948,14319119
test11,1,6788,6788,6788,408879,3530582
test11,1,9054,9054,9054,1348720,10959192
test11,1,9649,9649,9649,1407333,16670563
test11,11,3376,3376,306,654713,7617797
test11,12,23411,11705,1950,3002993,30393163
test11,2,10619,5309,5309,1934071,19899231
test11,2,11193,11193,5596,1853819,18767993
test11,2,13236,13236,6618,3797666,38589977
test11,2,1349,1349,674,296901,2173438
test11,2,14912,14912,7456,1901470,18536710 |
