回答編集履歴
1
説明の追記
test
CHANGED
|
@@ -1,3 +1,5 @@
|
|
|
1
|
+
```VBA
|
|
2
|
+
|
|
1
3
|
Sub test()
|
|
2
4
|
|
|
3
5
|
Dim rngKey As Range
|
|
@@ -59,3 +61,21 @@
|
|
|
59
61
|
Next
|
|
60
62
|
|
|
61
63
|
End Sub
|
|
64
|
+
|
|
65
|
+
```
|
|
66
|
+
|
|
67
|
+
こんな感じでいいと思います。
|
|
68
|
+
|
|
69
|
+
が、セルの位置が微妙に違うかも知れません。
|
|
70
|
+
|
|
71
|
+
そちらで意図を汲み取って直していただけますか？
|
|
72
|
+
|
|
73
|
+
|
|
74
|
+
|
|
75
|
+
もしわからない部分があれば、また聞いて下さい。
|
|
76
|
+
|
|
77
|
+
処理速度とかは全然気にしてないので、
|
|
78
|
+
|
|
79
|
+
我慢できない速度ならそれも行ってください。
|
|
80
|
+
|
|
81
|
+
しかし、とりあえず動いてから、高速化は考えましょう。
|