ワークシート関数では実現できないと思うので、ユーザー関数 InterCell を作ってみました。
まず、以下のコードを ThisWorkbookにコピーしてください。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sh.Calculate
End Sub
次に、以下のコードを標準モジュールにコピーしてください。
Public Function InterCell() As Variant
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = Range("C1:D1")
Set rng2 = Range("B2:B11")
With Selection
If .Count = 2 Then
If (Not Intersect(.Areas(1), rng1) Is Nothing) And (Not Intersect(.Areas(2), rng2) Is Nothing) Then
InterCell = Cells(.Areas(2).Row, .Areas(1).Column).Value
ElseIf (Not Intersect(.Areas(1), rng2) Is Nothing) And (Not Intersect(.Areas(2), rng1) Is Nothing) Then
InterCell = Cells(.Areas(1).Row, .Areas(2).Column).Value
Else
InterCell = CVErr(xlErrRef)
End If
End If
End With
Set rng1 = Nothing
Set rng2 = Nothing
End Function
最後に、結果を返したいセルに以下のように入力して下さい。
=InterCell()
１つ目のセルを選択し、ctrlキーを押しながら２つ目のセルを選択して下さい。
InterCell を入力したセルに結果が返ります。
選択した２つのセルが有効範囲（"C1:D1","B2:B11"）にない場合は＃REF! エラーが起きるようにしてあります。
