Excelで特定の条件に基づいてデータを選び出し、別のセルに代入する方法はありますか？

質問

• エクセルのA列の数値をB列から選び出し、それに対応するC列の値をD列に代入する方法を知りたいです。
• 具体的には、A列の値と一致するB列の値を見つけ、その行にあるC列の値をD列にコピーして表示したいです。
• 質問の例では、A1の値0.1に対応するB1の値0.1を見つけ、それに対応するC1の値5をD1に表示したいということです。

回答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

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