同じデータ別にシートを分割したい

Question

やりたいこと

• Google Apps ScriptかExcel VBAを使用してD7:D1000の項目(30個くらい)で分類したデータをシートに分割したい
• できればスプレッドシートで実現したいがExcelでもかまわない
• 分割したシートの名前はその項目名にしたい

環境

• mac OS 10.14.4
• Excel
• Googleスプレッドシート

やったこと

https://teratail.com/questions/186623
これがまさにやりたいことと一緒です。が、=filterを手動でやると途方も無いのでできればGASかVBAでやりたいです。

https://eijiman.com/excelvba-sheet-split/
これもやりたいことをVBAで実現しています。しかし、A列の3行目から65535行目までで項目を選んでいるため、自分のデータではうまくいきません。

Private Sub CommandButton1_Click()
    Call SheetSplit
End Sub
 
Sub SheetSplit()
    Dim i As Integer
    Application.ScreenUpdating = False
    With Worksheets(1)
        ' A列の3行目から65535行目まで処理
        For i = 3 To .Range("A65535").End(xlUp).Row
            Call NewSheetCreate(i, .Cells(i, 1).Value)
        Next
    End With
    Application.ScreenUpdating = True
End Sub
 
Sub NewSheetCreate(lineNum As Integer, NewSheetName As String)
    Dim NewSheet As Worksheet
    Dim lastLine As Integer
     
    On Error Resume Next
    Set NewSheet = Worksheets(NewSheetName)
     
    ' シート作成時、1行目に項目名を入力
    If NewSheet Is Nothing Then
        Worksheets.Add after:=Worksheets(Worksheets.Count)
        Worksheets(Worksheets.Count).Name = NewSheetName
        Worksheets(1).Rows(2).Copy
        Worksheets(NewSheetName).Rows(1).Insert Shift:=xlDown
    End If
     
    lastLine = Worksheets(NewSheetName).Range("A65535").End(xlUp).Row + 1
    Worksheets(1).Rows(lineNum).Copy
    Worksheets(NewSheetName).Rows(lastLine).Insert Shift:=xlDown
    On Error GoTo 0
End Sub

Answer 1

スプレッドシート＋GASで考えてみました。
コピー先のシートのヘッダ行とかは考慮してないので、必要なら自分で考えてください。

function myFunction() {
    //スプレッドシートを取得
    // const file = SpreadsheetApp.openById("xxxx");
    const file = SpreadsheetApp.getActiveSpreadsheet();
    //分類元となるシート
    const baseSheet = file.getSheets()[0];
    //データの最初の行番号
    const firstRow = 7;
    //データの最後の行番号
    const lastRow = baseSheet.getLastRow();
    //データの最後の列番号
    const lastCol = baseSheet.getLastColumn();
    //すべてデータを２次元配列として取得
    const rowValues = baseSheet
        .getRange(firstRow, 1, lastRow, lastCol)
        .getValues();
    Logger.log(`rowValues = ${JSON.stringify(rowValues)}`);
    //分類するキーの列番号
    const KeyColumn = 4;

    //データを分類するキーごとに配列を保持するオブジェクトへ変換
    const classifiedValues = rowValues.reduce((result, values) => {
        const key = values[KeyColumn - 1];
        if (key) {
            if (result[key]) {
                result[key].push(values);
            } else {
                result[key] = [values];
            }
        }
        return result;
    }, {});
    Logger.log(`classifiedValues = ${JSON.stringify(classifiedValues)}`);

    //オブジェクトのキーごとにループしながらシートを追加
    Object.keys(classifiedValues).forEach((key) => {
        const newValues = classifiedValues[key];
        file.insertSheet(key)
            .getRange(1, 1, newValues.length, lastCol)
            .setValues(newValues);
    });
}

Comments

[XTJP]

ありがとうございます。まさにやりたかったことが実現できました。

Answer 2

７行目が項目名でいいでしょうか。
このコードを生かすならばA列の処理をD列に変えて

        ' D列の8行目から65535行目まで処理
        For i = 8 To .Range("D65535").End(xlUp).Row
            Call NewSheetCreate(i, .Cells(i, 4).Value)
        Next

NewSheetCreateでは

    ' シート作成時、1行目に項目名を入力
    If NewSheet Is Nothing Then
        Worksheets.Add after:=Worksheets(Worksheets.Count)
        Worksheets(Worksheets.Count).Name = NewSheetName
        Worksheets(1).Rows(7).Copy
        Worksheets(NewSheetName).Rows(1).Insert Shift:=xlDown
    End If

とすればいいと思います。

Comments

[XTJP]

ありがとうございます。引用したコードを編集して頂き、参考になります。