Excelについての質問です。

質問

エクセルについての質問なのですが、
A列の数値だけをB列から選び出して、そこから更に選び出したBと同じ行にあるCをDに代入したいのですが、どのようにすればよいでしょうか？
　　　A　　　B　　　C　　　D
1　　0.1　　0.1　　5
2　　0.5　　0.3　　10
3　　1.2　　0.4　　20
4　　2.3　　0.5　　40
5　　3.7　　0.7　　80
6　　4.7　　1.0　　160
7　　5.9　　1.2　　320

わかりにくい表ですが、この場合
A1の「0.1」、B列で「0.1」といえばB1になります。それをBと同じ行のC1の数値「5」をD1に代入。
A2の「0.5」、B列で「0.5」といえばB4になります。それをBと同じ行のC4の数値「40」をD2に代入。
A3の「1.2」、B列で「1.2」といえばB7になります。それをBと同じ行のC7の数値「320」をD3に代入。
　 　D
1 　5
2 　40
3 　320
4 　・
5 　・
6 　・
という結果にしたいのですが・・・。
これは可能なのでしょうか?
わかりづらい質問ですが、宜しくお願いします。

回答No.3

pkh4989 · ベストアンサー

以下の行を変更してみてください。
Sub 検索()
　　Dim mR　　　　　As Long
　　Dim wStr　　　　As String
　　Dim c　　　　　 As Range
　　'
　　With ActiveSheet
　　　　mR = .Cells(Rows.Count, "A").End(xlUp).Row
　　　　For wI = 1 To mR
　　　　　　wStr = .Cells(wI, "A")
　　　　　　'Set c = .Range("B1:B" & mR).Find(wStr)
　　　　　　↓
　　　　　　Set c = .Range("B:B").Find(wStr)　　　　'←変更
　　　　　　If Not c Is Nothing Then
　　　　　　　　.Cells(wI, "D") = .Cells(c.Row, "C")
　　　　　　End If
　　　　Next
　　End With
End Sub

補足

ご回答ほんとにありがとうございます。
おかげさまでここまで仕上げることができました。

何度も補足申し訳ありませんが、
A列の数値は必ずB列にあるはずなのですが、
D列３～６の箇所がどうしても表示されません。

　　A　　　　B　　　　C　　　D
１　0　　　　0　　　　0　　　0
２　0.016　　0.001　　0　　　-3
３　0.033　　0.002　　0
４　0.05　　　0.003　　0
５　0.066　　0.004　　0
６　0.083　　0.005　　0
７　0.1　　　0.006　　0　　　-3
８　0.116　　0.007　　-1　　-3

もしよろしければ解決方法を教えてください。

回答No.4

pkh4989

セルの表示形式は文字列でしょうか。
文字列の場合は、文字列後ろのスペースが有るかを確認してください。
後、表示上の内容と実際に入力された内容が違う場合は検索されません。

回答No.2

mu2011

一例です。
D1に=IF(COUNTIF(B:B,A1),VLOOKUP(A1,B:C,2,FALSE),"")を設定、下方向にコピーして下さい。
抽出できない（Ａ列の値がＢ列に存在しない）場合、空白としています。

補足

ご回答ありがとうございます。
どうにか今立ちはだかっていた問題を解決することができました。

補足なのですが、表の一部でこのようなことになってしまいました。
この表は実際に私が行ったデータです。

A　　　　B　　　　C　　　　D
0　　　　0　　　　0　　　　0
0.016　　0.001　　0　　#N/A
0.033　　0.002　　0
0.05　　　0.003　　0
0.066　　0.004　　0
0.083　　0.005　　0
0.1　　　0.006　　0　　-3
0.116　　0.007　　-1　　#N/A
0.133　　0.008　　-1　　-3
0.15　　　0.009　　-1　　-3
0.166　　0.01　　-2　　#N/A
0.183　　0.011　　-2　　#N/A
0.2　　　0.012　　-2　　-3
0.216　　0.013　　-2　　#N/A
0.233　　0.014　　-3　　#N/A
0.25　　　0.015　　-3　　-3
0.266　　0.016　　-3　　-3
0.283　　0.017　　-3　　#N/A
0.3　　　0.018　　-3　　-3
0.317　　0.019　　-3　　#N/A
0.333　　0.02　　-3　　#N/A

もしよろしければ、なぜこのようになるのか補足をお願いします。

回答No.1

pkh4989

マクロです、試してみてください。

Sub 検索()
　　Dim mR　　　　　As Long
　　Dim wStr　　　　As String
　　Dim c　　　　　 As Range
　　'
　　With ActiveSheet
　　　　mR = .Cells(Rows.Count, "A").End(xlUp).Row
　　　　For wI = 1 To mR
　　　　　　wStr = .Cells(wI, "A")
　　　　　　Set c = .Range("B1:B" & mR).Find(wStr)
　　　　　　If Not c Is Nothing Then
　　　　　　　　.Cells(wI, "D") = .Cells(c.Row, "C")
　　　　　　End If
　　　　Next
　　End With
End Sub

マクロ貼付
(1) Alt+F11 (ツール → マクロ → Visual Basic Editor) →「挿入」→「標準モジュール」で表示される画面に貼り付け
(2) 実行は、(F5を押す)又は、シート画面に戻って Alt＋F8を押してマクロ一覧からマクロ名を選択して実行

補足

ご回答ありがとうございます。
下の表は実際に私が行ったものです。

0　　 　　0 　　　　0 　　　　0
0.016 　　0.001　　 0 　　-3
0.033 　　0.002　　 0
0.05　 　　0.003 　　0
0.066 　　0.004　　 0
0.083 　　0.005　　 0
0.1　 　　0.006　　 0 　　-3
0.116 　　0.007 　　-1 　　-3
0.133 　　0.008　　 -1 　　-3
0.15　 　　0.009　　 　　-1 　　-3
0.166 　　0.01　　 -2 　　-3
0.183 　　0.011　　 -2 　　-3
0.2　 　　0.012　　 -2 　　-3
0.216 　　0.013　　 -2 　　-3
0.233 　　0.014　　 -3 　　-3
0.25　 　　0.015　　 -3 　　-3
0.266 　　0.016　　 -3 　　-3
0.283 　　0.017 　　-3 　　-3
0.3　 　　0.018 　　-3 　　-3

と、空欄ができ、またこれより下は何も表示されませんでした。
よろしければ対策を教えてください。