Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9887 / 76736 ←次へ　｜　前へ→
【72405】Re:再:２つのシートのデータを照合し列が一致したら転記したい
発言  kanabun  - 12/8/7(火) 14:25 -
引用なし
パスワード
   ▼kiki さん：
おじゃまします。

>今後の勉強のためにも複数件あるデータを検索して転記する方法を

[Sheet2]のA列にあるリストに重複はなかったですか？

一般機能ですが、
フィルタオプションで、その[Sheet2]A列を抽出条件(リスト)範囲とすると
簡単なコードで、リストにあるデータだけ[Sheet2]に抽出できますよね

それをマクロにしたものが、以下です。


Sub Try1() 'Sheet1より抽出転記、並び替え
　　Dim Rng1 As Range
　　Dim Rng2 As Range
　　Dim Rng3 As Range
　　
　　With Worksheets("Sheet1")
　　　　'[Sheet1]1行目には A列から必要列まで(F1, F2,F3, F4,... F30のように)
　　　　'　　　 列見出しが入っているものと仮定しています
　　　　Set Rng1 = .Range("AD1", .Cells(.Rows.Count, 1).End(xlUp))
　　End With
　　With Worksheets("Sheet2")
　　　　If Not .Cells(1).HasFormula Then
　　　　　　.Rows(1).Insert
　　　　　　.Cells(1).Formula = "=Sheet1!D1"
　　　　End If
　　　　Set Rng2 = .Range("A1", .Cells(1).End(xlDown)) '抽出リスト
　　　　Set Rng3 = .Range("C1").Resize(, Rng1.Columns.Count)
　　End With
　　Rng3.EntireColumn.ClearContents
　　Rng3.Rows(1).Value = Rng1.Rows(1).Value '列見出しをコピーします
　　　　　
　　'A列にリストのあるデータ行だけ転記します（フィルタオプション）
　　Rng1.AdvancedFilter xlFilterCopy, Rng2, Rng3
　　
　　'転記後、第4列で並び替えます
　　Rng3.CurrentRegion.Sort Key1:=Rng3.Columns(4), Order1:=xlAscending _
　　　　, Header:=xlYes
　　
End Sub


なお、[Sheet2]A列の抽出リストが 単純な昇順リストとかになっていないときは
並び替えのオプションをユーザー定義で 「[Sheet2]A列の抽出リスト」を追加し
てこのSortOrderで並び替えてやる方法があります。（単純な昇順リストのほう
が、あとで読みやすいと思われますが）
0 hits
▼ 【72393】２つのシートのデータを照合し列が一致したら転記したい kiki 12/8/1(水) 23:50 質問
【72394】Re:２つのシートのデータを照合し列が一致... UO3 12/8/2(木) 10:12 発言
【72396】Re:２つのシートのデータを照合し列が一致... kiki 12/8/2(木) 22:12 発言
【72395】Re:２つのシートのデータを照合し列が一致... ドカ 12/8/2(木) 14:28 回答
【72397】Re:２つのシートのデータを照合し列が一致... kiki 12/8/2(木) 22:17 お礼
【72400】再:２つのシートのデータを照合し列が一致... kiki 12/8/6(月) 22:07 質問
【72401】Re:再:２つのシートのデータを照合し列が一... UO3 12/8/7(火) 6:23 発言
【72407】Re:再:２つのシートのデータを照合し列が一... kiki 12/8/7(火) 20:48 質問
【72420】Re:再:２つのシートのデータを照合し列が一... UO3 12/8/8(水) 21:02 発言
【72427】Re:再:２つのシートのデータを照合し列が一... kiki 12/8/8(水) 22:21 お礼
【72402】Re:再:２つのシートのデータを照合し列が一... UO3 12/8/7(火) 6:36 発言
【72403】Re:再:２つのシートのデータを照合し列が一... UO3 12/8/7(火) 6:39 発言
【72404】Re:再:２つのシートのデータを照合し列が一... ぶらっと 12/8/7(火) 10:09 回答
【72409】Re:再:２つのシートのデータを照合し列が一... kiki 12/8/7(火) 20:54 お礼
【72405】Re:再:２つのシートのデータを照合し列が一... kanabun 12/8/7(火) 14:25 発言≪
【72411】Re:再:２つのシートのデータを照合し列が一... kiki 12/8/7(火) 22:25 お礼
【72410】再：２つのシートのデータを照合し列が一致... kiki 12/8/7(火) 21:11 質問
【72412】Re:再：２つのシートのデータを照合し列が... kanabun 12/8/8(水) 12:51 発言
【72413】Re:再：２つのシートのデータを照合し列が... kanabun 12/8/8(水) 13:34 発言
【72414】Re:再：２つのシートのデータを照合し列が... kanabun 12/8/8(水) 14:34 発言
【72415】Re:再：２つのシートのデータを照合し列が... kanabun 12/8/8(水) 14:46 発言
【72416】Re:再：２つのシートのデータを照合し列が... kanabun 12/8/8(水) 17:07 発言
【72418】Re:再：２つのシートのデータを照合し列が... kanabun 12/8/8(水) 17:17 発言
【72419】Re:再：２つのシートのデータを照合し列が... kiki 12/8/8(水) 20:41 質問
【72422】Re:再：２つのシートのデータを照合し列が... kanabun 12/8/8(水) 21:10 回答
【72426】Re:再：２つのシートのデータを照合し列が... kiki 12/8/8(水) 22:13 お礼
【72430】Re:再：２つのシートのデータを照合し列が... kanabun 12/8/9(木) 14:26 発言
【72437】Re:再：２つのシートのデータを照合し列が... kiki 12/8/9(木) 23:21 お礼
【72439】Re:再：２つのシートのデータを照合し列が... kanabun 12/8/10(金) 9:18 発言
【72421】Re:再：２つのシートのデータを照合し列が... kiki 12/8/8(水) 21:06 質問
【72431】Re:再：２つのシートのデータを照合し列が... kanabun 12/8/9(木) 14:42 発言
【72438】Re:再：２つのシートのデータを照合し列が... kiki 12/8/9(木) 23:22 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9887 / 76736 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free