|
はこだ さん
こんにちは。
セルの条件がわからないため、
そこは適当に入れました。
個人的には、配列で作りそうですが、
Findを使った方がはこださんがわかりやすいかもしれませんでしたので、
Findで作りました。
ここでは、作成したい表がE1から始まっていて、
データは同じワークシートのA1から始まっていることとします。
日付がB列、水温がC列です。
ご参考までに。
Sub 文字を探す()
Dim r_chiten As Range, r_hizuke As Range
Dim i As Integer
Dim hyou As Range
'作成したい表のデータ範囲が変数、hyou
'データはA1から並んでいることにする。
Set hyou = Range("E1:J5") '//検索範囲 (作成したい表の場所)
For i = 1 To Range("A65536").End(xlUp).Row
Set r_chiten = hyou.Find(what:=Range("A" & i).Value)
Set r_hizuke = hyou.Find(what:=Range("B" & i).Value)
Cells(r_chiten.Row, r_hizuke.Column) = Range("C" & i).Value
Next i
End Sub
|
|