|
原帖由 vfd 于 2009-7-23 09:31 发表
补充问下,为什么上面的公式不能分离下面的表?
要报如下图错误?停留在do while那行。
我想要一个通用的脚本,再次麻烦大家。
条件已经发生改变,代码就要做相应修改:
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Dim rng As Range, stg$, str$, i%, j%
- For Each rng In Range("A1", [A65536].End(3))
- stg = rng
- i = 1
- Do Until Mid(stg, i + 1, 1) Like "*[A-Z]*"
- i = i + 1
- Loop
-
- str = Left(stg, i - 1)
- j = 0
- Do While IsNumeric(Left(str, j + 1))
- j = j + 1
- Loop
- rng.Offset(, 1) = Trim(Right(str, Len(str) - j))
- rng.Offset(, 2) = Trim(Right(stg, Len(stg) - i))
- Next
- End Sub
复制代码 |
|