Excel VBA質問箱 IV

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

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


38406 / 76732 ←次へ | 前へ→

【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 質問
【43458】Re:for〜next ハチ 06/10/16(月) 18:54 発言
【43460】Re:for〜next やずや、やずや 06/10/16(月) 19:22 質問
【43463】Re:for〜next ハチ 06/10/16(月) 20:01 発言
【43467】Re:for〜next やずや、やずや 06/10/16(月) 20:17 お礼

38406 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free