[[20020904130246]]　『色付けした文字を別セルへ一括で取り出したい』（ひゆ）　ページの最後に飛ぶ

『色付けした文字を別セルへ一括で取り出したい』（ひゆ）

名簿のようなデータの中から特定の色付けした文字を

隣り(必ずしも隣りでなくても良いのですが)のセルへ

一括で取り出す方法ほ教えて頂けないでしょうか？

例えば行A5セルに赤色で田中太郎、

A25セルに赤色で山田花子等々とあったしとて、

それを一括で別セルへ取り出す方法はないでしょうか？

これもまた手作業でいくとコピー＆貼り付けの繰り返しで、

大変困っております。

どうぞ宜しくお願い致します。

 事務局長kazuさんの『（e1k）赤い文字のセルだけ合計したい』を

 参考に作ったユーザー関数です。

 を参照してください

      A          B

 1 田中太郎   田中太郎

 2 山田花子         0

 3 kazu       kazu

 4 シニア     シニア

 5 sakura          0

 B1には

 =fcif(A1, 3)

 と入力して、下へフィルします。

 （B列に名前が取り出されるのは赤い文字の名前です）

 そのあとメニューの[編集]-[ジャンプ]より [セルの選択]ボタンを押して、

 選択オプションより数式の数値のみにチェックを入れ[OK]ボタンを押します。

 0が選択されるので、メニューの[編集]-[削除]で0が入ったセルを削除してしまいましょう。

 （ramrun）

 以下を標準モジュールに貼り付けます。

 Function FCif(adr, clr)

   fci = adr.Font.ColorIndex

   If fci = clr Then FCif = adr.Value

 End Function

 Function FC(adr)

   FC = adr.Font.ColorIndex

 End Function

コメント返信：