Сумма столбца между нулями

Question

У меня есть файл Excel с большим количеством данных измерений в столбце. Там есть куча образцов, с нулями между каждым набором образцов. Количество нулей и точек данных различно. Для иллюстрации:

data 
    data 
    data 
    0 
    0 
    data 
    data 
    0 

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

Возможно ли это как можно?

Answer 1

Попробуйте что-то вроде этого, при условии, что ваши данные в колонке А:

Sub SplitData() 
    dim r as Range: set r = Range("A1) 
    dim outR as Range: set outR = Range("B1") 
    Do While r.Value <> "" 
    if r.Value <> 0 then 
     if r.Row > 1 then 
     if r.Offset(-1).Value <> 0 then 
      outR.Value = r.Value: set outR = outR.offset(1) 
     else 
      set outR = Cells(1,outR.Column+1): outR.Value = r.Value 
      set outR = outR.Offset(1) 
     end if 
     else 
     outR.Value = r.Value 
     end if 
    end if 
    set r = r.offset(1) 
    loop 
End Sub