[[20170606124623]]　『VBA　複数シートを一枚に纏める書き方』（みみか）　ページの最後に飛ぶ

『VBA　複数シートを一枚に纏める書き方』（みみか）

お世話になります
教えてください
下記の様に
複数シートを一枚に纏めていますが
売り上げ　仕入れ　この2枚のシートを除く様にしたいのですが
どの様にすればいいのでしょうか
他のシート名に共通性はありません

宜しくお願いいたします

Sub aaa()

    Dim sWS As Worksheet  'データシート（コピー元）
    Dim dWS As Worksheet  '集約用シート（コピー先）

    Set dWS = Worksheets("aaa")

    '集約用シートの2行目以降を削除
    dWS.UsedRange.Offset(2, 0).Clear

    For Each sWS In Worksheets
        If sWS.Name <> dWS.Name Then
            With sWS.UsedRange

                If .Rows.Count > 1 Then
                    .Offset(0, 0).Resize(.Rows.Count - 1).Copy _
                        Destination:=dWS.Cells(Rows.Count, 1). _
                                        End(xlUp).Offset(1, 0)
                End If

            End With
        End If
    Next sWS

End Sub

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

＞ If sWS.Name <> dWS.Name Then

        If sWS.Name <> dWS.Name And sWS.Name <> "売り上げ" And sWS.name <> "仕入れ" Then

と言う事でしょうか？
（じゅんじゅん） 2017/06/06(火) 12:56

じゅんじゅん様

有難う御座います
今後共宜しくおねがいたします
（みみか） 2017/06/06(火) 14:30

コメント返信：

[ 一覧(最新更新順) ]

[[20170606124623]] 『VBA 複数シートを一枚に纏める書き方』（みみか） ページの最後に飛ぶ

[[20170606124623]]　『VBA　複数シートを一枚に纏める書き方』（みみか）　ページの最後に飛ぶ