|
みなさま初めまして。
vba初心者です。
自作のvbaが上手く動かないので、お助けください。
A B C D E F
東京 千葉 埼玉
2 1 3
という表があるとします。
私はこのCOLUMNを
A B C D E F
千葉 東京 埼玉
1 2 3
の順番に並び替えたいと思いました。
そこで以下のようなプログラムを書きました。
考え方としては、まずABCに空白のCOLUMNを挿入する。
それからIF文を用いて、千葉ならばAに、東京ならばbに、埼玉ならば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
ところがエラーで止まってしまいました。
どこがまずいのでしょう。お教えください。お願いいたします。
またもっとスマートな方法があるならば、教えていただけると今後の勉強になります。
重ね重ねよろしくお願いいたします
|
|