Excelで複数条件を満たすのは何行目？

質問

Excel VBAにてどういう方法があるのか考えています。

A列はHかL、B列は1,2,3のようなデータにおいて
　条件1：A列はH
　条件2：B列が2
を満たす行は何行目かを探して、C列のその行のセルに
コピーしていたデータを貼り付けたい
(この場合、2つの条件で重複する行はありません)

A列　B列　C列
H　　1
H　　2　　■←ここへ貼り付け
H　　3
L　　1
L　　2
L　　3

この場合は、2行目なので、C列の2行目のセルをselectしてpasteしたいのです。
良い方法をご存じの方、よろしくお願いいたします。

回答No.1

SI299792 · ベストアンサー

コピーは手作業で行い、磔だけ行えばいいですね。
コピーしていなければ、磔されません。

Option Explicit
'
Sub Macro1()
　　Dim RowP As Long
'
　　For RowP = 1 To Cells(Rows.Count, "A").End(xlUp).Row
'
　　　　If Cells(RowP, "A") = "H" And Cells(RowP, "B") = 2 Then
　　　　　　On Error Resume Next
　　　　　　Cells(RowP, "C").PasteSpecial xlPasteAll
　　　　　　On Error GoTo 0
　　　　　　End
　　　　End If
　　Next RowP
'
　　MsgBox "H 2 がありません", vbCritical
End Sub