VBAでSheet1とSheet2のリンクを比較する方法

質問

• VBAを使用してSheet1とSheet2の表を比較し、同じ名称の場合にSheet1のD列とSheet2のD列をリンクさせたい。
• 現在は関数を使用しているが、数が多くなってきたためVBAで処理しようとしている。
• 組んでみたコードでは、一部の結果が意図しないものになっているため、正しいコードに修正したい。

回答No.2

end-u · ベストアンサー

ふむ。失礼。
方針変更です。test1、test2は無かった事にしてください。
以下、■箇所のみ設定して後は相対関係で処理。

Sub test3()
　　Dim r(1 To 2) As Range　'起点セル｜Key列
　　Dim tmp　　　 As Range　'xlCellTypeBlanks用
　　Dim s　　　　 As String 'R1C1数式共通文字用
　　Dim i　　　　 As Long
　　Dim x　　　　 As Long　 '列指定用
　　Dim y　　　　 As Long　 '行指定用
　　Dim v　　　　　　　　　 'Application.Match用配列

　　'各シートのデータの起点セルを指定
　　Set r(1) = Excel.Range("Sheet1!A2")　'■
　　Set r(2) = Excel.Range("Sheet2!A21") '■

　　x = r(1).Column + 3
　　y = r(1).Row - 1
　　For i = 1 To 2
　　　　With Excel.Range(r(i), r(i).Range("C1").EntireColumn.Cells(Rows.Count).End(xlUp))
　　　　　　'空白セルだけを取得[ctrl]+[g]ジャンプ機能
　　　　　　Set tmp = .Columns("A:B").SpecialCells(xlCellTypeBlanks)
　　　　　　'直上の値をセット
　　　　　　tmp.FormulaR1C1 = "=R[-1]C"
　　　　　　'rにE列を再セット
　　　　　　Set r(i) = .Columns("E")
　　　　End With
　　　　'E列を作業エリアとして A列&B列&C列 のキーを作る
　　　　r(i).FormulaR1C1 = "=RC[-4]&RC[-3]&RC[-2]"
　　　　r(i).Value = r(i).Value
　　　　'空白セル式クリア
　　　　tmp.ClearContents
　　Next
　　'Match関数で行位置取得
　　v = Application.Match(r(2), r(1), 0)
　　'作業エリアクリア
　　r(1).ClearContents
　　r(2).ClearContents
　　s = "='" & r(1).Worksheet.Name & "'!R"
　　'Loopして数式セット
　　With r(2).Offset(, -1).Cells
　　　　For i = 1 To UBound(v)
　　　　　　If IsNumeric(v(i, 1)) Then
　　　　　　　　.Item(i).FormulaR1C1 = s & v(i, 1) + y & "C" & x
　　　　　　End If
　　　　Next
　　End With
End Sub

お礼

お返事遅くなりました。今回のは思っていた通りのものでした。
本当にありがとうございました。すごく助かりました。
また、質問させて頂くことがあると思いますが、よろしくお願い致します。
（というより、同じ仕事の系列でもう出ていますが…＾＾；）