Friday, October 14, 2005

Обработка экспериментальных данных

Почти восемь вечера, а я сижу на работе и мучаюсь с данным которые насаобирал пол-года назад. Надо ведь все корректно обработать. эХъ...
Порадовался что вспомнил дремучий VB для офиса :) даже написал код что-бы руками не обрабатывать :)
Sub Pretreatmant()


'
' Pretreatmant Macros
' Macros çàïèñàí 14.10.2005 (Bashir Magomedov aka $Hic0)
'

N = 1155

Columns("A:B").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
k = 1
i = 1
j = 1
Equal = True

Do While k <= N
Sum = 0
Do While Equal = True
If Cells(k, 1).Value <> Cells(k + 1, 1) Then Equal = False
Sum = Sum + Cells(k, 2).Value
k = k + 1
Loop
Cells(j, 3).Value = Cells(k - 1, 1).Value
Cells(j, 4).Value = Sum
j = j + 1
Equal = True
Loop
End Sub

No comments: