
Excelにて、シート間で、データーを比較して、一致したら一致シートへ転記し一致しないものは一致しないシートヘ転記するするコードを教えてください。
詳細
Excelにて、シート間で、データーを比較して、一致したら一致シートへ転記し一致しないものは一致しないシートヘ転記するVBAコード作ってみたのですが、うまくいきません。
どなたか、お分かりになる方、ご教授願います。
'検索値があるシート(バーコード)'対象データがあるシート(sheet1)
'一致結果を出力するシート(マッチングデーター)、一致しない結果を出力するシート(マッチング外データー)となっています。
VBAコード作ってみたのですが、うまくいきません。
<不具合点>
①データーを比較してくれない
⇒検索値があるシート(バーコード)のデーター(B列)と対象データがあるシート(sheet1)
の列データー(E列)を比較してマッチングデーターシートヘ転記してくれない。
それぞれの列のデーターは、その都度増減します。
②一致しない結果を出力するシート(マッチング外データー)へ転記しない。
その他
⇒検索値があるシート(バーコード)のデーターは、バーコードリーダーを使いバーコードを読み取り、
A列に読み取り値があります、その値をB列で、比較に下4桁を使用するので、下4桁を取り出しています。
して、対象データがあるシート(sheet1)のデーターと比較しています。
B列には、=IFERROR( VALUE(RIGHT(A2,4)),"")で、4桁を取り出しています。
◇検索値があるシート(バーコード)
A B C D
1 バーコード 連番
※連番のデーターで比較
◇データーと対象データがあるシート(sheet1)
A B C D E・・・ Yまで
1 発行元 発行元名 生産計画情報 発行情報 連番 次工程
※連番のデーターで比較
※画像左が、バーコードシート、画像右がsheet1です。
画像参照願います。
おもうようにいかず困っております。
説明がうまくなくて、すみませんが、よろしくお願いします。
Sub Sample3()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim sh As Worksheet
Dim i As Long, j As Long
Application.ScreenUpdating = False
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("バーコード")
With sh1
For i = 2 To .Cells(Rows.Count, "E").End(xlUp).Row
If .Range("E" & i).Value = sh2.Range("B" & i).Value Then
Set sh = Worksheets("マッチングデーター")
Else
Set sh = Worksheets("マッチング外データー")
End If
j = sh.Cells(Rows.Count, "E").End(xlUp).Row + 1
.Range("A" & i & ":S" & i).copy Destination:=sh.Range("A" & j)
Next i
End With
Application.ScreenUpdating = True
End Sub

No.1ベストアンサー
- 回答日時:
こんにちは
内容がよくわからなかったので、勝手に想定しました。
『データシートの各行のデータ(A:S列)をE列の値によって振り分けてコピーしたい』
振り分けの条件は、「バーコード一シート」のB列の一覧に乗っているか否かで、記載があれば「マッチシート」へ、一覧に記載が無ければ「非マッチシート」へ。
というものと仮定しました。
各シートの1行目はタイトル行と仮定。
方法としては、
「関数で仕分けして、その結果をオートフィルタでフィルタしてコピペ」
という手順です。
Sub Sample()
Dim absent, presnt, bar, sh1
Dim data As Range, f As String, tmpC As Long
'--- シート変数セット
Set bar = Worksheets("バーコード") ' バーコードシート
Set sh1 = Worksheets("Sheet1") ' データシート
Set presnt = Worksheets("マッチングデーター") ' マッチデータのシート
Set absent = Worksheets("マッチング外データー") ' 非マッチデータのシート
tmpC = WorksheetFunction.Min(sh1.UsedRange.Columns.Count + 1, Columns.Count)
'--- データ仕分け(抽出)
Set data = sh1.Cells(2, 1).Resize(sh1.Cells(Rows.Count, 5).End(xlUp).Row - 1, tmpC)
f = bar.Cells(2, 2).Resize(bar.Cells(Rows.Count, 2).End(xlUp).Row - 1, 1).Address()
f = "=IF(E2="""","""",(COUNTIF(" & bar.Name & "!" & f & ",E2)>0)*1)"
sh1.Cells(2, tmpC).Resize(data.Rows.Count).FormulaLocal = f
'--- データコピー
Set data = data.Offset(-1).Resize(data.Rows.Count + 1)
data.AutoFilter
data.AutoFilter Field:=tmpC, Criteria1:=0
data.Columns("A:S").Copy Destination:=absent.Cells(1, 1)
data.AutoFilter
data.AutoFilter Field:=tmpC, Criteria1:=1
data.Columns("A:S").Copy Destination:=presnt.Cells(1, 1)
data.AutoFilter
sh1.Columns(tmpC).Clear
End Sub
※ コピペ先のシートへは1行目からペーストしていますが、最初にクリアする必要がある場合はクリアしてからコピペするようにしてください。
※ 既に記入されているデータがあって、その後ろに追加してゆく方式の場合は、Destinateionのセルを最終行+1に指定すればそのようになります。
※ セル値を単純にコピペしていますので、関数式が設定されている場合などに有効でなくなってしまうケースがあります。そのような場合には「値をペースト」にするのが効果的と思います。
対応して頂き誠にありがとうございました。
説明がうまくできない中、思い通りの結果となりましたこと
心から感謝いたします。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 特定の文字を含むシートだけマクロ処理をしたい 1 2023/05/22 01:43
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
このQ&Aを見た人はこんなQ&Aも見ています
-
好きな人を振り向かせるためにしたこと
大好きな人と会話のきっかけを少しでも作りたい、意識してもらいたい…! 振り向かせるためにどんなことをしたことがありますか?
-
歳とったな〜〜と思ったことは?
歳とったな〜〜〜、老いたな〜〜と思った具体的な瞬間はありますか?
-
コンビニでおにぎりを買うときのスタメンはどの具?
コンビニでおにぎりを買うとき、何の具材を選ぶことが多いですか?
-
あなたなりのストレス発散方法を教えてください!
自分なりのストレス発散方法はありますか?
-
集中するためにやっていること
家で仕事をしているのですが、布団をはじめ誘惑だらけでなかなか集中できません。
-
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
【VBA】元のシート内の文字列を別シートと比較し、一致したら元のシートの別のセルへ転記する方法。
Excel(エクセル)
-
-
4
VBA 列全体を別シートの列と比較し、同じ値がある行の、右端に値をコピーする方法について
Excel(エクセル)
-
5
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
6
VBA 別ブックから条件に合うものを転記したいです
Visual Basic(VBA)
-
7
ある範囲のセルから任意の値を検索して、その隣のセルの値を取得するという関数はありますか?
Excel(エクセル)
-
8
アクセス 項目毎にデータを横に並べる方法
Access(アクセス)
-
9
excel2010 マクロで複数シート検索し、一致した行をコピーしたい
Excel(エクセル)
-
10
VBA 値と一致した行の一部の列のデータを転記について教えてください
Visual Basic(VBA)
-
11
エクセルのマクロで条件一致のデータを別シート(複数)に転記したい
Visual Basic(VBA)
-
12
【VBA】指定した検索条件に一致したら別シートに転記したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
特定の文字を含むシートだけマ...
-
【VBA】シート名に特定文字が入...
-
VBAで指定シート以外の選択
-
エクセルのシート名変更で重複...
-
ユーザーフォームに入力したデ...
-
【Excel VBA】Worksheets().Act...
-
別のシートから値を取得するとき
-
シートが保護されている状態で...
-
Excel VBA リンク先をシート...
-
実行時エラー1004「Select メソ...
-
IFステートの中にWithステート...
-
userFormに貼り付けたLabelを変...
-
Worksheet_Changeの内容を標準...
-
エクセルVBA Ifでシート名が合...
-
C#でExcelのシートを選択する方法
-
ブック名、シート名を他のモジ...
-
エクセルで通し番号を入れてチ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定の文字を含むシートだけマ...
-
Excelマクロのエラーを解決した...
-
【ExcelVBA】全シートのセルの...
-
別のシートから値を取得するとき
-
excelのマクロで該当処理できな...
-
ユーザーフォームに入力したデ...
-
ブック名、シート名を他のモジ...
-
【VBA】シート名に特定文字が入...
-
シートが保護されている状態で...
-
VBAで指定シート以外の選択
-
エクセルのシート名変更で重複...
-
XL:BeforeDoubleClickが動かない
-
VBA 存在しないシートを選...
-
IFステートの中にWithステート...
-
実行時エラー'1004': WorkSheet...
-
Excel VBA リンク先をシート...
-
エクセルVBA Ifでシート名が合...
-
ExcelVBA:複数の特定のグラフ...
-
ExcelのVBAのマクロで他のシー...
-
実行時エラー1004「Select メソ...
おすすめ情報