エクセル２００３なのですが

質問

はじめまして、仕事でエクセルのマクロをまかされたのですが
なにもやったことないど素人なもので・・・
ネットでひたすら勉強したものの息詰まってしまっていて
ご教授願いたく書き込んでおります。
AとB　二つの集計を取るシートがあります。
Aでは３．４のシートの集計を
Bでは１，２，３，４，５，６のシートの集計を取りたいです。
現在、マクロでAとBのシートに１，２，３，４，５，６の集計を
取るようなマクロになってしまっています。
この既存のマクロの状態でちょっとしたソースを加えるだけで
Aのシートを３，４だけのシートの集計をとるようにできませんか？
やはり、AシートとBシート個別にマクロ設定していくのが
ベストなのでしょうか・・・
なにか、足らない部分があればご質問ください。
お願いいたします。

回答No.3

Wendy02

こんばんは。#2 です。

以下のコードは、すべてを削除してしまうことですが、少し、戸惑いを感じます。

Cells.Select
Selection.Delete shift:=xlUp

無駄というよりも、場所を特定してよいのか分からないので、当面、分かる範囲だけでループを付けさせていただきました。

一応、そちらで、マクロのステップモードで、試してみてください。外れる部分があるようでしたら、その部分を直すか、ここにつけてください。

Sub TestLoop()
　　Dim KBN As String
　　Dim ASN As String
　　Dim Counter As Integer
　　Dim Counter2 As Integer
　　Dim flg As Boolean
　　Dim joken As String
　　Dim joken2 As String
　　Dim arSH As Variant
　　Dim v As Variant

　　'Aでは３．４のシートの集計を
　　'Bでは１，２，３，４，５，６

　　Counter2 = 0

　　If Counter2 = 0 Then
　　　　KBN = "A"
　　　　arSH = Array("3", "4")
　　Else
　　　　KBN = "B"
　　　　arSH = Array("1", "2", "3", "4", "5", "6")
　　End If
　　'Cells.Select
　　'Selection.Delete shift:=xlUp

　　Worksheets("syori").Select　'もしかしたら、最初のシート
　　ActiveSheet.UsedRange.ClearContents ' Clear
　　Range("B4").Select

　　For Each v In arSH
　　　　With Worksheets(v)
　　　　　　flg = 0
　　　　　　.Select
　　　　　　ASN = .Name
　　　　　　Rows(4).Select
　　　　　　Selection.AutoFilter
　　　　　　Range("A4").Select
　　　　　　If Range("A5") <> "" Then
　　　　　　　　If KBN = "A" Then
　　　　　　　　　　joken = "<>○"
　　　　　　　　Else
　　　　　　　　　　joken = "=○"
　　　　　　　　End If
　　　　　　　　Range("A4").AutoFilter Field:=3, Criteria1:=joken
　　　　　　　　If KBN = "B" And ASN = "6" Then
　　　　　　　　　　If flg = 0 Then
　　　　　　　　　　　　joken2 = "=○"
　　　　　　　　　　Else
　　　　　　　　　　　　joken2 = "<>○"
　　　　　　　　　　End If
　　　　　　　　　　Range("A4").AutoFilter Field:=4, Criteria1:=joken2
　　　　　　　　End If
　　　　　　End If
　　　　　　Range("A4").AutoFilter
　　　　　　Range("A4").Select

　　　　　　'たぶん、以下のIf～End If は、余分だと思います。
　　　　　　If KBN = "B" Then
　　　　　　　　If ASN = "6" Then
　　　　　　　　　　If flg = 0 Then
　　　　　　　　　　　　flg = 1
　　　　　　　　　　End If
　　　　　　　　End If
　　　　　　Else
　　　　　　　　If (ASN = "syori") Then
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　End If
　　　　 End With
　　Next v
End Sub

お礼

早速、仕事場でテストしてみようとおもいます。
デリートする理由は作業用のシートをつくって
それをコピーペーストするような形にしていたので
そうなっておりました。

また、テストが終了しだいお知らせいたします。

中途半端なソースからアドバイスいただきありがとうございます。

補足

アドバイス通りやってみましたところ
なんとか通りました。

一部書き直しただけでできたので
本当に助かりました。

改めて、ありがとうございました。