Excel

質問

同一のファイル内で↓の事をしたのですが、ご意見をいただけませんか?

Sheet1;
(A列) (B列) (C列) (D列)
1 fileA 10K 　● 対象外
2 fileB 20K 　▲
3 fileC 30K 　×　 対象外
4 fileD 40K 　■
.
.

Sheet2;
(A列) (B列) (C列) 　(D列)
1 fileA 10K 　
2 fileB 20K 処理済み ▲
3 fileC 30K
4 fileD 40K 処理済み ■　
5 fileZ 50K 　　
.
.

１．
(Sheet2)D列の作成です。
(Sheet1)A列を検索して、ファイルが存在すれば、ヒットした行番号の(Sheet1)C列の記号をコピーします。
ただし、(Sheet1)D列が「対象外」のときはブランクにします。
また、(Sheet2)5行目のように一致するデータが存在しない場合のエラー値「#N/A」もブランクにしたのですが
非表示にする方法が分かりません。
セル(D, 1)の定義はどのようになりますか?

=IF(VLOOKUP($A2,Sheet1!$A:$D,4,FALSE)="対象外","",ISNA(VLOOKUP($A2,Sheet1!$A:$D,4,FALSE),""),VLOOKUP($A2,Sheet1!$A:$D,3,FALSE))

２．
(Sheet2)C列の作成です。
(Sheet2)D列に記号があれば、「処理済み」をコピーします。
(Sheet2)D列と同様の列がE,F,G..と追加する予定ですが、
一度、「処理済み」をコピーすると変更できないようにしたいのですがセル(C, 1)の定義はどのようになりますか?

以上
宜しくお願い致します。

回答No.1

MSZ006 · ベストアンサー

１.
=IF(ISNA(VLOOKUP($A1,Sheet1!$A:$D,4,FALSE)),"",IF(VLOOKUP($A1,Sheet1!$A:$D,4,FALSE)="対象外","",VLOOKUP($A1,Sheet1!$A:$D,3,FALSE)))

２.
=IF((1-COUNTBLANK(D1))=0,"","処理済み")

＞一度、「処理済み」をコピーすると変更できないようにしたいのですが、

どこが変更できないようにするのでしょうか？C列でしょうか？それともD列以降？
いずれにしても関数ではできないと思います。マクロを使えば何とかなると思いますが・・・

お礼

ありがとうございました。

補足

ありがとうございます。

１．
＞一度、「処理済み」をコピーすると変更できないようにしたいのですが、

対象は(Sheet2)C列です。

２、
教えてください。
(Sheet2)C列の作成です。
(Sheet2)D列と同様の列をE,F,G..と追加します。
「処理済み」をコピーする定義ですが、汎用的に最終列を定義する方法はございますか?
あと、COUNTBLANK関数の使い方が分かりません。
↓例で(Sheet2)D列と同様のE列を追加すると常に「処理済み」がコピーされてしまいます。

=IF((1-COUNTBLANK(D1:E1))=0,"","処理済み")

以上
宜しくお願い致します。

回答No.2

MSZ006

１．
一度、C列を「処理済み」としたら、その後Ｄ列が空白になってもＣ列は「処理済み」のままにしておく、ということですよね？
関数ではできません。マクロを使えばできそうですが・・・

２．
＞(Sheet2)D列と同様の列をE,F,G..と追加します。
＞「処理済み」をコピーする定義ですが、汎用的に最終列を定義する方法はございますか?
Ｄ，Ｅ，Ｆ，Ｇ…のどこかにひとつでも記号が入っていたら「処理済み」にする、ということでしょうか？
でしたら下の関数を参照してください。

＞あと、COUNTBLANK関数の使い方が分かりません。
＞↓例で(Sheet2)D列と同様のE列を追加すると常に「処理済み」がコピーされてしまいます。

＞=IF((1-COUNTBLANK(D1:E1))=0,"","処理済み")

カウントする列がＤとＥの2列になってますから、
=IF((1-　...
を
=IF((2- ...
にします。3列だったら3-、4列だったら4-....というようになります。
この式だと、Ｄ列以降、範囲内のどれかのセルに記号が入っているときに「処理済み」となります。

補足

ありがとうございます。

汎用的に最終列を検索する方法はございますか?

VBAでは、"最終列" = Range("A1").End(xlToRight).Column です。

実施したいことは、今後、(Sheet2)D列と同じデータ項目の列がE,F,G..と増えますので↓イメージになります。
＞=IF((最終列-3)-COUNTBLANK(D1:"最終列")=0,"","処理済み")

以上
宜しくお願い致します。