太文字だけをフィルターにかける方法

お知恵をお貸しください。
エクセルで太文字のみのデータを抽出したいのですが、どのようにフィルターをかけてよいのかわかりません。
お力をお貸しください。

No.1 ベストアンサー 回答者： merlionXX 回答日時： 2008/06/26 12:54

書式でフィルターはかけられません。

どうしてもやりたければVBAでですね。

No.2 回答者： merlionXX 回答日時： 2008/06/26 13:11

#1のmerlionXXです。

先ほどの回答ではお役に立てないと思い、以下の前提で一応VBAの方法も書いておきます。

データはA1～A100にあるとします。
太字はセル内の一部の文字でなくそのセル内の全部の文字だとします。
同じシートのD列に抜き出します。

以下の手順をおためしください。

1.Altキー＋F11キーで Visual Basic Editor画面を呼び出します。

2.画面上部のメニューバーから挿入、標準モジュールで出てきたコードウィンド（右側の白い広い部分）に以下のコードをコピペします。

'*****ここから下をコピペ*****

Sub test01()
For i = 1 To 100 'iは1から100でとする
If Cells(i, "A").Font.Bold = True Then 'もしA列i行のセルが太字に設定なら
n = n + 1 'nに１を足す
Cells(n, "D") = Cells(i, "A") 'D列n行のセルに転記
End If
Next '繰り返す
End Sub


'*****ここより上までをコピペ*****

3.Altキー+F11キーでワークシートへもどります.

4.メニューから、ツール、マクロ、マクロで出てきたマクロ名（test01）を選択して実行

これでできます。