エクセルの質問です。よろしくお願いいたします。

質問

エクセルの質問です。
●シート１のF５が９～１２だったらシート２のB１にシート１のB５の文字が入る、カラだったらカラがはいるようにしました。シート２のB１に下記を入れました。

=IF(AND(シート１!F5>=9,シート１!F5<12),IF(シート１!B5="","",シート１!B5),"")

●同じくシート１のF５が１２～１６だったらシート3のB１にシート１のB５の文字が入る、カラだったらカラがはいるようにしました。シート３のB１に同じようにいれました。（数字を変えて）
●同じくシート１のF５が１６以上だったらシート４のB１にシート１のB５の文字が入る、カラだったらカラがはいるようにしました。シート４のB１に同じようにいれました。（数字を変えて）

そうするとこんな問題ができました。

シート１　　　　　　　　　　　　　　　シート２　　　　　　　　シート３　　　　　　　　シート４
Bの列 　 Fの列 　　　　　　　Bの列　　　　　　　　　Bの列　　　　　　　　　　Bの列

ああ　　　　9　　　　　　　　　　　　ああ
いい　　　　13　　　　　　　　　　　　　　　　　　　　　　　　　いい
うう　 　　　17　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　うう　　
ええ　　　　10　　　　　 　　　　　　ええ
おお　　　　14　　　　　　　　　　　　　　　　　　　　　　　　　おお
かか　　　　16　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　かか

シート２・３・４を上に勝手につめれるようにしたいのですが、お答えできますでしょうか？

シート１　　　　　　　　　　　　　　　シート２　　　　　　　　シート３　　　　　　　　シート４
Bの列 　　 Fの列 　　　　　　　Bの列　　　　　　　　　Bの列　　　　　　　　　　Bの列

ああ　　　　9　　　　　　　　　　　　ああ　　　　　　　　　　　いい　　　　　　　　　　　うう
いい　　　　13　　　　　　 　　　　　ええ　　　　　　　　　　　おお　　　　　　　　　　　かか
うう 　　　　17　　　
ええ　　　　10　
おお　　　　14
かか　　　　16　　　　 　　　　　　

こんな感じに勝手になれれば成功です。
何卒よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

Ｇ列に９から１２の番号を計算させ、その番号を手掛かりにシート２に「ああ」と「ええ」を取ってくることに成功しました。

あとは単純な応用で、同様にＨ列に１２から１６の番号、Ｉ列に１６以上の番号をそれぞれ全く同じように並べ、各シートで番号を手掛かりにそれぞれ該当する値を引っ張ってこさせます。

添付図：
シート１のＨ５には
=IF(AND($B5<>"",12<=$F5,$F5<16),COUNT(H$4:H4)+1,"")
以下コピー

シート３のＡ１は
=IF(ROW(A1)>MAX(Sheet1!H:H),"",ROW(A1))
以下コピー

シート３のＢ１は
=IF(A1="","",INDEX(Sheet1!$B$5:$B$999,MATCH(A1,Sheet1!$H$5:$H$999,0)))
以下コピー

先ほどの９－１２の数式と並べて、よく理解してください。同じことを既に２回教わりましたので、シート３向けの数式は、今度は自力で作成してみてください。

＃補足
実際にはシート１のＧ，Ｈ，Ｉ列の計算は、わざわざシート１に置いておく必要は全くありません。
たとえばＧ列の計算内容をシート２のＡ列に並べ、もしまだ必要ならＢ列に上から詰めた１，２，３を並べ、Ｃ列に答えを並べるように配置して、シート１をすっきりさせておくのもありです。

補足

できました。ありがとうございます。
本当にありがとうございます。

シート１のB１が何もない場合の対処があれば…
””が返すようにしたいのですが、どこにifをいれればいいのかわからず…

よければB１が空の場合””がシート２のB1に返す記述をお願いいたします。

gooの教えては初めて今回使いましてどうすれば最高にお礼ができるのかわからずなので
何かありましたら言ってください、是非そうさせていただきますので。

すみません、何卒よろしくお願いいたします。

回答No.3

keithin

こんばんは。

添付図：
シート１のＨ５
=IF(AND(12<=$F5,$F5<16),COUNT(H$4:H4)+1,"")
以下コピー

シート３のＢ１：
=IF(A1="","",INDEX(Sheet1!$B$5:$B$999,MATCH(A1,Sheet1!$H$5:$H$999,0)))&""

回答No.2

tom04

こんばんは！
すでに的確な回答は出ていますが・・・

VBAでの一例です。

※　仮に各Sheetに数式が入っている場合、マクロを実行するとすべて消えてしまいますので
新たにBookを開き、Sheet1にデータをコピー＆ペーストしてからマクロを試してみて下さい。
・新規BookにはSheet4まで必ずSheetを挿入しておいてください。
・Sheet1はSheet見出しの一番左側に配置しておきます。

Alt＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub 振り分け() 'この行から
Dim i As Long
Dim k As Long
Dim tmp As Variant
Dim ws As Worksheet
Set ws = Worksheets("Sheet1") '←「Sheet1」は実際のシート名に！
For k = 2 To 4
Worksheets(k).Cells.ClearContents
Next k
For i = 5 To ws.Cells(Rows.Count, 2).End(xlUp).Row
tmp = ws.Cells(i, 6)
If tmp >= 9 Then
Select Case tmp
Case Is < 12
With Worksheets(2).Cells(Rows.Count, 2).End(xlUp).Offset(1)
.Value = ws.Cells(i, 2)
.Offset(, -1) = Worksheets(2).Cells(Rows.Count, 2).End(xlUp).Row - 1
End With
Case Is < 16
With Worksheets(3).Cells(Rows.Count, 2).End(xlUp).Offset(1)
.Value = ws.Cells(i, 2)
.Offset(, -1) = Worksheets(3).Cells(Rows.Count, 2).End(xlUp).Row - 1
End With
Case Else
With Worksheets(4).Cells(Rows.Count, 2).End(xlUp).Offset(1)
.Value = ws.Cells(i, 2)
.Offset(, -1) = Worksheets(4).Cells(Rows.Count, 2).End(xlUp).Row - 1
End With
End Select
End If
Next i
End Sub 'この行まで

※　関数でないので、Sheet1のデータ変更があっても別Sheetに反映されません。
データ変更があるたびにマクロを実行する必要があります。

ご希望の方法でなかったらごめんなさいね。m(_ _)m