[[20190610131836]] 『エクセル 色を塗り潰したセルを別シートに反映』(hero) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『エクセル 色を塗り潰したセルを別シートに反映』(hero)

エクセルでsheet1で特定のセルに色を付けました。(A列)
この色を付けたセルの値のみをsheet2に反映させたいです。(仮にB2以下に)

どのような方法がありますか?教えてください。

< 使用 Excel:Excel2013、使用 OS:Windows7 >


 >エクセルでsheet1で特定のセルに色を付けました

 この色付けに一定のルールはあるのですか?
(コナミ) 2019/06/10(月) 13:57

コナミさま ルールはございません
(hero) 2019/06/10(月) 14:12

4.0マクロ関数を使った方法です。
Excel2013は持っていませんので、Excel2010で確認しました。

A列のデータは1行目から入力されているとします。(仮に15行)
作業列(仮にK列)を使います。

手順1.セル「K1」を選択して「名前定義」に進み
  名前  : CELL13 ←任意です。
  参照範囲: =GET.CELL(13,Sheet1!$A1)+NOW()*0

手順2.ワークシートに戻りつぎの式を入力し、下にコピーします。
  K1: =IF(CELL13>0,ROW(A1),"")
  下にコピーします。

手順3.Sheet2!B2: =IF(ROW(A1)>COUNT(Sheet1!$K$1:$K$15),"",INDEX(Sheet1!$A$1:$A$15,SMALL(Sheet1!$K$1:$K$15,ROW(A1))))
  下にコピーします。

これで塗りつぶされたデータがSheet2に抽出されます。

(メジロ) 2019/06/10(月) 15:43


メジロ様
ありがとうございます。
手順2の下にコピーはK1に入力した「=IF(CELL13>0,ROW(A1),"") 」をそのままコピーしK2に貼付けでしょうか?

また、手順3は抽出したいsheet2の任意のセルへ貼付けでしょうか?宜しくお願い致します。
(hero) 2019/06/10(月) 17:16


遅くなりました。

>手順2の下にコピーは
「そのままコピーしK2に貼付けでしょうか」そのままという言葉に引っ掛かりますので
オートフィルで下にコピーしてください。

>sheet2の任意のセルへ貼付けでしょうか
その通りです。
その場合「ROW(A1)」の「A1」は変更しないでください。

(メジロ) 2019/06/11(火) 09:58


メジロ様
ありがとうございます!できました!
(hero) 2019/06/12(水) 11:28

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.