andrewkard1980
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Dem Не тестировал, +надо иметь шаблон Excel с названифми в первой строчке, попробуйте разобратся в коде и доработать под себя: Код: Sub TxtToExcel() Dim aData() Dim i%: i = 0 Dim l% Dim lRw%: lRw = 0 Dim sNmFld$ oTxt = Application.GetOpenFilename("TXT Files(*.txt),*.txt", , , , True) Open oTxt(1) For Input As #1 Do Until EOF(1) Line Input #1, txt ReDim Preserve aData(i) aData(i) = txt i = i + 1 Loop Close #1 For i = 0 To UBound(aData) If InStr(1, aData(i), "Секция") > 0 Then lRw = lRw + 1 For l = 1 To 38 sNmFld = Cells(1, l).Value If InStr(1, aData(i), sNmFld) > 0 Then Cells(lRw, l) = Mid(aData(i), InStr(1, aData(i), "=")) Next l Next i End Sub | Добавлено: Fsp050 Цитата: отображились эти названия | Добавьте в коде в конце перед End With .Cells(iLRw + 3, 1).Value = "Сумма рангов для группы 1 " .Cells(iLRw + 4, 1).Value = .Cells(iLRw + 5, 1).Value= .Cells(iLRw + 6, 1).Value= и тд. Я не вижу математической разницы при суммировании рангов просто и с использованием усредненного значения. Нам же нужна только сумма? Т.е. http://rghost.ru/58652842 | Всего записей: 209 | Зарегистр. 01-05-2010 | Отправлено: 12:05 22-10-2014 | Исправлено: andrewkard1980, 12:22 22-10-2014 |
|