|
ループは実行されているのですが、セル内容の部分がループしていないようで、
Empty値になったままになっていました。
NameCの中を見ていると、1週目はセルの内容を読みこんでくれていたのですが、
2週目から読みこめていないようでした。
CopyVとNameV自体ループはしているみたいです。
「セル内容=」の部分の位置を変えてみたら1週目は無事にセル内容のところに読み込みました。ループの中身を、
For i = LBound(nameV) To UBound(nameV)
Set NameC = shM.Range(nameV(i)) '保存ブック名セル
Set myR = shF.Range(CopyV(i)) '転記元領域
myR.Copy shT.Range("A3")
セル内容 = NameC.Value
Application.DisplayAlerts = False '同名ブックがあれば無条件上書き
'マクロブックの複製ブックを新規作成
ThisWorkbook.SaveCopyAs パス名 & "\" & セル内容 & ".xlsm"
'次のコピーのため、転記した領域をクリア
shT.Range("A3").Resize(myR.Rows.Count, myR.Columns.Count).ClearContents
のように変更してみました。
それから、「転記領域サイズが、必ずしも一定ではないようですので」といわれて初めて気付いたのですが、
一部範囲指定を間違えてしまっていました、
正しくは"A2:R272", "A273:R543", "A544:R814", "A815:R1085", "A1086:R1356", "A1357:R1627"です、すみません・・・
|
|