別のシートから値を検索するためにvbaコードを最適化する方法
lifeinvba
sheet1のA1セルにある値T5536の検索機能を自動化し、A1セルの値をn個の値を持つsheet2の列と比較するために、以下のコードを記述しました。A1値T5536がSheet2A列の値と一致する場合、対応するESまたはIS値でSheet1を更新する必要があります。Sheet2のES値に間接的な単語または文字列がある場合は、sheet1のIS値を更新する必要があります。
同じために以下のコードを見つけてください：-
Sub test()
Dim lrow As Long
Dim i, j As Variant
Dim ms, ws As Worksheet
Dim num, esr, isr,x As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set ms = Worksheets("sheet1")
Worksheets("Sheet2").Activate
ms.Cells(2, 3) = ""
ms.Cells(2, 2) = ""
Set ws = Worksheets("Sheet2")
num = WorksheetFunction.Match("number", Range("1:1"), 0)
esr = WorksheetFunction.Match("ES", Range("1:1"), 0)
isr = WorksheetFunction.Match("IS", Range("1:1"), 0)
x = sheet2.cells(sheet2.rows.count,"A").end(xlup).row
FoundRange = ms.Range("A1")
For i = 2 To x
If ws.Cells(i, num) = FoundRange Then
Worksheets("sheet1").Activate
ms.Cells(2, 3) = ws.Cells(i, isr)
If ws.Cells(i, es) = "indirect" Then
ms.Cells(2, 2) = ws.Cells(i, is)
Else
ms.Cells(2, 2) = ws.Cells(i, es)
End If
End If
If ms.Cells(2, 2) <> "" Then
Exit For
End If
Next i
End Sub
次のコードは、sheet2 A列に一致する値が少ない場合に機能し、時間がかかりませんが、sheet2にn個の値がある場合、forループを実行してタスクを実行するのは困難です。親切に助けてください。このコードを微調整して値を非常に高速に検索し、対応する値を更新します。
クエリの分析に役立つ可能性のある画像を添付しました。
Davesexcel
見てみな。このコードは必要に応じて編集できます。
Sub loopExample()
Dim sh As Worksheet, ws As Worksheet
Dim LstRw As Long, Frng As Range
Dim rng As Range, c As Range, x
Set sh = Sheets("Sheet1")
Set ws = Sheets("Sheet2")
Set Frng = sh.Range("A1")
With ws
LstRw = .Cells(.Rows.Count, "A").End(xlUp).Row
Set rng = .Range("A2:A" & LstRw)
End With
For Each c In rng.Cells
If c = Frng Then
x = IIf(c.Offset(0, 1) = "indirect", 2, 1)
sh.Range("B2") = c.Offset(0, x)
End If
Next c
End Sub
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
編集
関連記事
Related 関連記事
- 1
Outlookアドインで電子メールを検索するためのコードを最適化する
- 2
VBA：シート「DMR」から検索値を検索し、次に見つかった検索値から列Aのセルと列Dのセルをシート「検索」にコピーする方法
- 3
あるシートから別のシートにデータをコピーするための最も効率的なvbaメソッド
- 4
複数のキーと値のペアに基づいてオブジェクト配列を検索するための最適化された方法
- 5
複数のキーと値のペアに基づいてオブジェクト配列を検索するための最適化された方法
- 6
リストのリストからすべてのリストのn位置を削除するためのコードを最適化する方法
- 7
特定の間隔で別のシートから値をコピーするためのVBAスクリプト
- 8
検索された値の横に値をコピーするVBAコード
- 9
テーブルから値を取得するための最も最適化された方法
- 10
コードを最適化して、あるシート範囲を別のシート範囲にコピーする方法
- 11
静的を生成するためのコードの最適化
- 12
レイヤーのコレクションから元のコンテナーLeafletレイヤーを検索/取得するための最良の方法
- 13
デコード時間を最適化するために大きなリストをdynamoDBテーブルに保存する最良の方法
- 14
dictを反復処理し、値をリストに格納するためにコードを最適化する方法は？
- 15
複数の範囲から値を検索するための最良の方法
- 16
文字列の分割と抽出のためにコードを最適化する
- 17
スワップの最小数のためにコードを最適化する
- 18
別のシートの特定のセルから値を検索する
- 19
CPUキャッシングを最適化するためにJavaコードで何ができますか？
- 20
Java Fxを使用して、検索フィルターを作成するときに整数値を検索するための最良の方法は何ですか？
- 21
A *検索で最適なノードを選択/ソートするためのより効率的な方法は何ですか？
- 22
[Excel] [VBA]別のシートから値を検索し、そのBGをコピーします
- 23
写真を含めずに、あるシートから別のシートに値をコピーする
- 24
ビルドに失敗したターゲットとエラーメッセージを検索するためにBazelビルドイベントプロトコルを解析するための最良の方法は何ですか？
- 25
UNIXkshコードの一部を最適化するために必要な提案
- 26
多くのhtmlファイルから情報を抽出するためのコードの最適化
- 27
動的な最終行のために、あるワークシートから別のワークシートにデータをコピーする
- 28
大きな入力をソートするためにこのPythonコードを最適化するにはどうすればよいですか？
- 29
垂直方向に検索してから、行データ全体を別のシートの適切な列に転送する方法はありますか？
コメントを追加