回答編集履歴
1
シートが分かれているとのことで、修正版を追記します。
test
CHANGED
@@ -51,3 +51,43 @@
|
|
51
51
|
そうでないと別のシートがアクティブになっている場合に厄介なトラブルが起きますので。
|
52
52
|
|
53
53
|
※Sheetモジュールに直接書いている場合は別ですが。
|
54
|
+
|
55
|
+
|
56
|
+
|
57
|
+
#追記
|
58
|
+
|
59
|
+
シートが分かれているとのことで、修正版を追記します。
|
60
|
+
|
61
|
+
```lang-VBA
|
62
|
+
|
63
|
+
Sub 水平変位データ()
|
64
|
+
|
65
|
+
Set Data = Worksheets("水平変位データ")
|
66
|
+
|
67
|
+
Set 転記先シート = Worksheets("1")
|
68
|
+
|
69
|
+
Set 検索範囲 = Data.Range("C3:AG25")
|
70
|
+
|
71
|
+
|
72
|
+
|
73
|
+
For 列 = 1 To 3
|
74
|
+
|
75
|
+
転記元の行 = 3
|
76
|
+
|
77
|
+
For 行 = 15 To 25
|
78
|
+
|
79
|
+
検索値 = 転記先シート.Range("DZ14").Offset(0, 列).Value
|
80
|
+
|
81
|
+
検索結果 = WorksheetFunction.HLookup(検索値, 検索範囲, 転記元の行, False)
|
82
|
+
|
83
|
+
転記先シート.Range("DZ" & 行).Offset(0, 列).Value = 検索結果
|
84
|
+
|
85
|
+
転記元の行 = 転記元の行 + 2
|
86
|
+
|
87
|
+
Next
|
88
|
+
|
89
|
+
Next
|
90
|
+
|
91
|
+
End Sub
|
92
|
+
|
93
|
+
```
|