回答編集履歴
2
修正
test
CHANGED
|
@@ -2,6 +2,6 @@
|
|
|
2
2
|
|
|
3
3
|
```VBA
|
|
4
4
|
|
|
5
|
-
|
|
5
|
+
ThisCh.Range("1:1").Find(ThisSh.Range("B1").Value).Resize(4).Value = ThisSh.Range("B1:B4").Value
|
|
6
6
|
|
|
7
7
|
```
|
1
修正
test
CHANGED
|
@@ -2,8 +2,6 @@
|
|
|
2
2
|
|
|
3
3
|
```VBA
|
|
4
4
|
|
|
5
|
-
ThisCh.Range("1:1").Find(ThisSh.Range("B1")).Offset(1).Resize(3).Value = ThisSh.Range("B2:B4").Value
|
|
5
|
+
ThisCh.Range("1:1").Find(ThisSh.Range("B1").Value).Offset(1).Resize(3).Value = ThisSh.Range("B2:B4").Value
|
|
6
|
-
|
|
7
|
-
|
|
8
6
|
|
|
9
7
|
```
|