excelデータの斜めの文字行の抽出

質問

excelデータの斜めの文字行だけを絞りこんだり、抽出することはできんるのでしょうか。

例）
行NO.
001 　　　 AAAAA
002　　　　BBBBB　<=ここがexcelでは斜めになっている
003 CCCCC
004 DDDDD <=ここがexcelでは斜めになっている

結果
002　　　　BBBBB
004 DDDDD

ＶＢＡとかでも構いません。
宜しくお願いします。

回答No.1

keithin · ベストアンサー

sub macro1()
　dim h as range
　dim target as range
　on error resume next
　set target = selection.specialcells(xlcelltypeconstants)
　set target = union(target, selection.specialcells(xlcelltypeformulas))
　application.screenupdating = false
　selection.entirerow.hidden = true

　for each h in target
　if h.font.italic then
　h.entirerow.hidden = false
　end if
　next
　application.screenupdating = true
end sub

調べたい範囲（複数列可）を選んで実行する

お礼

早速、試してみます。
ありがとうございます。

回答No.3

mate0128

私は「検索と置換」ダイアログボックスを使う方法を薦めます。

(1)A1をアクティブセルにしておいて、検索と置換ダイアログボックスを開きます。（Ctrl+F）
(2)次に検索する文字列ボックスに「*」（半角のアスタリスク）を入力します。これで入力されている全ての文字を探せるようになります。
(3)次に、ダイアログボックスの右下のオプションボタンをクリックします。
(4)そうすると、右に書式と言うボタンが出てくるので、それをクリックし、フォントタブのスタイルで斜体を選び、OKをクリックします。
(5)検索ダイアログボックスに戻るので、「次を検索」をクリックすると、斜体の文字列が入力されているセルに移動します。
下に「全て検索」と言うボタンがありますが、全てのセルが選択されるのではなく、ダイアログボックスに表示されるだけなので、「次を検索」ボタンのほうが便利かと思います。

一度試してみてくださいね。

お礼

ありがとうございます。
助かります。

回答No.2

cider4

抽出なら検索でできます。

CTRL＋Fキーを押して検索ダイアログボックスを出します。
検索窓の書式をクリックし出るダイアログボックスでフォントタブ＞斜体でokします。
文字列には何も入れません。

置換ダイアログも戻って、すべて検索・・・でいかがですか？

画面は2010ですが、他バージョンでも大丈夫かと

お礼

大変ありがとうございます。
office2002,2007です。
試してみます。