エクセル VBA で他の表のリストを紐付けるには、
どのような、コードを記入すればよろしいでしょうか?
A1にBAA、A6にCAA、A11にEAAという項目があります。(図 マクロ実行前参照)
項目の下の数字を検索値として、リスト(別ワークブック)の
C列とD列の値を紐付けしたいのですが、
その場合どのようなコードを記入すればよろしいでしょうか?
※リスト(別ワークブック)はBAA、CAA、EAAの3項目が全て混ざった形のため
その項目を自動認識して、数字の検索値で紐付けする事は可能でしょうか?
よろしくお願い致します。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんばんは!
別Bookではなく
アップされている左側の画像のSheetがSheet1・右側の表がSheet2にあるとしての一例です。
Sub test()
Dim ws1 As Worksheet, ws2 As Worksheet, i As Long, k As Long, str As String
Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")
ws2.Columns(1).Insert
k = ws2.Cells(Rows.Count, 2).End(xlUp).Row
Range(ws2.Cells(2, 1), ws2.Cells(k, 1)).Formula = "=B2&""_""&C2"
ws1.Columns(1).Insert
For i = 1 To ws1.Cells(Rows.Count, 2).End(xlUp).Row
If ws1.Cells(i, 2) <> "" Then
If Not IsNumeric(ws1.Cells(i, 2)) Then
str = ws1.Cells(i, 2)
Else
ws1.Cells(i, 1) = str & "_" & ws1.Cells(i, 2)
End If
End If
If ws1.Cells(i, 1) <> "" Then
If WorksheetFunction.CountIf(ws2.Columns(1), ws1.Cells(i, 1)) Then
k = WorksheetFunction.Match(ws1.Cells(i, 1), ws2.Columns(1), False)
With ws1.Cells(i, 3)
.Value = ws2.Cells(k, 4)
.Offset(, 1) = ws2.Cells(k, 5)
End With
Else
ws1.Cells(i, 3) = "該当データなし"
End If
End If
Next i
ws1.Columns(1).Delete
ws2.Columns(1).Delete
End Sub
こんな感じではどうでしょうか?m(_ _)m
お礼が遅くなり申し訳ありません。
教えていただいたコードで勉強させていただきました。
とても勉強になりました。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ExcelVBAでリストの項目に必要数と同じ手配数を分配していくマクロを作りたいです。 1 2022/07/29 18:36
- Visual Basic(VBA) 【至急】 当方初心者です。 マクロについて知恵をお貸しください。 ★したい動作 ①リストE列2行目か 4 2022/09/29 18:56
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Visual Basic(VBA) 【VBA】データを入力後に,同一シート内に履歴として転記するVBAコードを教えていただきたいです。 3 2022/11/16 01:37
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Excel(エクセル) excelにおける転記マクロの書き方 2 2023/05/12 03:16
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セックスする度に胸が大きくな...
-
週1ペースで会うカップルでデー...
-
恋人とセフレの違いはなんです...
-
付き合っているのか付き合って...
-
セックスについて。 彼が正常位...
-
未成年同士でラブホに行った際...
-
おじさんになってから若い女性に
-
セックス前にAV
-
性欲と、人を好きになるって別...
-
一番多くて週に何回セックスし...
-
彼女とのセックスに新鮮味を感...
-
彼女が噛んできます。 歯型がつ...
-
初めて泊まりにきてくれる彼女...
-
セックスの2回目が無理
-
彼氏が私の性格も見た目も褒め...
-
セフレや遊びでスローセックス...
-
付き合って1ヶ月でヤった後別れ...
-
彼氏がコロナで弱って意図的じ...
-
行為中に萎える
-
胸が揺れるくらい激しいセック...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セックスする度に胸が大きくな...
-
週1ペースで会うカップルでデー...
-
恋人とセフレの違いはなんです...
-
セックスについて。 彼が正常位...
-
初めて泊まりにきてくれる彼女...
-
おじさんになってから若い女性に
-
30代前半男性の性欲
-
彼女が噛んできます。 歯型がつ...
-
彼女とのセックスに新鮮味を感...
-
セックス前にAV
-
彼氏が私の性格も見た目も褒め...
-
セックスの2回目が無理
-
付き合って1ヶ月でヤった後別れ...
-
僕の心が狭いのでしょうか…?セ...
-
オナ禁中はセックスしてもいい...
-
セックスする時って会話します...
-
一番多くて週に何回セックスし...
-
性欲と、人を好きになるって別...
-
俗にいうセフレの定義を知りた...
-
やりもくなのか本当に付き合い...
おすすめ情報