マクロ セル情報を変数に代入するには？

質問

いつも回答して頂き、感謝しています。

FINDで抽出した作業状態のセル位置情報を起点にして、作業名の横のセル情報と作業箇所の横のセル情報を取得し、変数に代入したのですが、作業箇所の横のセル情報がどうしてもうまく代入されません。

オフセットの値が間違っているのではと思い、
Set res2 = res1.Offset(2, 0)　→　res1.Offset(2, 0).Selectと
変更し選択出来ているか確認しましたが、思った通りに選択出来ていました。

選択できているのに、どうしてセル情報が変数に代入できないのでしょうか？大変お手数だとは思いますが、御指導の程宜しくお願い致します。

Sub 作業状態のエリアを作業名別に各シートに貼り付ける()
Dim c As Range
Dim res1 As Range
Dim res2 As Range
Dim c0 As String

With Worksheets("書面").Columns("B:D")
Set c = .Find(what:="作業状態", LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then Exit Sub
c0 = c.Address

Do
Set res1 = c.Offset(0, 7)
Set res2 = res1.Offset(2, 0)

Application.Intersect(c.MergeArea.EntireRow, Range("B:BQ")).Select
Set c = .FindNext(c)
Loop Until c.Address = c0
End With

End Sub

回答No.1

KURUMITO · ベストアンサー

単に作業名と作業箇所のデータを得たいのでしたら次のようなマクロで良いでしょう。

Sub 作業状態のエリアを作業名別に各シートに貼り付ける()
Dim c As Range
Dim n As Integer
Dim 作業名, 作業箇所 As String
With Worksheets("書面").Columns("A:D")
Set c = .Find(what:="作業状態", LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then Exit Sub
n = c.Row
作業名 = Cells(n, 3)
作業箇所 = Cells(n + 2, 3)
End With
End Sub

お礼

さっそく貼り付けて確認してみました。
すこし変更して自分が思っていた通りの結果になりました。

[変更点]
作業名 = Cells(n, 11)
作業箇所 = Cells(n + 2, 11)

FINDで抽出した情報から行情報を取り出す事が解決への方法だったんですね。勉強になりました。ありがとうございました。

回答No.2

KURUMITO

回答Ｎｏ1です。
Ｂ列からの表でしたね。それでしたら次のようなマクロになりますね。

Sub 作業状態のエリアを作業名別に各シートに貼り付ける()
Dim c As Range
Dim n As Integer
Dim 作業名, 作業箇所 As String
With Worksheets("書面").Columns("B:D")
Set c = .Find(what:="作業状態", LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then Exit Sub
n = c.Row
作業名 = Cells(n, 4)
作業箇所 = Cells(n + 2, 4)
End With
End Sub

お礼

さっそく貼り付けて確認してみました。
すこし変更して自分が思っていた通りの結果になりました。

[変更点]
作業名 = Cells(n, 11)
作業箇所 = Cells(n + 2, 11)

FINDで抽出した情報から行情報を取り出す事が解決への方法だったんですね。勉強になりました。ありがとうございました。