Excel VBA質問箱 IV

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

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


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

38481 / 76807

←次へ　｜　前へ→


	【43463】Re:for～next

ハチ - 06/10/16(月) 20:01 -


	引用なし

	パスワード

▼やずや、やずやさん：

見当違いかもしれませんが・・・

新しいBookを作成して
1枚目のA1～E1までにテキトー文字を入れてみて
下のコードを実行してみてください。
2枚目に並び替わってコピーされますが
こんな感じですか？
「A列、B列」ではなく「1列,2列」で考えたほうが良いと思います。

サンプルではセル単位ですが応用すれば、
指定した範囲の列単位で並び替えてコピーすることもできます。

Option Explicit
Sub Test()
　　Dim c1 As Integer, c2 As Integer
　　
　　For c1 = 1 To 5
　　　　'1,2,3列を3,2,1と並び替え。残り4,5はそのまま
　　　　Select Case c1
　　　　　　Case 1: c2 = 3
　　　　　　Case 2: c2 = 2
　　　　　　Case 3: c2 = 1
　　　　　　Case Else: c2 = c1
　　　　End Select
　　　　Worksheets(2).Cells(1, c2).Value = Worksheets(1).Cells(1, c1).Value
　　Next c1
End Sub

0 hits

▼

【43456】for～next やずや、やずや 06/10/16(月) 18:22