マクロでVLOOKUP | |
---|---|
[194850] マクロでVLOOKUP- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ VLOOKUP -(2022/04/30(12:19)) □U R L/ Sub 別のシートからVLookup@() Dim tbl As Range Set tbl = Sheets("商品一覧").Range("A1:F100") Dim key As Long key = Range("B5").Value On Error Resume Next Dim ret As String ret = WorksheetFunction.VLookup(key, tbl, 3, False) On Error GoTo 0 Range("H5").Value = ret End Sub Sub 別のシートからVLookupA() Dim tbl As Range Set tbl = Sheets("商品一覧").Range("A1:F100") Dim key As Long key = Range("B5").Value On Error Resume Next Dim ret As String ret = WorksheetFunction.VLookup(key, tbl, 4, False) On Error GoTo 0 Range("J5").Value = ret End Sub 上記のマクロを作りました。 更に改良を施したくご教示お願いします。 1.別のシートからVLookup@Aを1つの処理としたい。 2.Sheet1には1000件のデータがあり、検査値をB5〜B1000としたい。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ |
[194851] Re[1]: マクロでVLOOKUP- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2022/04/30(15:05)) □U R L/ Sub 統合VLookup() Dim tblA As Range Set tblA = Sheets("商品一覧").Range("A1:A100") Dim i As Long Dim tblCD As Range Set tblCD = Sheets("商品一覧").Range("C1:D100") Dim AryH() As Variant Dim AryJ() As Variant With Range("B5", Cells(Rows.Count, "B").End(xlUp)) 'B列の最終データ行まで Dim ret As Variant ReDim AryH(1 To .Rows.Count, 1 To 1) ReDim AryJ(1 To .Rows.Count, 1 To 1) For i = 1 To .Rows.Count If .Cells(i, 1) <> "" Then '空白セルは対象外にする ret = Application.Match(.Cells(i, 1).Value2, tblA, 0) If IsNumeric(ret) Then '該当ありなら AryH(i, 1) = tblCD(ret, 1) AryJ(i, 1) = tblCD(ret, 2) End If End If Next Range("H5").Resize(.Rows.Count) = AryH Range("J5").Resize(.Rows.Count) = AryJ End Wit |
[194852] Re[2]: マクロでVLOOKUP- ■ / 記事引用/メール受信=OFF■ □投稿者/ VLOOKUP -(2022/05/01(11:30)) □U R L/ 半太郎さん お世話になっております。 早速のご教示ありがとうございました。 まずはマクロを試したところ If .Cells(i, 1) <> "" Then '空白セルは対象外にする 部分で【 実行時エラー13 形が一致しません 】とエラーが出ました。 調べてはいるのですが原因が不明な為、ご教示お願いします。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ |
[194853] Re[3]: マクロでVLOOKUP- ■ / 記事引用/メール受信=OFF■ □投稿者/ VLOOKUP -(2022/05/01(11:32)) □U R L/ 半平太さん、名前誤入力してしまい 誠に申し訳ありません。 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ |
[194854] Re[4]: マクロでVLOOKUP- ■記事引用/メール受信=OFF■ □投稿者/ とおりすがり -(2022/05/02(07:57)) □U R L/ そのセルの内容をご自分で確認してください。 エラー値かなにかになっているのであれば、 If Not IsError(.Cells(i, 1)) Then If .Cells(i, 1) <> "" Then '空白セルは対象外にする などとしてみてはどうですか? |
[194855] Re[5]: マクロでVLOOKUP- ■ / 記事引用/メール受信=OFF■ □投稿者/ VLOOKUP -(2022/05/03(08:43)) □U R L/ とおりすがりさん おはようございます。 エラーになる原因を今一度調べ、問題分かりました。 試行錯誤している際、最終行にVLOOKUP関数が残っており それが問題でした。 また、ご教示いただいたマクロも問題なく処理できました。 とおりすがりさん、半平太さん 色々ご教示いただきありがとうございました。 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ |
[194857] Re[6]: マクロでVLOOKUP- ■記事引用/メール受信=OFF■ □投稿者/ とおりすがり -(2022/05/03(10:49)) □U R L/ VLOOKUP関数があるだけで、なぜ、形が一致しません になるんだろうか。 それがエラーを返していたということ?はっきり書いてください。 |
このトピックに書きこむ |
---|