Помогите составить код

[Wireless Carrier]

Необходимо написать макрос для Excel, т.к. я не программист и с VBA не знаком вообще, то прошу помощи у знающих людей.

Алгоритм такой:
for i:="Первая строка диапазона" to "Последняя строка с данными" do
begin
data:="Столбец дата i ой строки";
name:="Столбец имя i ой строки";
Time:= "Столбец время i ой строки";
j:=i+1;
while data="Столбец дата j ой строки" and name="Столбец имя j ой строки" and time="столбец время j ой строки" do
begin
столбец длительность i ой строки:= столбец длительность i ой строки + столбец длительность j строки;
end;


Вот собственно и все. Только как это сделать на VBA?

[alibek]

Код: Выделить всё

Dim I As Long, J As Long, vDate As String, vName As String, vTime As String, vLength As Long
For I = 1 To 10 'с 1-ой по 10-ую строку
  vDate = Cells(I, 1).Text ' 1-ый столбец
  vName = Cells(I, 2).Text ' 2-ой столбец
  vTime = Cells(I, 3).Text ' 3-ий столбец
  vLength = Cells(I, 4).Value
  J = I + 1
  Do While ((vDate = Cells(J, 1).Text) And (vName = Cells(J, 2).Text) And (vTime = Cells(J, 3).Text))
    Cells(I, 4).Value = vLength + Cells(J, 4).Value
  Loop
Next R

Только я смысла этого кода не понимаю. Что нужно сделать-то?

[Wireless Carrier]

Нужно чтобы при совпадении определенных полей в списке суммировалось значение длительность.

И еще я совсем забыл, нужно чтобы просуммированые строки удалялись и осталась только одна строка с общим значением длительность.

[alibek]

Зацени такую штуку в Excel, как сводная таблица. Делает все, что тебе надо.

[Wireless Carrier]

Если бы она делала я бы такие вопросы не задавал