大神帮忙看下如何做个循环语句，可以自己定义循环几次，谢谢

jonsonchang

以下是录制宏，A-D列分别做了一次分列操作，请问如何用循环宏表达，最好能自己选择从哪列到哪列，或者手动输入从A列开时候循环多少次，比如循环8次就到H列结束，谢谢

Sub 宏1()
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Columns("B:B").Select
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Columns("C:C").Select
    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Columns("D:D").Select
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
End Sub

zdh8083

你这个问题后面解决了没？ 咋弄的 ？

tanglf188

就是要指定范围设置单元格格式吗？

zdh8083

tanglf188 发表于 2022-12-22 22:13
就是要指定范围设置单元格格式吗？

差不多是这个意思，就是范围也不固定，所以想用逐列 分列来处理 ，那个COLUMN(A:A)倒是可以用COLUMN(1)来代替，用FOR循环可以处理。 但是那个 Selection.TextToColumns Destination:=Range("A1") 语句就不知道咋整了

zdh8083

Function MyCHAR(I)
    MyCHAR = Mid(Cells(1, I).Address, 2, IIf(I > 26, 2, 1))
End Function


For C = 1 To Range("A1").End(xlToRight).Column
     Columns(C).Select
     Selection.TextToColumns Destination:=Range(MyCHAR(C) & "1"), DataType:=xlDelimited, TextQualifier:=xlTextQualifierDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1)), TrailingMinusNumbers:=True
Next

半百

Destination:=Cells(1, i)，这样行不？

zdh8083

半百 发表于 2022-12-23 10:57
Destination:=Cells(1, i)，这样行不？

哈哈，是可以的，看来是我搞复杂了   以为那种格式不能变