Question

我遇到Excel VBA Text To Columns的问题。显然，当我希望将目的地放在新的工作表上时，该功能可以固定在目的地上。

Worksheets("RawData").Columns(ID).TextToColumns Destination:=Worksheets("Regular").Columns("C"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
    Semicolon:=False, Comma:=True, Space:=False, Other:=True, _
    OtherChar:="(", _
    FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True

显然，这只会将其转储到原始数据的C列而不是我希望它的“常规”工作表。

Answer 1

另一种方法是直接使用字符串操作。假设您希望冒号在text to column命令中作为分隔符：

dim i as integer
dim j as integer
dim strTemp as string
dim arrString() as string

for i = 1 to 'number of rows in your first sheet
    strTemp = cells(i, 1)
    arrStrings = strings.split(strTemp, ",")
    for j = 1 to ubound(arrStrings)
        sheet2.cells(i, j) = arrStrings(j)
    next j
next i

文本到列VBA目标到新工作表

1 个答案: