我正在嘗試將文本添加到列中，但似乎有錯誤。這是我的代碼：
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)"
uj5u.com熱心網友回復：
請測驗下一個方法。它將列 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，但這種方法至少會很奇怪。我的意思是，拆分第一個范圍列，范圍的所有其余部分都將被拆分程序覆寫，一切都將被破壞，并且沒有任何要拆分的東西......
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/396388.html
上一篇：在公式vba中使用最新的作業表