EXCEL2000：結合したセルにオートフィルタを使用する場合

質問があります。

以下のようなリスト作成しています。
【リスト】
行　支店名　　　担当者　業績
1 東京　　　　●●　　1000
2 （↑と結合）▲▲　　2000
3 （↑と結合）◆◆　　3000
4 大阪　　　　○○　　1000
5 （↑と結合）△△　　3000
6 （↑と結合）□□　　2000

この場合、支店名の「東京」をフィルタで選択すると、担当者：●●の行（1行目）しか表示されません。

「東京」を選択した際に東京の担当者全員の行（1～3行目）が全て表示されるようにすることは可能でしょうか？

ご回答よろしくお願い致します。

No.2 ベストアンサー 回答者： WWolf 回答日時： 2004/12/06 14:39

遅くなり申し訳ありません。

＃1です。
方法は色々ありますが、下記を参考に・・・
Ａ列に”支店名”、Ｂ列に”担当者”、Ｃ列に”業績”があるとして下記のマクロはＤ列にＡ列を参照してばらしています。よってＤ列をオートフィルタですればよいと思います。
あまり複雑なマクロでは質問者様の他作業に影響もあると思いますので今の現状に限りなく近い方法でのマクロです。

Sub test()
With Worksheets(1)
i = 2
Do While Cells(i, 1).MergeCells = True Or VarType(Cells(i, 1).Value) <> 0
i = i + 1
a = VarType(Cells(i, 1).Value)
a1 = Cells(i, 1).MergeCells
Loop
For j = 2 To i - 1
a = Cells(j, 1).Value
b = Cells(j + 1, 1).Value
If VarType(a) = 8 Then
Cells(j, 4).Value = a
Else
Cells(j, 4).Value = Cells(j - 1, 4).Value
End If
Next
End With

End Sub

この回答へのお礼

お返事遅くなりまして大変申し訳ありませんでした。

この件に関しては、もう少し考えてみようと思います。

ありがとうございました。

お礼日時：2004/12/21 20:53

No.1 回答者： WWolf 回答日時： 2004/12/04 15:28

そのままオートフィルターで全て表示することはできないですよ。

どうしても結合してある状態でしたいのであれば、マクロを使えばできます。

この回答への補足

ご回答ありがとうございます。

ちなみにそれはどんなマクロを使えばよろしいでしょうか？
なにか詳しく方法等がのっているHPがありましたら教えていただければと思います。

補足日時：2004/12/04 19:58