データ抽出、転記のマクロコード（GAS）

Question

下記のようなExcelVBAマクロを、
スプレッドシートGAS版で作りたいのですが、GAS初心者でコードがわかりません。
どなたか助けてください。
GASでの、コピペ版の転記とカット＆ペースト版の転記
２種類知りたいです。

'プログラム0｜変数宣言の指定
Option Explicit
 
'プログラム1｜プログラム開始
Sub 検索ボックス式データ抽出()

  'プログラム2｜シート設定
     Dim ws01 As Worksheet
     Set ws01 = Worksheets("データ一覧")
     Dim ws02 As Worksheet
     Set ws02 = Worksheets("検索結果")
     Dim kensaku As String
     Dim I, M, lRow, mRow As Long

    'プログラム3｜検索結果シートの既入力データをクリア
     ws02.Range("A7:CV" & Rows.Count).Clear
    
　　'プログラム4｜検索項目を「kensaku」へ代入
     kensaku = ws01.Range("E3")  
     lRow = ws01.Cells(Rows.Count, "A").End(xlUp).Row
    
    'プログラム5｜抽出先のシートの初期値を設定
      Dim k As Long
      k = 7
    
    'プログラム6｜変数設定
      Dim rng As Range
      Dim keyword As Variant
    
    'プログラム7｜対象データを行ごとに処理
      For I = 1 To ws01.UsedRange.Rows.Count
        
    'プログラム8｜6行目(ヘッダー)を抽出先のシートへ出力(コピー)
      If I = 6 Then
      ws01.Rows(6).Copy (ws02.Rows(6))
      End If
        
    'プログラム9｜7行目以降を行ごとに取得
      If I >= 7 Then
      Set rng = ws01.UsedRange.Rows(I)
            
    'プログラム10｜プログラム2のキーワードを全て取得
      For Each keyword In Split(kensaku, ",")
 
      Application.Goto Reference:=Worksheets("検索結果").Range("A7")
 
    'プログラム11｜各行にキーワードを含むセルがあれば
      If Not rng.Find(keyword, Lookat:=xlPart) Is Nothing Then
                    
    'プログラム12｜キーワードを含む行を抽出用シートへ出力
      ws01.Rows(I).Copy (ws02.Rows(k))
      k = k + 1
      Exit For
      End If
      Next
                
      End If
      Next
        
'プログラム14｜プログラム終了
End Sub

よろしくお願いいたします。

Comments

[papinianus]

やりたいことを言葉で説明していただけないですか。

Answer 1

const q376213 = () => {
    const srcSheetName = `データ一覧`;
    const dstSheetName = `検索結果`;
    const rowWhereDataStarts = 7;
    const keyWordInputCell = /* E3 */[3, 5/* E === 5 */].map(e => e - 1);
    const srcSheet = SpreadsheetApp.getActive().getSheetByName(srcSheetName);
    const dstSheet = SpreadsheetApp.getActive().getSheetByName(dstSheetName);
    dstSheet.getRange(rowWhereDataStarts, 1, dstSheet.getLastRow(), dstSheet.getLastColumn()).clearContent();
    const src = srcSheet.getDataRange().getValues();
    const keyWords = src[keyWordInputCell[0]][keyWordInputCell[1]].split(`,`);
    const found = src.slice(rowWhereDataStarts).filter(r => r.some(c => keyWords.some(key => c.indexOf(key) !== -1)));
    const data = src.slice(rowWhereDataStarts-1,rowWhereDataStarts).concat(found);
    dstSheet.getRange(rowWhereDataStarts-1,1,data.length,data[0].length).setValues(data);
}
const q376213TxT = () => {
    const srcSheetName = `データ一覧`;
    const dstSheetName = `検索結果`;
    const rowWhereDataStarts = 7;
    const keyWordInputCell = "E3";
    const srcSheet = SpreadsheetApp.getActive().getSheetByName(srcSheetName);
    const dstSheet = SpreadsheetApp.getActive().getSheetByName(dstSheetName);
    dstSheet.getRange(rowWhereDataStarts, 1, dstSheet.getLastRow(), dstSheet.getLastColumn()).clearContent();
    const lastColumn = srcSheet.getLastColumn();
    const keyWords = srcSheet.getRange(keyWordInputCell).getValue().split(`,`);
    const rows = [rowWhereDataStarts-1,...new Set(keyWords.map(k=>srcSheet.createTextFinder(k).matchEntireCell(false).findAll().filter(e=> e !== null).map(e=>e.getRow()).filter(e=>e !== 3)).flat())];
    rows.forEach((e,i)=> 
      srcSheet.getRange(e,1,1,lastColumn).copyTo(dstSheet.getRange(rowWhereDataStarts-1+i,1,1,lastColumn)));
}

Comments

[papinianus]

Google Apps Script は VBA とは根本的に作りが違うというか、発想が違うので、VBA どおりに作ろうとすると動きとしてもたつきを感じると思います。

前の質問との関連ですが、VBA を Google Spreadsheet にもってくるときに業務の分析と整理をしたほうがいいと思います。検索結果と DL 管理票で同じようなコピペを繰り返しているように思います。
あと、Google Apps Script は HTML の画面を使えたりするので、Excel ではできないような UI も作れます。というかそうしないとただただ遅く、重たく、使いづらくなるだけなんじゃないかと。