Question

我有一个专栏BA。我想将Text to Column转到BC列。

我录制了一个宏。当我在工作簿中执行它时，我收到错误。

这是我录制的宏。

Sub Macro8()
'
' Macro8 Macro
'
' Keyboard Shortcut: Ctrl+Shift+H
'
Selection.TextToColumns Destination:=ActiveCell.Offset(0, 2).Range("A1"), _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
:=True, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, _
Other:=True, OtherChar:=":", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array _
(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array( _
10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), _
Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array( _
23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array(29, 1), _
Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), Array( _
36, 1), Array(37, 1), Array(38, 1)), TrailingMinusNumbers:=True
End Sub

范围不应该是BA？

我没有看到BC - 那是0,2偏移吗？

Answer 1

编辑：将目标偏移量更改为两列（从1开始）

如果您只需要您的代码来操作所选单元格，那么这应该有效：

Selection.TextToColumns Destination:=Selection.Offset(0, 2), _
           DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
           ConsecutiveDelimiter:=False, Comma:=True, Other:=True, _
           OtherChar:=":"

除非您要将特定数据类型等应用于结果列，否则通常可以省略FieldInfo参数

修改录制的代码以将文本转换为列

1 个答案: