[[20180521145639]]　『抽出後自動並べ替えについて』（ぺぺりん）　ページの最後に飛ぶ

『抽出後自動並べ替えについて』（ぺぺりん）

いい方法があれば教えていただきたく思います。

現状
　　A　　　B　　　　C　　D　　　E　　　　F～L　M　　N～T　　　U
2　エリア　クラス　名前　教科　コメント　順位　推移　点数　　伸び率　
3　北海道　A　　　田中　国語
4　　　　　　　　　　　　算数
5　愛知県　A　　　山田　国語　
6　　　　　　　　　　　　算数
7

3行目以降2行で1人分（科目が国語算数）　A～C列はエリア　クラス　名前はセル結合してます（A3　A4　で結合　北海道）
F～L　N～T　は直近7回分のテストの順位　点数　が入っております。　

上記で表示されているシートを新たに抽出用のシートにて
複数のエリア選択で（全データ並べ替え後にエリアのフィルタでも大丈夫です）
下記の表示をさせたいのですが厳しいでしょうか？
1人分の表記が2行から4行になります。

　　A　　　B　　　　C　　D　　　E　　　　F～L　M　　　
2　エリア　クラス　名前　教科　コメント　順位　推移　　
3　北海道　A　　　田中　国語
4　　　　　　　　　　　　　　　　　　　　点数　伸び率
5　　　　　　　　　　　　算数
6　　　　　　　　　　　　　　　　　　　　点数　伸び率

いい案あればご教授ください。よろしくお願いいたします。

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

オートフィルタを使いたいならば、セル結合せず、例えば4行目にも「北海道」とするか、「=A3」とかにしましょう。クラス、名前も同様です。

そして、先頭以外の重複文字列はフォントの色を白にするとか、セルの背景も白で塗ってしまうとか、そこに文字が見えないようにします。これなら、「北海道」で絞っても、他の行も一緒に表示されますよ。
（???） 2018/05/21(月) 15:54

連結解除しておいてから、マクロでA～C列の空白部分を埋める例なぞ。

 Sub test()
    Dim i As Long
    Dim j As Long

    For i = 3 To Cells(Rows.Count, "D").End(xlUp).Row
        For j = 1 To 3
            If Cells(i, j).Value = "" Then
                Cells(i, j).Value = Cells(i - 1, j).Value
                Cells(i, j).Font.Color = RGB(255, 255, 255)
            End If
        Next j
    Next i
 End Sub
（???） 2018/05/21(月) 16:02

 >複数のエリア選択で（全データ並べ替え後にエリアのフィルタでも大丈夫です） 
1）選択とは何を選択するのですか？元の表のセル？抽出先のセル？

2）並べ替えとは、1行のデータを2行に折り返して表示することですか？

（まっつわん） 2018/05/21(月) 16:41

？？？さん　
ありがとうございます。　結合を外しました

まっつわんさん
1）エリアのみさいごに絞りたいと考えております。
関西と中部　など

2）1行のデータだと長い為2行にしたいと思います。
直近の順位
直近の点数

　　A　　　B　　　　C　　D　　　E　　　　F～L　　　　M　　　
2　エリア　クラス　名前　教科　コメント　順位/点数　推移/伸び率　　
3　北海道　A　　　田中　国語
4　　　　　　　　　　　　　　　　　　　　
5　　　　　　　　　　　　算数
6

F3～L3　国語の順位　
F4～L4　国語の点数
F5～L5　算数の順位
F6～L6　算数の点数

になります。
　　　　　　　　　　　　　　　　　　　　
（ぺぺりん） 2018/05/21(月) 16:56

質問とは違うし、もう必要でないかもしれないけど、ちょうどセル結合解除マクロをつくったので提供します。

    Sub セル結合解除()
        Dim MyRNG As Range

        For Each MyRNG In Selection
            With MyRNG.MergeArea
                If .Cells.Count > 1 Then
                    .UnMerge
                    .Value = .Cells(1)
                End If
            End With
        Next MyRNG
    End Sub
（もこな２） 2018/05/23(水) 20:33

コメント返信：

[ 一覧(最新更新順) ]

[[20180521145639]] 『抽出後自動並べ替えについて』（ぺぺりん） ページの最後に飛ぶ

[[20180521145639]]　『抽出後自動並べ替えについて』（ぺぺりん）　ページの最後に飛ぶ