文本到列 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 所有列的代码，但这种方法至少会很奇怪。我的意思是，拆分第一个范围列，所有其余范围将被拆分过程覆盖，一切都会被破坏，没有任何要拆分的东西...

文本到列 VBA

Text To Columns VBA

excel

vba

text-to-column