如何在 excel 的'text to column'中使用两个斜杠?



为什么 Excel 不允许我们在">数据>文本到列">>分隔>其他部分使用两个斜杠?

我有几行具有相似的数据。每行还有两个连续的斜杠。

我想将两个斜杠开始的列分开。

怎么办?

勾选"将连续分隔符视为一个",在其他分隔符中输入一个斜杠,应该可以解决您的问题

文本到列只能接受单个字符作为"其他"分隔符,但拆分可以划分任意数量的字符作为分隔符¹。只需编写您自己的文本到列版本。

Option Explicit
Sub myT2C()
Dim vals As Variant, tmp As Variant, i As Long, j As Long, mx As Long
With Worksheets("sheet8")
vals = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp)).Value2
For i = LBound(vals, 1) To UBound(vals, 1)
tmp = Split(vals(i, 1), "//")
mx = Application.Max(mx, UBound(tmp) + 1)
ReDim Preserve vals(LBound(vals, 1) To UBound(vals, 1), 1 To mx)
For j = LBound(tmp) To UBound(tmp)
vals(i, j + 1) = tmp(j)
Next j
Next i
.Cells(2, "A").Resize(UBound(vals, 1), UBound(vals, 2)) = vals
End With
End Sub

¹可能有一个我不知道的限制;也许是 255 个字符。

最新更新