excel - 文本到列 VBA

Question

我正在尝试将文本列在列，但似乎我有一个错误。这是我的代码：

Set rg = Range("H3:H" & lr).CurrentRegion
rg.TextToColumns _
Destination:=Range("H3"), _
DataType:=xlDelimited, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=True, _
OtherChar:="Chr(10)"

Answer 1

请测试下一个方法。它将 H:H 列的单元格拆分为Chr(10)：

dim rg as Range
set rg=Range("H1").Entirecolumn
rg.TextToColumns destination:=rg, DataType:=xlDelimited, Other:=True, OtherChar:=Chr(10)

或仅拆分列填充范围：

dim rg as Range
set rg=Range("H1:H" & Range("H" & rows.count).End(xlUp).Row)
rg.TextToColumns destination:=rg, DataType:=xlDelimited, Other:=True, OtherChar:=Chr(10)

我可以向您展示如何（理论上）为 的所有列运行代码CurrentRegion，但这种方法至少会很奇怪。我的意思是，拆分第一个范围列，范围的所有其余部分都将被拆分过程覆盖，一切都将被破坏，没有任何要拆分的东西......