【Excel】特定セルを抽出したい(´・ω・`)

質問

いつもお世話になっております。

A1からA100まで縦にズラッと文字列が入ったセルがあるとします。
その中に赤のフォントで入力されているセルがいくつかあります。
それらを抽出して違う列、もしくは別シートに一覧表示させたいのです。

マクロの経験も薄いため思いつきません。お知恵を貸してください。m(__)m

回答No.1

ttyp03 · ベストアンサー

ショボいけどこんなの作りました。
関数名は適当に変更して、どこか適当に下記コードを貼り付けてください。
[ツール]-[マクロ]-[マクロ] から下記関数名を選択し、実行してください。

Sub Macro1()
Dim y1 As Integer
Dim y2 As Integer
y2 = 1
For y1 = 1 To 100
If Cells(y1, 1).Font.ColorIndex = 3 Then
Cells(y2, 2) = Cells(y1, 1)
y2 = y2 + 1
End If
Next
End Sub

お礼

全然しょぼくないです!
まさに思った通りの処理になりました!
どうもありがとうございました！

回答No.2

mshr1962

下記のサイトが参考になります。
エクセル技道場
文字の色が赤のセルをイタリックに
http://www2.odn.ne.jp/excel/waza/macro.html#SEC7

名前定義で4.0マクロ関数を使う
http://www2.odn.ne.jp/excel/waza/name.html#SEC23

この辺りが参考になるかと．．．

お礼

ありがとう。