データを抽出し、フラグを立てる

Question

E列に入力する関数でも、マクロでも良いので、E列にフラグを立てるようにしたいです。

複雑でうまく説明出来ていないかも知れませんが、どうぞよろしくお願いいたします。

1. C列が「C'」から始まるものがあれば、その行のセルAを見る。
2. A列に同じ数字がないか探す。あった場合、その行のセルCが何の文字から始まるかを見る。
3. そのセルCが、"A","B","D","E","F"で始まる場合、1.で最初に見たC'から始まるセルCと
　　同じ行のセルEに、セルCの値を入れる。

【実行前】

A列　　　　B列　　　　C列　　　　　　D列　　　　E列
222　　　　AAAA　　　C'あああ　　　ABC
222　　　　HHHH　　　Bととと　　　　QWN
333　　　　GGGG　　　ウウウ　　　　DGG
111　　　　BBBB　　　C'ううう　　　　FUI
444　　　　CCCC　　　C'えええ　　　KOL
444　　　　KKKK　　　C'おおお　　　MYT
444　　　　LLLL　　　C'おおお　　　REF
999　　　　DDDD　　　イイイ　　　　 VGC
777　　　　EEEE　　　C'ききき　　　　XSH
777　　　　UUUU　　　Fかかか　　　ZOL

【完成イメージ】

A列　　　　B列　　　　C列　　　　　　D列　　　　E列
222　　　　AAAA　　　C'あああ　　　ABC　　　C'あああ
222　　　　HHHH　　　Bととと　　　　QWN
333　　　　GGGG　　　ウウウ　　　　DGG
111　　　　BBBB　　　C'ううう　　　　FUI
444　　　　CCCC　　　C'えええ　　　KOL
444　　　　KKKK　　　C'おおお　　　MYT
444　　　　LLLL　　　C'おおお　　　REF
999　　　　DDDD　　　イイイ　　　　 VGC
777　　　　EEEE　　　C'ききき　　　　XSH　　　C'ききき
777　　　　UUUU　　　Fかかか　　　ZOL

merlionXX · Accepted Answer

merlionXXです。
補足をみました。

> どの部分を修正したらよろしいでしょうか？

こういうことかな？

Sub test02()
　　Dim myV
　　Dim myStr As String, i As Long, n As Long
　　myV = Range("A1:E1", Range("A1:E1").End(xlDown)).Value
　　myStr = "ABDEF"
　　For i = 1 To UBound(myV)
　　　　If Left(myV(i, 3), 2) = "C'" Then
　　　　　　For n = 1 To UBound(myV)
　　　　　　　　If myV(i, 1) = myV(n, 1) Then
　　　　　　　　　　If InStr(myStr, Left(myV(n, 3), 1)) > 0 Then
　　　　　　　　　　　　myV(i, 5) = myV(i, 3)
　　　　　　　　　　　　myV(n, 5) = myV(n, 3)
　　　　　　　　　　End If
　　　　　　　　End If
　　　　　　Next n
　　　　End If
　　Next i
　　Range("A1").Resize(UBound(myV), UBound(myV, 2)).Value = myV
End Sub

layy · Answer

参考。

事例では、Ａ列がある程度固まって並んでいます。
実際はどうでしょう？。

222　　　　AAAA　　　C'あああ　　　ABC　　　C'あああ
333　　　　GGGG　　　ウウウ　　　　DGG
111　　　　BBBB　　　C'ううう　　　　FUI
222　　　　HHHH　　　Bととと　　　　QWN

念のため、上記みたいな並びはありますか？。

＞For i = 1 To UBound(myV)
C列が「C'」から始まるものがあれば・・・の検索

＞For n = 1 To UBound(myV)
A列に同じ数字がないか探す、の検索

例えば、１０００行あれば、
１行目のC列に見つかれば１～１０００まで探す、
３行目のC列に見つかればまた１～１０００まで探す、
みたいなことになってます。

Ａ列の単位で並べられていて、同じものが離れていないのであれば、
Ａ列の値が変われば探す必要なし、となるので
処理は今より早くなります。

111
222
222
333
444
444
444
777
777
999
みたいに。

＞InStr(myStr, Left(myV(n, 3), 1)) > 0
文字が存在するかチェックです。
あればその位置を返しますから、＞０は存在したことを意味する。
「"A","B","D","E","F"で始まる場合」に使ってます。

自己解決できないのであれば、
長い関数やコードを提示してもらった場合は、説明ももらうようにしないと
また悩むことになりかねないです。

layy · Answer

Ｃ列の判定
Ａ列の判定
でもって
Ｅ列に何かセットしなければならないだろう、というのは絞られて来ます。３分の１以下くらいでは？。
それでも関数やマクロでしょうか？。

Ａ列にあるか探す、無駄が起きる操作です。
大量だから関数やマクロかもしれませんが、作業情報列作るとかした方がわかりやすいです。

関数、判定が合っているか？、はわかるようにしておくこと。見てなにやっているか後々わかりにくい。


並べ替えるとかは考えないですか。333や999は関係ないとわかってますから工夫できないか？。

merlionXX · Answer

関数では思いつきませんのでマクロにしました。
標準モジュールに書いてください。

表はA1からあるものとします。
一例です。

Sub test01()
　　Dim myV
　　Dim myStr As String, i As Long, n As Long
　　myV = Range("A1:E1", Range("A1:E1").End(xlDown)).Value
　　myStr = "ABDEF"
　　For i = 1 To UBound(myV)
　　　　If Left(myV(i, 3), 2) = "C'" Then
　　　　　　For n = 1 To UBound(myV)
　　　　　　　　If myV(i, 1) = myV(n, 1) Then
　　　　　　　　　　If InStr(myStr, Left(myV(n, 3), 1)) > 0 Then
　　　　　　　　　　　　myV(i, 5) = myV(i, 3)
　　　　　　　　　　End If
　　　　　　　　End If
　　　　　　Next n
　　　　End If
　　Next i
　　Range("A1").Resize(UBound(myV), UBound(myV, 2)).Value = myV
End Sub

MRT1452 · Answer

セル式で作るのは無理だと思います。途中でループが入るし。

1. C列が「C'」から始まるものがあれば、その行のセルAを見る。

単純なIF判定。一致しなければ、２、３は飛ばす。
ただし、ここで必要な情報は全て持つ必要あり。（２、３に影響）

2. A列に同じ数字がないか探す。あった場合、その行のセルCが何の文字から始まるかを見る。

最初から、もしくは特定位置からループで総ナメしてチェック。

3. そのセルCが、"A","B","D","E","F"で始まる場合、1.で最初に見たC'から始まるセルCと
　　同じ行のセルEに、セルCの値を入れる。

２のループ内でIF判定。１で取得した値等を使用

あと、１～３までを全行分、回すループで囲む必要有り。

参考まで。

KURUMITO · Answer

E1セルには次の式を入力し下方にオートフィルドラッグします。

=IF(LEFT(C1,2)<>"C'","",IF(SUMPRODUCT((A$1:A$1000=A1)*(LEFT(C$1:C$1000,1)="A"))+SUMPRODUCT((A$1:A$1000=A1)*(LEFT(C$1:C$1000,1)="B"))+SUMPRODUCT((A$1:A$1000=A1)*(LEFT(C$1:C$1000,1)="D"))+SUMPRODUCT((A$1:A$1000=A1)*(LEFT(C$1:C$1000,1)="E"))+SUMPRODUCT((A$1:A$1000=A1)*(LEFT(C$1:C$1000,1)="F"))>0,C1,""))

データを抽出し、フラグを立てる

merlionXXです。

参考。

Ｃ列の判定

関数では思いつきませんのでマクロにしました。

この回答への補足

セル式で作るのは無理だと思います。

E1セルには次の式を入力し下方にオートフィルドラッグします。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング