Excel VBA質問箱 IV

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

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


37138 / 76738 ←次へ | 前へ→

【44774】Re:VBAでこのようなデータの並び替え
発言  ponpon  - 06/12/1(金) 0:10 -

引用なし
パスワード
   C列D列には重複はないのでしょうか?

重複がないのであれば、こんな感じで出来ると思います。

Sub test()
  Dim myDic As Object
  Dim r As Range, rr As Range
  
  Application.ScreenUpdating = False
  With Sheets("Sheet1")
    Set myDic = CreateObject("Scripting.Dictionary")
    For Each r In .Range("C1", .Range("C65536").End(xlUp))
      myDic(r.Value) = r.Offset(, 1).Value
    Next
    .Range("C:D").ClearContents
    For Each rr In .Range("A1", .Range("A65536").End(xlUp))
      For Each mykey In myDic.Keys
        If rr.Value = mykey Then
          rr.Offset(, 2).Value = mykey
          rr.Offset(, 3).Value = myDic(mykey)
        End If
      Next
    Next
  End With
  Application.ScreenUpdating = True
End Sub

0 hits

【44767】VBAでこのようなデータの並び替え いちこ 06/11/30(木) 22:25 質問
【44774】Re:VBAでこのようなデータの並び替え ponpon 06/12/1(金) 0:10 発言
【44776】Re:VBAでこのようなデータの並び替え いちこ 06/12/1(金) 0:27 お礼

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