質問: Target.Value End Sub お忙しいところを恐縮ですが、どなたかご教示いただけないでしょうか。 よろしくお願いいたします。
回答: こういう事なんです?( ́・ω・) Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'A31に入力が無い場合、 If Range("A31").Value = "" Then 'A31に転記 Range("A31").Value = Target.Value 'A31に入力が有り、A33に入力が無い場合、 ElseIf Range("A33").Value = "" Then 'A33に転記 Range("A33").Value = Target.Value 'どちらも入力がある場合 Else 'は何もしない。 End If End Sub