どの様に思考すれば良いのでしょうか

Question

現在、マクロの自動記録にて自分が行いたい行動を記録しており下記の様な内容になりました。

Sub Macro3()
'
' Macro3 Macro
'

'
Range("T5").Select
Selection.Copy
Sheets(" 180000 (ケース2)").Select
Range("D12:D13").Select
ActiveSheet.Paste Link:=True
End Sub

基dataのT5に該当する部分から新たなシートにリンクしました。
(今回はリンクにて作業致しましたがコピペでも構わないのです)

その際にT5の行と列それぞれの項目に該当する部分に貼り付けました。

これをマクロにする場合は行と列それぞれをT5と従属関係という様な事を
しなければならないのでしょうか。

例えば基シートにT5に該当する部分を東京タワーとしTに該当する部分に東京,5にタワーと
あるし移動させるシートではA7が東京タワーに該当する場合はどの様に考えるべきでしょうか。

R1C1形式で行えないかと思い色々探して下記の内容に行きつきました
ただこれではクロスする部分が分かるだけですので
Cells(ActiveCell.Row,1).Value
Cells(1,Active.Column).Valueを組み込めば位置を特定できますでしょうか。

それとも文字を読み込みMATCH関数みたいなものを使用して比べるしか無いのでしょうか

OptionExplicit

Sub t()

Dim c As Range
Set c = ActiveCell
Debug.Print (c.Value)
End Sub

少々迷走しており変な質問かも知れませんがどうかお知恵をお貸しください。

Comments

[mather]

「例えば基シートにT5に該当する部分を東京タワーとしTに該当する部分に東京,5にタワーと あるし移動させるシートではA7が東京タワーに該当する場合はどの様に考えるべきでしょうか。」まったく意味がわからないです。質問したいことを日本語を整理してください。

[退会済みユーザー]

質問が支離滅裂で意味が分かりません。何をするコードが書きたいのですか？コードから読み取れるのは、アクティブシートのセル「T5」をコピーして、シート「180000 (ケース2)」のセル「D12:D13」にリンクとして貼り付けをする。という処理だけですが、「これをマクロにする場合は」の部分をもう少し分かりやすく説明していただかないと、どのような結果を目指しているのかが分かりません。例えば表とかサンプルデータを示して頂ければ分かりやすくなると思います。

[syoshinnsya]

コメントありがとうございます。行いたいことはAのシートからBのシートにセルの内容を移動させたい、ただしAとBのシートでは該当するセルの位置は同じではないので悩んでいます。

[m.ts10806]

質問は編集できるので適宜調整してください。

[m.ts10806]

タイトルもこれだけでは何も伝わらないので要件に寄せてください

[syoshinnsya]

コメントありがとうございます。

[退会済みユーザー]

まだ意味不明です。「例えば基シートにT5に該当する部分を東京タワーとしTに該当する部分に東京,5にタワーと あるし移動させるシートではA7が東京タワーに該当する場合はどの様に考えるべきでしょうか。」を正しい日本語にするか、ダミーのデータを埋め込んだ表に起こして下さい。TeraTailには表を作成する機能があります。Markdown記法の使い方を読んで下さい。

[m.ts10806]

(２回目)質問は編集できるので適宜調整してください。

[syoshinnsya]

コメントありがとうございます。指摘いただきました項目を踏まえ修正させていただきます。

Answer 1

表の左上の位置が決っており、項目の数が同一ならば、
マクロの登録レベルでもいけるつもり。