- 219 名前：デフォルトの名無しさん mailto:sage [2014/01/25(土) 18:47:48.99 ]
- >>217
素早い反応ありがとうございます。
こんな感じです。
Dim cell_a As Range
Dim cell_b As Range
Set cell_a = Worksheets("Sheet1").Range("B:B").Find(What:="target1")
Set cell_b = Worksheets("Sheet1").Range(Cells(cell_a.Row + 1, 1), Cells(cell_a.Row + 2, 1)).EntireRow.Find(What:="target2")
セルの結合に関しては、そういう風なフォーマットになっているものからデータ取り出せ、って言うことなので、自分にはどうしようもないです……
