回答編集履歴
1
説明の追記
answer
CHANGED
|
@@ -1,3 +1,4 @@
|
|
|
1
|
+
```VBA
|
|
1
2
|
Sub test()
|
|
2
3
|
Dim rngKey As Range
|
|
3
4
|
Dim rngFind As Range
|
|
@@ -28,4 +29,13 @@
|
|
|
28
29
|
rngTo(3, 3).Resize(, 26).Value = rngFrom(3, 10).Resize(, 26).Value
|
|
29
30
|
End If
|
|
30
31
|
Next
|
|
31
|
-
End Sub
|
|
32
|
+
End Sub
|
|
33
|
+
```
|
|
34
|
+
こんな感じでいいと思います。
|
|
35
|
+
が、セルの位置が微妙に違うかも知れません。
|
|
36
|
+
そちらで意図を汲み取って直していただけますか？
|
|
37
|
+
|
|
38
|
+
もしわからない部分があれば、また聞いて下さい。
|
|
39
|
+
処理速度とかは全然気にしてないので、
|
|
40
|
+
我慢できない速度ならそれも行ってください。
|
|
41
|
+
しかし、とりあえず動いてから、高速化は考えましょう。
|