先頭のとなりの数字のみ抽出

質問

下のような段が1000段くらいあります。
ーーーーーーーーーーーーーーーーーーーーーーーーーーーー
　TRUE　9←を抽出したい
　TRUE　2
　TRUE　3
　FALSE 4
　FALSE 4
　TRIE 6←を抽出したい
TRUE 3
　FALSE 2
ーーーーーーーーーーーーーーーーーーーーーーーーーーーー
このようにセルに数字とTRUEとFALSEが入力してあるのですが
連続して並んだ最初のTRUEの隣の数字のみ（上の例の「←を抽出したい」の数字）抽出しなければいけません。

こんなケースの場合に役に立ちそうな関数か手法はないでしょうか？

回答No.1

KURUMITO · ベストアンサー

Ａ列にＴＲＵＥやＦＡＬＳＥがあってＢ列に数値があるのでしたらＣ１セルに次の式を入力して下方にオートフィルドラッグします。
=IF(AND(A1="TRUE",A2="TRUE"),B1,"")
TRUE9などと数値と一体でＡ列にあるとしたらＢ列に次の式を入力して下方にオートフィルドラッグします。
=IF(AND(LEFT(A1,4)="TRUE",LEFT(A1,4)=LEFT(A2,4)),RIGHT(A1,LEN(A1)-4),"")

回答No.7

kmetu

No2です
TRUEの隣の数字のみというのを見逃していました

If Range("A" & i).Value = Range("A" & i + 1) And flg = False Then
のところを
If Range("A" & i).Value = Range("A" & i + 1) And Range("A" & i) = True And flg = False Then
もしくは（TRUEが文字列として入っている場合)
If Range("A" & i).Value = Range("A" & i + 1) And Range("A" & i) = "TRUE" And flg = False Then

に変更してください。

回答No.6

a987654

Ｎｏ３，５です。御免なさい修正すべきところを間違えなした。

ただしくは
＞Ｂ２セルに　=RIGHT(TRIM(A1),1)
→Ｂ１セルに　=RIGHT(TRIM(A1),1)
＞Ｂ３セルに　
=IF(AND(LEFT(TRIM(A1),2)="FA",LEFT(TRIM(A2),2)="TR"),RIGHT(TRIM(A2),1),"")
→Ｂ２セルに　
＞Ｂ４セル以降は必要分だけコピー
Ｂ３セル以降は必要分だけコピー

重ね重ね失礼しました。

回答No.5

a987654

Ｎｏ３です。
ミスプリをしました。
＞エクセルであり、Ａ１からデータが質問の表記通りに数値まで
→エクセルであり、Ａ２からデータが質問の表記通りに数値まで
に変更してください。

回答No.4

KURUMITO

解答Ｎｏ１です。
２行目からデータがあるとして次のように式を変えてください。
Ａ列にＴＲＵＥやＦＡＬＳＥがあってＢ列に数値があるのでしたらＣ２セルに次の式を入力して下方にオートフィルドラッグします。
=IF(AND(A1<>"TRUE",A2="TRUE",A3="TRUE"),B2,"")
TRUE9などと数値と一体でＡ列にあるとしたらＢ列に次の式を入力して下方にオートフィルドラッグします。
=IF(AND(LEFT(A1,4)<>"TRUE",LEFT(A2,4)="TRUE",LEFT(A2,4)=LEFT(A3,4)),RIGHT(A2,LEN(A2)-4),"")

回答No.3

a987654

単純なミスプリでしょうか？
それとも相当な罠を張った質問でしょうか？（だとしたら悪質）

１．エクセルと考えてよいのでしょうか？
２．”TRUE　9”というのは１つのセルに文字として記載されて
　いるのでしょうか、それとも列が分かれているのでしょうか？
３．先頭にブランクがあったり、なかったり
　　文字と数字の間にブランクがあったりなかったり
４．＞TRIE 6←を抽出したい
　この部分は他はＴＲＵＥとなっているのにここだけ違います。

てなところで
エクセルであり、Ａ１からデータが質問の表記通りに数値まで
文字列で１つのセルに入っているものと仮定して次のように
なります。

Ｂ２セルに　=RIGHT(TRIM(A1),1)
Ｂ３セルに　
=IF(AND(LEFT(TRIM(A1),2)="FA",LEFT(TRIM(A2),2)="TR"),RIGHT(TRIM(A2),1),"")
Ｂ４セル以降は必要分だけコピー

以上

回答No.2

kmetu

Sub test()

Dim i
Dim flg As Boolean

flg = False

For i = 1 To Range("A" & Rows.Count).End(xlUp).Row

If Range("A" & i).Value = Range("A" & i + 1) And flg = False Then
Range("C" & i).Value = Range("B" & i).Value
flg = True
Else
Range("C" & i).Value = ""
If Range("A" & i).Value <> Range("A" & i + 1) Then
flg = False
End If
End If
Next i

End Sub

というマクロでいかがでしょう