Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

55925 / 76736

←次へ　｜　前へ→


	【25576】Re:vlookupで検索できないデータ？

ikeda

- 05/6/6(月) 11:33 -


	引用なし

	パスワード

ありがとうございます。
マスタは
商品名、フレーバー、限定の有無、ブランド、メーカー、カテゴリ
の項目があります。
一部のデータを下記に転記しました。

Ｃコラーゲンインアセロラ＆アロエ２５０ｍｌ,10,1,44,4,2
ＳＷｍｉｘアセロラ＆レモン　３５０ｍｌ,10,1,40,4,1
ＳＨＷｍｉｘアセロラ＆レモン　５００ｍｌ,10,1,40,4,1
カクテルＰ　Ｄジントニック　３５０ｍｌ,9,1,31,3,3
カクテルＰ　Ｄモスコーミュール　３５０ｍｌ,9,1,31,3,3

ここから商品名で検索してallシートにフレーバー以下のコードを記入していきます。
転記しているコードは以下のものです。
結果はアルファベットで始まるマスタのデータのみNAです。
何故でしょう？

　　'マスタからの転記
　　'マスタ行数取得
　　Sheets("マスタ").Activate
　　gyo2 = Sheets("マスタ").Range("a1").CurrentRegion.Rows.Count
Debug.Print "マスタ" & gyo2

　　Sheets("all").Activate
　　
　　'フレーバー
　　Range("A4").Select
　　ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[4],マスタ!R1C1:R" & gyo2 & "C5,2)"
　　Selection.AutoFill Destination:=Range("A4:A" & gyo), Type:=xlFillDefault
　　
　　'限定有無
　　Range("F4").Select
　　ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],マスタ!R1C1:R" & gyo2 & "C5,3)"
　　Selection.AutoFill Destination:=Range("F4:F" & gyo), Type:=xlFillDefault
　
　　'ブランド
　　Range("G4").Select
　　ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],マスタ!R1C1:R" & gyo2 & "C5,4)"
　　Selection.AutoFill Destination:=Range("G4:G" & gyo), Type:=xlFillDefault
　　
　　'メーカー
　　Range("B4").Select
　　ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[3],マスタ!R1C1:R" & gyo2 & "C5,5)"
　　Selection.AutoFill Destination:=Range("B4:B" & gyo), Type:=xlFillDefault
　　
　　'カテゴリ
　　Range("C4").Select
　　ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[2],マスタ!R1C1:R" & gyo2 & "C6,6)"
　　Selection.AutoFill Destination:=Range("C4:C" & gyo), Type:=xlFillDefault

0 hits

▼

【25572】vlookupで検索できないデータ？ ikeda 05/6/5(日) 18:43