質問: VBA(エクセル)で特定の行の転記について
回答: サンプルです。 Sub Sample() Dim m As Long Dim r As Range 'C列の最終行を求めます m = Range("C" & Rows.Count).End(xlUp).Row 'C列の最終行が4(見出しだけ)の場合は処理しません If m > 4 Then 'C列(5行目から最終行まで)で「日直」を検索 Set r = Range("C5:C" & m).Find("日直", , xlValues, xlWhole) '見つかった(Nothingでない)場合 If Not r Is Nothing Then '値をコピー Range("E2").Value = r.Offset(0, 1).Value Range("F2").Value = r.Offset(0, 2).Value Range("G2").Value = r.Offset(0, -2).Value & r.Offset(0, -1).Value End If End If End Sub 検索はFindで行っていますがApplication.WorksheetFunction.Matchという方法もあります。