Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7440 / 76732

←次へ　｜　前へ→


	【74879】COLUMNの入れ替え

コロタン - 13/10/19(土) 20:14 -


	引用なし

	パスワード

みなさま初めまして。
ｖｂａ初心者です。
自作のvbaが上手く動かないので、お助けください。

　A 　　B 　　C 　　D　 E　　 F
東京　千葉　埼玉
２　　　１　　３

という表があるとします。
私はこのCOLUMNを

　A 　　B 　　C 　　D　 E　　 F
千葉　東京　埼玉
１　　　２　　３

の順番に並び替えたいと思いました。
そこで以下のようなプログラムを書きました。

考え方としては、まずABCに空白のCOLUMNを挿入する。
それからIF文を用いて、千葉ならばAに、東京ならばｂに、埼玉ならばcに移動します。
Sub 入れ替え()

Columns("a:c").Insert

Range("d1").Select

For TATA = 4 To 6

If Cells(1, TATA) = "千葉" Then Columns("A") = Columns(TATA)
If Cells(1, TATA) = "東京" Then Columns("B") = Columns(TATA)
If Cells(1, TATA) = "埼玉" Then Columns("C") = Columns(TATA)

Next TATA

End Sub

ところがエラーで止まってしまいました。
どこがまずいのでしょう。お教えください。お願いいたします。
またもっとスマートな方法があるならば、教えていただけると今後の勉強になります。
重ね重ねよろしくお願いいたします

261 hits

▼

【74879】COLUMNの入れ替え コロタン 13/10/19(土) 20:14

≪