Manipulating VBA Text To Columns

Hello,

I have the following code:

    Selection.TextToColumns Destination:=Range("A7"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="%", FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2)), _
        TrailingMinusNumbers:=True

I have bolded the relevant text. I am wondering if there is a way to specify ALL columns have the value 2 instead of just the ones that I have listed there. Otherwise I will have to go

Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 2), Array(15, 2)

and etc.

Thanks in advance!

Hi googlebot

I don't think there's a solution inside the TextToColumns method. You can, however, use an array:

Dim ary

    ary = [if({1,0},row(1:15),2)]
    
    Selection.TextToColumns Destination:=Range("A7"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="%", FieldInfo:=ary, TrailingMinusNumbers:=True