MoveTo GASコード

Question

前提・実現したいこと

データ一覧表の'DL管理表'シートの中から'kensaku'テーブルに入力したキーワードを検索し、
該当セルの行を抽出してカット＆ペーストで
'対応済み'シートに転記させたいです。

発生している問題・エラーメッセージ

実行を押しても何も変動がありません

該当のソースコード

function taiouuchuu() {
const spreadsheet = SpreadsheetApp.getActiveSpreadsheet();
const sheet1 = spreadsheet.getSheetByName('DL管理票');
const sheet2 = spreadsheet.getSheetByName('対応済み');
const kensaku = 'DL管理票 Range("A1：B1")';
const LastRow = 'DL管理票.getLastRow()';
const LastRow2 = '対応済み.getLastRow()';

for (var i = 'kensaku';i < kensaku.length; i++){
if (kensaku[i][0] == 'kensaku'){
result.push ('kensaku'[i]);

'DL管理票'.getRange ('kensaku').moveTo ('対応済み.getRange(LastRow2+1)' );
}
}
}

試したこと

数日間、コードを色々と調べてGASを作ったのですが、
マクロ（GAS）実行を押しても何も変動がありません。

補足情報（FW/ツールのバージョンなど）

このシートです

Comments

[papinianus]

コードからやりたいことを理解できなかったのでシートがどうなっているか共有可能でしょうか？
特にわからないのは、ケンサクテーブルがどういうものでどう入力されているか、と、探す対象の範囲、貼り付ける先の状態、です。

[ch-taros164]

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

Answer 1

該当セルの行を抽出してカット＆ペーストで
'対応済み'シートに転記させたいです。

って書いてらっしゃるのですから、"カット&ペースト" したことあると思うんですが、元の表の書式が消えます。
本当にそれでよいのでしょうか。

1. カット&ペースト方式でいくなら、元の表が歯抜けになる。書式も崩れる。

元の表でカットした場所を行単位で消せば体裁は整う。
が、実行するたび表が縮んでいく。
→ q376142 の方法
2. データだけを取り出して移動することはできる。
条件付き書式を適切に利用できているなら、書式が壊れない。
ただし、数式がある場合、数式は移動できず値になってしまう。
→ q376142_notmove の方法

上記から、データ管理用のシートを別にして、色を付けたりセルを結合したりする見栄えを整えるシートは別にしたほうがいいです。これは Excel でも Google Spreadsheet でもデータを管理する上での基本とご理解いただいたほうがいいです。
結合セルのあるシートで getLastRow などをすると最後の行や最後の列は結合セルの端を取ってしまって意図した動作をしません(下記のように対応できますが、Google さんが用意している便利関数である getLastRow が使えず、面倒な操作が必要です)。

const q376142 = () => {
    const srcSheetName = "DL管理票";
    const dstsheetName = "対応済み";
    const srcSheet = SpreadsheetApp.getActive().getSheetByName(srcSheetName);
    const dstSheet = SpreadsheetApp.getActive().getSheetByName(dstsheetName);
    const statusToFind = srcSheet.getRange(1,1).getValue();
    const rowsToMove = srcSheet.createTextFinder(statusToFind).findAll().filter(e=> e !== null).map(e=>[e.getRow(),e.getColumn()]).filter(([,c])=> c === 2).map(([r])=>r);
    if(rowsToMove.length < 1) return;
    let column = srcSheet.getLastColumn();
    let destinationRow = dstSheet.getDataRange().getValues().map(([,e])=>e).reduce((a,c,i)=> c !== "" ? i : a,0) + 2;
    rowsToMove.forEach(e=> {
        srcSheet.getRange(e,2,1,column).moveTo(dstSheet.getRange(destinationRow,2,1,column));
        destinationRow++;
    });
    // 以下を消すと、行が消えなくなる。
    rowsToMove.reverse().forEach(e=> {
        srcSheet.deleteRow(e);
    })
    // 消すのはここまで。
}
const q376142_notmove = () => {
    const srcSheetName = "DL管理票";
    const dstsheetName = "対応済み";
    const srcSheet = SpreadsheetApp.getActive().getSheetByName(srcSheetName);
    const dstSheet = SpreadsheetApp.getActive().getSheetByName(dstsheetName);
    const src = srcSheet.getDataRange().getValues();
    const statusToFind = src[0][0];
    if(statusToFind === "") return;
    const dataToMove = src.slice(2).filter(([,e])=> e === statusToFind).map(e=>e.slice(1));
    const moveRows = dataToMove.length;
    if(moveRows < 1) return;
    const moveColumns = dataToMove[0].length;
    const destinationRow = dstSheet.getDataRange().getValues().map(([,e])=>e).reduce((a,c,i)=> c !== "" ? i : a,0) + 2;
    dstSheet.getRange(destinationRow,2,moveRows,moveColumns).setValues(dataToMove);
    const empties = Array.from({length:moveRows},_=>Array.from({length:moveColumns},_=>""));
    const remains = src.slice(2).filter(([,e])=> e !== statusToFind).map(e=>e.slice(1)).concat(empties);
    srcSheet.getRange(3,2,remains.length,remains[0].length).setValues(remains);
}

Comments

[ch-taros164]

管理票シートのB3セル以降の行の中から、A1:B1セルに入力して検索抽出した行毎のデータを、対応済みシートのB3セル以降の行に転記させるマクロを作りたいです。

[papinianus]

こちらではそういう風に動いてます。確認ですが試したうえでおっしゃってますよね。
想定と違うところを具体的に伺いたいです。

> 作りたいです。
作るまでの期限にもよりますが、かなり遠いと思います。
この質問のコードを書いた人が別質問の VBA を書いたとは思えないです。
やりたいというならがんばってくださいとしか言えないです。