Ｐａｇｅ 424 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ワークシートの上書きについて あみやき 02/12/2(月) 21:05 ┗Re:ワークシートの上書きについて あみやき 02/12/2(月) 21:59 ┗Re:ワークシートの上書きについて Nakamura 02/12/2(月) 22:41 ┗Re:ワークシートの上書きについて あみやき 02/12/3(火) 13:28 ┗Re:ワークシートの上書きについて Nakamura 02/12/3(火) 22:28 ─────────────────────────────────────── ■題名 ： ワークシートの上書きについて ■名前 ： あみやき ■日付 ： 02/12/2(月) 21:05 -------------------------------------------------------------------------
| みなさんこんばんは。 いつもお世話になっております。 よろしくお願いします。 ワークシートを名前を指定して、コピーしたいのですが、既にそのワークシート名が 存在する場合は既存のシートを削除し、新たにその名前で保存したいのですが、 ワークシートが存在するかどうか、調べる方法がわかりません。 どなたかご指導くださいm(__)m |
| ちょっと表現したいことが違かったので、訂正します。 あるシート（例えば、”Sheet1”とします）のＡ列からＣ列のデータをセル８以降（Ａ８〜データの最後＆Ｂ８〜データの最後＆Ｃ８〜データの最後※データがどこまであるかはその時によります。）を存在するかしないか不明なシート（SheetＢ※もしない場合は”sheet１”の後に追加します。）のＡ〜Ｃ列のセル１〜にコピーをします。 以上のような処理を行うためにはどうすればよろしいでしょうか？ 誰か教えてくださいm(__)mお願いします。 |
| こんばんは こんな感じでどうでしょう。 "Sheet1"のＡＢＣ列のデータ数は同じとして Sub test() If Wksh_Sch("SheetB") = False Then Worksheets.Add after:=Worksheets("Sheet1") ActiveSheet.Name = "SheetB" End If With Worksheets("Sheet1") .Range("A8", .Range("C65536").End(xlUp).Address).Copy Worksheets("SheetB").Range("A1") End With End Sub Function Wksh_Sch(ByVal WshName As String) As Boolean Dim sh As Worksheet For Each sh In Worksheets If sh.Name = WshName Then Wksh_Sch = True End If Next End Function それでは |
| こんにちは。 回答ありがとうございました。 試させていただいたのですが、コピーがうまくできないのですが、何か原因があるのでしょうか？ |
| ▼あみやき さん： >こんにちは。 >回答ありがとうございました。 >試させていただいたのですが、コピーがうまくできないのですが、何か原因があるのでしょうか？ こんばんは どの様に上手く行かないのですか？ |