回答編集履歴

1

コード修正

2020/11/04 02:29

投稿

hatena19
hatena19

スコア33810

test CHANGED
@@ -10,7 +10,7 @@
10
10
 
11
11
  For i = 2 To Worksheets.Count
12
12
 
13
- Worksheets(i).Range("B2:D17").Value = Worksheets("Sheet1").Range("B2:D17").Value
13
+ Worksheets(i).Range("B2:D17").Value = Worksheets(1).Range("B2:D17").Value
14
14
 
15
15
  Next i
16
16