零列之間的總和列

Question

我有一列Excel中包含大量測量數據的文件。有一堆樣本，每組樣本之間都有零。零點和數據點的數量各不相同。爲了說明：

data 
    data 
    data 
    0 
    0 
    data 
    data 
    0 

欲分割的零點之間的柱，這樣我可以通過本身操縱每個樣品範圍。

是這樣的可能嗎？

Answer 1

嘗試這樣的事情，只要你的數據是在列A：

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