VBAからGASに変換

Question

下記VBAをGASに書き換えを行い、自動入力の効率化を図りたい↓↓

Sub 自動転記()

Dim nyuuryoku As Range, MasterRange As Range
Set nyuuryoku = Worksheets("入力フォーム").Cells(3, 9)
Set MasterRange = Worksheets("体験管理").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0)
MasterRange.Value = nyuuryoku.Value
MasterRange.Offset(0, 1) = nyuuryoku.Offset(1, 0).Value
MasterRange.Offset(0, 2) = nyuuryoku.Offset(2, 0).Value
MasterRange.Offset(0, 3) = nyuuryoku.Offset(3, 0).Value
MasterRange.Offset(0, 4) = nyuuryoku.Offset(4, 0).Value
MasterRange.Offset(0, 5) = nyuuryoku.Offset(5, 0).Value
MasterRange.Offset(0, 6) = nyuuryoku.Offset(6, 0).Value
MasterRange.Offset(0, 7) = nyuuryoku.Offset(7, 0).Value
MasterRange.Offset(0, 8) = nyuuryoku.Offset(8, 0).Value
MasterRange.Offset(0, 9) = nyuuryoku.Offset(9, 0).Value
MasterRange.Offset(0, 10) = nyuuryoku.Offset(10, 0).Value


Worksheets("入力フォーム").Range(Range("A3"), Cells(15, 3)).ClearContents

MsgBox "転記完了"

End Sub### 前提・実現したいこと

Comments

[hentaiman]

なら書き換えを行って効率化を図ればいいのでは？

[stdio]

エクセルも開けるのだから、わざわざGoogleSpreadsheetsを使いたい意味が良く分かりません。

Answer 1

• 丸投げは結構なのですが VBA と gas は全然別物なんで、やりたいことを書いてもらいたいです。

const q310359 = () => {
    const srcSheetName = "入力フォーム";
    const targetSheetName = "体験管理";

    const book = SpreadsheetApp.getActive();
    const srcSheet = book.getSheetByName(srcSheetName);
    book.getSheetByName(targetSheetName).appendRow(Array.from({length:4},_=>"").concat(srcSheet.getRange(3,9,11,1).getValues().reduce((a,c)=>a.concat(c),[])));
    srcSheet.getRange(3,1,13,3).clearContent();
}

Comments

[papinianus]

getRange が怪しいので "A3:A15" とかにしたほうがいいかもです。