[[20180306174847]]　『マクロで数値から文字列に変換』（みな）　ページの最後に飛ぶ

『マクロで数値から文字列に変換』（みな）

 複数の列をデータの区切り位置で数値から文字列にする作業があるのですが、
 毎回「列を選択して・・・」という作業が大変なため、マクロの記録で簡易的にマクロを作ったのですが、
 必要な記述と無駄な記述の違いがわかりません。
 下記の記述で、必要な部分のみを教えていただけると嬉しいです。
 ちなみに下記は「Y列」と「AA列」を順番に数値から文字列にしたものです。

 Sub Macro1()
'
' Macro1 Macro
'
    Columns("Y:Y").Select
    Selection.TextToColumns Destination:=Range("Y1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 2), TrailingMinusNumbers:=True
    Columns("AA:AA").Select
    Selection.TextToColumns Destination:=Range("AA1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 2), TrailingMinusNumbers:=True
End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

型変換であって、文字列を区切って複数に分ける用途ではないので、区切り指定関係は全部省略して良いと思いますね。引数の意味は、ヘルプを参照してみてください。

 Sub test()
    Dim R As Range

    For Each R In Range("Y:Y,AA:AA").Areas
        R.TextToColumns Destination:=R(1, 1), DataType:=xlDelimited, FieldInfo:=Array(1, 2)
    Next R
 End Sub
（???） 2018/03/06(火) 18:05

 必要な部分だけにまとめていただきありがとうございます。
 ヘルプで引数の確認ができることも初めて知りました！
 重ね重ねありがとうございます。
（みな） 2018/03/07(水) 10:08

コメント返信：

[ 一覧(最新更新順) ]

[[20180306174847]] 『マクロで数値から文字列に変換』（みな） ページの最後に飛ぶ

[[20180306174847]]　『マクロで数値から文字列に変換』（みな）　ページの最後に飛ぶ