ループのテキストへのテキスト

Question

基本的に私は、数値に変更したいテキストの複数の列を持っています。 私は直面している問題は、コードを持ってiveですが、私はどのように次の3番目の列を選択するには、ループを実行する方法を理解していない。

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 は、これは私のコードです。 このような列を変更してforループを作成する方法を理解できないようです。

Answer 1

少なくとも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 

又はJ = 1 2 '及び `次にi`について

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