[[20180516112603]]　『特定文字列を含む行を別シートにコピー』（うい）　ページの最後に飛ぶ

『特定文字列を含む行を別シートにコピー』（うい）

＜全体シート＞
A　　 B　　 C　　 D
田中　佐藤　国語　合格
鈴木　佐藤　算数　不合格
伊藤　井上　理科　合格
中山　斎藤　社会　合格
渡辺　坂田　英語　不合格

＜個人シート＞（佐藤）
A　　 B　　 C　　 D
田中　佐藤　国語　合格
鈴木　佐藤　算数　不合格

全体シートに記入をすると、個人シートに勝手にコピーされるようにしたいです。
検索条件がB列の個人名で、できれば関数での実装を行いたいです。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 個人シートのI1セルに名前（この場合は「佐藤」）を入力しておく。
 そして個人シートのA1セルに
 =IFERROR(INDEX(全体!A$1:A$1000,SMALL(IF(全体!$B$1:$B$1000=$I$1,ROW($1:$1000),""),ROW(A1))),"")
 と入力し、ShiftキーとCtrlキーを押しながらEnterキーで式を確定（確定後、式が{}で囲まれればOK）、その後右及び下へフィルコピーしてくれ。
（ねむねむ） 2018/05/16(水) 12:00

 なお式では全体シートの1000行目まで対応している。
 もっと行がある場合は式中の1000をすべて大きくしてくれ。

（ねむねむ） 2018/05/16(水) 12:01

返信ありがとうございます。
質問してからこちらでもいろいろ試して、おおむね希望通りの実装ができたのですが、
別の問題が発生してしまいました。

自動で作成された個人シートですが、「全体シートには入力せずに個人シートに直接入力する」
というパターンもあることが分かりました。
自分で実装した方法ですと、一行飛ばされて入力されてしまいます。
配列関数でも、一行手入力が入ると問題が発生するものかと思います。
ご助力願います。

↓現在の実装での挙動
＜全体シート＞
A　　 B　　 C　　 D
田中　佐藤　国語　合格
鈴木　佐藤　算数　不合格
伊藤　井上　理科　合格
中山　佐藤　社会　合格
渡辺　佐藤　英語　不合格

＜個人シート＞（佐藤）
A　　 B　　 C　　 D
田中　佐藤　国語　合格
鈴木　佐藤　算数　不合格
佐藤　佐藤　自習　出席　　　←手入力をしたデータ
渡辺　佐藤　英語　不合格
（うい） 2018/05/16(水) 13:03

Sub main()

    '全体シートがアクティブな状態で実行
    Dim zsht As Worksheet, c As Range, r As Range, i As Long
    Set zsht = ActiveSheet
    For Each c In Range("B:B").SpecialCells(2)
        If Not Evaluate("isref('" & c.Value & "'!A1)") Then
            Sheets.Add after:=ActiveSheet
            ActiveSheet.Name = c.Value
                For Each r In zsht.Range("B:B").SpecialCells(2)
                    If r.Value = c.Value Then
                        i = IIf(ActiveSheet.Range("A1").Value = "", 1, ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1).Row)
                        r.EntireRow.Copy ActiveSheet.Range("A" & i)
                    End If
                Next r
        End If
    Next c
End Sub
（mm） 2018/05/16(水) 13:39

ありがとうございます。
せっかくいろいろ助言をいただいて恐縮ですが、要件が変更されてしまいました。
また改めて質問させていただくかもしれません。
（うい） 2018/05/16(水) 20:11

コメント返信：

[ 一覧(最新更新順) ]

[[20180516112603]] 『特定文字列を含む行を別シートにコピー』（うい） ページの最後に飛ぶ

[[20180516112603]]　『特定文字列を含む行を別シートにコピー』（うい）　ページの最後に飛ぶ