我有一个包含大约4000行数据的电子表格,其中一列数据具有唯一的订单号,我希望使用"/"作为分隔符将其分离。因此,我希望实现以下目标:
Name Order# Date
Jane 123/001/111 08/15/2013
Gary 333/121 09/01/2013
Jack 222 09/02/2013
要达到如下效果:
Name Order# Date
Jane 123 08/15/2013
Jane 001 08/15/2013
Jane 111 08/15/2013
Gary 333 09/01/2013
Gary 121 09/01/2013
Jack 222 09/02/2013
我对VBA还比较陌生,所以我决定搜索一下解决方案,然后找到了这段不错的代码。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ans
Dim Cels As Long, i As Long
Cancel = True
ans = Split(Target, ":")
Cels = UBound(ans)
Target.Offset(1).Resize(Cels).EntireRow.Insert shift:=xlDown
Rows(Target.Row).Copy Cells(Target.Row + 1, "A").Resize(Cels)
For i = 0 To Cels
Target.Offset(i) = ans(i)
Next
End Sub
它的功能很好,但是这个宏函数的工作方式是你必须双击行以分隔值。我希望有一种通过For循环传递此函数的方法,使其在整个电子表格中执行。