根据/在一个字段中分割行

假定列B具有诸如Data1 / Data2 / Data3-1 / Data3-7的数据 – 所有其他行具有各种数据。

我需要把每一行有B列（有些可能不行），并为每个单独的值创build一行，同时复制行中的所有其他数据。

数据可能有符号，破折号和其他随机的东西，但是实际的数据本身不会有/的，只有/被用来指定分割线

Any1知道这样做的最好方法？ Excel 07和OO可用。

Answer 1

VBA解决scheme可以吗？

Sub DuplicateRows() Dim r As Range Set r = Cells(Rows.Count, 2).End(xlUp) Do While r.Row > 1 TestRow r Set r = r.Offset(-1, 0) Loop TestRow r End Sub Sub TestRow(r As Range) Dim i As Long, n As Long Dim a() As String i = InStr(r, "/") If i > 0 Then n = Len(r) - Len(Replace(r, "/", "")) r.EntireRow.Copy r.Offset(1, 0).Resize(n).EntireRow.Insert Shift:=xlDown a = Split(r, "/") For i = 0 To n r.Offset(i, 0) = a(i) Next End If Application.CutCopyMode = False End Sub