文字列循环

所以基本上我有多列文本，我想改变为数字。 现在我面对的问题是我得到的代码，但我不明白如何运行一个循环，以select下一个第三列。 这是我的代码：

Sub Texscolumn() Range("AI2:AI96").Select Selection.TextToColumns Destination:=Range("AI2"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 9), Array(3, 9), Array(4, 9), Array(5, 9), Array(6, 9), Array(7, 9), Array(8, 9)), TrailingMinusNumbers:= _ True End Sub 

所以我想要的下一列是AJ2：AJ96。 我似乎无法弄清楚如何通过更改这样的列做一个循环。

Answer 1

至less有2个选项：

 Sub Texscolumn() Dim j As Integer With Sheets("sheet1") For j = 35 To 36 .Range(.Cells(2, j), .Cells(96, j)).TextToColumns Destination:=.Cells(2, j), _ DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=True, _ Tab:=True, _ Semicolon:=False, _ Comma:=False, _ Space:=True, _ Other:=False, _ FieldInfo:=Array(Array(1, 1), Array(2, 9), Array(3, 9), Array(4, 9), Array(5, 9), Array(6, 9), Array(7, 9), Array(8, 9)), _ TrailingMinusNumbers:=True Next i End With End Sub 

要么

 Sub Texscolumn() Dim Rg As Range Dim i As Integer Set Rg = Sheets("sheet1").Range("AI2:AI96") With Rg For i = 1 To 2 .TextToColumns Destination:=.Cells(1, 1), _ DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=True, _ Tab:=True, _ Semicolon:=False, _ Comma:=False, _ Space:=True, _ Other:=False, _ FieldInfo:=Array(Array(1, 1), Array(2, 9), Array(3, 9), Array(4, 9), Array(5, 9), Array(6, 9), Array(7, 9), Array(8, 9)), _ TrailingMinusNumbers:=True Set Rg = .Offset(0, 1) Next i End With End Sub