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

零之间的和列

1 个答案: