[[20190626200115]]　『マクロ指定したシートに同じ処理をする』（U4）　ページの最後に飛ぶ

『マクロ指定したシートに同じ処理をする』（U4）

下記の処理をマクロで行いたいのですが、うまくいきません。
ご教示いただけると幸いです。

ファイル名：【0620】あいうえ
シート名：元D、【元D】ABC、【元D】EASの3シート
処理内容：B・C列削除、2～4行目削除

但し、上記3シートは必ずあるとは限らず、元Dシートがない場合は、【元D】ABC、【元D】EASの2シートを処理したい。

マクロ↓

Windows(処理ブック).Activate
On Error Resume Next
Sheets(Array("元D", "【元D】SBS", "【元D】YMS")).Select

  Range("B:C").Delete
  Range("2:4").Delete

  Range("A1").Select

どう修正したら良いでしょうか。
ご教示いただけると幸いです。

よろしくお願いいたします。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

こんな感じでできました

  Sub test()

    Windows(処理ブック).Activate
    On Error Resume Next

    Sheets("元D").Select
    Sheets("【元D】SBS").Select False
    Sheets("【元D】YMS").Select False

  Range("B:C").Select
  Selection.Delete
  Range("2:4").Select
  Selection.Delete
  Range("A1").Select

  ActiveSheet.Select

  End Sub

（マナ） 2019/06/26(水) 20:41

元Dがないことがあるのなら？

シート選択の順番をかえました。

 Sub test()

    Windows(処理ブック).Activate
    On Error Resume Next

    Sheets("元D】SBS").Select
    Sheets("【元D】YMS").Select False
    Sheets("元D").Select False

    Range("B:C").Select
    Selection.Delete
    Range("2:4").Select
    Selection.Delete
    Range("A1").Select

    ActiveSheet.Select

 End Sub

（マナ） 2019/06/26(水) 20:48

マナさん

ご教示いただきありがとうございます。

【元D】SBSシートしかない場合もあるのですが、

どのようにすればよいでしょうか。
（U4） 2019/06/26(水) 21:01

3シート以外のシートには、どんな名前のシートがありますか。
また、どれか１つは、必ずあるのですか。

（マナ） 2019/06/26(水) 21:07

3シート以外は、サマリ、進捗があります。

また、3シートどれか必ず１つはあります。

よろしくお願いいたします。
（U4） 2019/06/26(水) 21:11

よい方法が思いつきませんでした。

 Sub test()
    Dim ws As Worksheet

    On Error Resume Next

    For Each ws In Workbooks("処理ブック.xlsx").Worksheets
        If ws.Name Like "*元D*" Then
            ws.Select
            ws.Range("B:C").Delete
            ws.Range("2:4").Delete
            ws.Range("A1").Select
        End If
    Next

 End Sub

（マナ） 2019/06/26(水) 21:28

マナさん、ありがとうございました。

もう1点教えて下さい。

ソート1 = Cells.Find(検索文字1, LookAt:=xlWhole).Cells(2, 1).Address
ソート2 = Cells.Find(検索文字2, LookAt:=xlWhole).Cells(2, 1).Address
ソート3 = Cells.Find(検索文字3, LookAt:=xlWhole).Cells(2, 1).Address

Range("A5:AZ10000").Sort _

   Key1:=Range(ソート1), Order1:=xlAscending, Key2:=Range(ソート2), Order2:=xlAscending, Key3:=Range(ソート3), Order3:=xlAscending, _
   Header:=xlYes

↑
Range("A5:AZ10000").Sort _のA5の部分ですが、ソート3のセルアドレスと同じセルに設定したいのですが、
どのように記載すればよいでしょうか。
（U4） 2019/06/26(水) 21:40

ソート3 & ":AZ10000"

ですか

（マナ） 2019/06/26(水) 21:46

いろいろありがとうございました。
勉強になりました。
（U4） 2019/06/26(水) 21:59

コメント返信：

[ 一覧(最新更新順) ]

[[20190626200115]] 『マクロ 指定したシートに同じ処理をする』（U4） ページの最後に飛ぶ

[[20190626200115]]　『マクロ指定したシートに同じ処理をする』（U4）　ページの最後に飛ぶ