|
▼あや さん:
こんばんわ
ひょっとして終わった感じ・・・?
>理由は、1.保存以外のタイミングで保存はしたくない
> (VBA内だと利用者が知らないうちに保存されていまう)
> 2.毎回保存をすると遅い
一応、まったく同じ理由でうちで使ってるコード出しておきますね^^
やりたいことが違ってたらごめんなさいm(_ _)m
Dim moto As String
Rows(5).Delete '試しに5行目消してみる
Selection.SpecialCells(xlCellTypeLastCell).Select '位置ずれ確認
Application.ScreenUpdating = False
Application.DisplayAlerts = False
moto = ActiveSheet.Name
ActiveSheet.Copy after:=ActiveSheet
ActiveSheet.Name = moto & "B"
Worksheets(moto).Delete
Worksheets(moto & "B").Name = moto
Selection.SpecialCells(xlCellTypeLastCell).Select '結果の確認
Application.DisplayAlerts = True
Application.ScreenUpdating = True
汎用に書き換えてありますが
原理はこれで行けるかと^^
うちのデータは
対象のシート名も固定なので
もう少し簡素化されてます。
ちなみに扱ってるデータは
A〜Nまでで500件程度のレコードです。
まぁ、サクッと動くからいいかなぁ
くらいで使ってますw
ごっそりコピってるなんて
きっとバレてないwうんうんw
jaka さん
こんばんわですw
実は質問でこのサイトに来たんですが
似たような経験があったんで^^;
でわでわ、またどこかで宜しくです^^v
|
|