|
追記です
>できなければ
>元シートをいったん値コピーしてから実行したいと思います
ですが
Sheets("moto").Select
Sheets("moto").Copy Before:=Sheets(3)
ActiveSheet.Name = "tmp_moto"
ActiveSheet.Calculate 'これを入れないと数式部が#VALUE!になる
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
上記のように
ActiveSheet.Calculate 'これを入れないと
次の値コピーで連番が #VALUE! になってしまいました
で
'test03 SpecialCells Copy → Past
時では
ActiveSheet.Calculate
入れるところがないと思われ無理な気がしてきました
ちなみに
Sheets("moto")は
?ActiveSheet.EnableCalculation
True
となっていました
何かありましたらよろしくお願いいたします
|
|