|
検索値をセル内最初の2文字に指定して、検索結果を表示させるために、VLOOKUPとLEFTを使って、下記のように作成したところ、エラーが出ます。
Dim gyoy As Integer
Dim ii As Interger
Sheets("LIST").Select
gyoy = 10
Sheets("LIST").Select
Do Until Worksheets("LIST").Range("e" & gyoy).Text = ""
gyoy = gyoy + 1
Loop
Sheets("LIST").Select
ii = 10
For ii = 10 To gyoy -1
If Worksheets("LIST").Range("e" & ii).Text <> "" Then
Worksheets("LIST").Range("b" & ii).Value ="= VLOOKUP(LEFT($e" & ii & ", 2) " & ii & ",CODE,3,FALSE)"
VLOOKUPから先の式がおかしいのか、Valueでやるのがおかしいのか、いろいろ
試してみましたが、うまくいきません。
ちなみに、セル内最初の2文字に限定せず、セルそのものを検索値にした下の式はうまくいきます。
Worksheets("LIST").Range("c" & ii).Value ="=VLOOKUP($d" & ii & ", CODE2,2,FALSE)"
どうぞ宜しくお願いします。
|
|