Excelの条件に基づいて他のシートから他のシートに値を取得する

debugcn 投稿 Dev

biz

データ付きのシートがありますが、他のシートでデータを取得したいのですが、条件付きです。例：

-------------------------------------------------
| Cell A   | Cell B |  Cell C    | Cell D|Cell E |        
|------------------------------------------------|
| Sku      |Order_ID|Customer_ID | Price |Status | 
|------------------------------------------------|
| TW22     |   123  |    1       |221    |   D   |
|------------------------------------------------|
| TS44     |  124   |     2      |221    |   D   |
|------------------------------------------------|
| Ts11-ab  |   33   |     3      |211    |   D   |
|------------------------------------------------|
| Ts11     |   231  |     4      |231    |   D   |
|------------------------------------------------|
| Ts11-ab  |   33   |     3      |211    |   R   |
|------------------------------------------------|
| Ts11     |   231  |     4      |231    |   R   |
|------------------------------------------------|

例：の上記のようにシートにデータがあります。他のシートの例：に次のような値が必要です。

-------------------------------------------------
| Cell A   | Cell B |  Cell C    | Cell D|Cell E |        
|------------------------------------------------|
| Sku      |Order_ID|Customer_ID | Price |Status | 
|------------------------------------------------|
| TW22     |   123  |    1       |221    |   D   |
|------------------------------------------------|
| TS44     |  124   |     2      |221    |   D   |
|------------------------------------------------|
| Ts11-ab  |   33   |     3      |211    |   R   |
|------------------------------------------------|
| Ts11     |   231  |     4      |231    |   R   |
|------------------------------------------------|

ネットから見つけたvlookupやその他の数式を試しましたが、必要に応じて役に立ちませんでした。

更新：注文IDのシート1にステータス「D」と「R」の2つのレコードがある場合、シート2にステータス「R」のエントリのみが表示されます。ステータス「D」のレコードが1つしかない場合は、次に、シート2にそのレコードが表示されます。ありがとう

アディティアパンサーレ

重複を並べ替えて削除すると役立つ場合があります。

データがあるシートの名前を「raw_data」に変更し、同じワークブックに「new_data」という名前の新しい空白のシートを作成します。シートnew_data "で結果が得られます。

以下のコードを試してください

Sub copy_sheet()

Dim raw_data, new_data As Worksheet

Set raw_data = ThisWorkbook.Sheets("raw_data")
Set new_data = ThisWorkbook.Sheets("new_data")

raw_data.Activate
Range("A1:E1").Select
Range(Selection, Selection.End(xlDown)).Copy
new_data.Activate
Range("A1").PasteSpecial xlPasteValues
Range("A1").Sort key1:=Range("E1"), order1:=xlDescending, Header:=xlYes
Range("A1:E1").Select
Range(Selection, Selection.End(xlDown)).RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
Range("A1").Sort key1:=Range("E1"), order1:=xlAscending, Header:=xlYes
Range("A1").Activate
End Sub

この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。

侵害の場合は、連絡してください[email protected]