回答編集履歴

1

訂正\) i=1 からなので offset の最初は i-1 からが正しい

2017/01/24 12:40

投稿

takito
takito

スコア3111

test CHANGED
@@ -36,7 +36,7 @@
36
36
 
37
37
  Sheets("sheet" & i).Select 'シート名部分を sheet と i で組み合わせて作る
38
38
 
39
- ActiveSheet.Name = op.Range("B2").offset(i,0).Value 'B2セルを先頭に行方向にオフセット
39
+ ActiveSheet.Name = op.Range("B2").offset(i-1,0).Value 'B2セルを先頭に行方向にオフセット
40
40
 
41
41
  Next
42
42