回答編集履歴
2
修正
answer
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
1
|
科目の順番が固定されているなら、一度にまとめてセットするのも手ですかね。
|
|
2
2
|
```VBA
|
|
3
|
-
|
|
3
|
+
ThisCh.Range("1:1").Find(ThisSh.Range("B1").Value).Resize(4).Value = ThisSh.Range("B1:B4").Value
|
|
4
4
|
```
|
1
修正
answer
CHANGED
|
@@ -1,5 +1,4 @@
|
|
|
1
1
|
科目の順番が固定されているなら、一度にまとめてセットするのも手ですかね。
|
|
2
2
|
```VBA
|
|
3
|
-
ThisCh.Range("1:1").Find(ThisSh.Range("B1")).Offset(1).Resize(3).Value = ThisSh.Range("B2:B4").Value
|
|
3
|
+
ThisCh.Range("1:1").Find(ThisSh.Range("B1").Value).Offset(1).Resize(3).Value = ThisSh.Range("B2:B4").Value
|
|
4
|
-
|
|
5
4
|
```
|