teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

シートが分かれているとのことで、修正版を追記します。

2016/02/14 12:33

投稿

thom.jp
thom.jp

スコア686

answer CHANGED
@@ -24,4 +24,24 @@
24
24
 
25
25
  全部「水平変位データ」シートで行われると解釈してますので、常にData.Rangeとしました。
26
26
  そうでないと別のシートがアクティブになっている場合に厄介なトラブルが起きますので。
27
- ※Sheetモジュールに直接書いている場合は別ですが。
27
+ ※Sheetモジュールに直接書いている場合は別ですが。
28
+
29
+ #追記
30
+ シートが分かれているとのことで、修正版を追記します。
31
+ ```lang-VBA
32
+ Sub 水平変位データ()
33
+ Set Data = Worksheets("水平変位データ")
34
+ Set 転記先シート = Worksheets("1")
35
+ Set 検索範囲 = Data.Range("C3:AG25")
36
+
37
+ For 列 = 1 To 3
38
+ 転記元の行 = 3
39
+ For 行 = 15 To 25
40
+ 検索値 = 転記先シート.Range("DZ14").Offset(0, 列).Value
41
+ 検索結果 = WorksheetFunction.HLookup(検索値, 検索範囲, 転記元の行, False)
42
+ 転記先シート.Range("DZ" & 行).Offset(0, 列).Value = 検索結果
43
+ 転記元の行 = 転記元の行 + 2
44
+ Next
45
+ Next
46
+ End Sub
47
+ ```