javascript - コードコンバーター vb6 から javascript

Question

このコードを VB6 から JavaScript に変換するのを手伝ってくれる人はいますか?

Sub Insert()
Dim j As Long, r As Range
j = InputBox("Enter the number of sizes -1")
Set r = Range("A2")
Do
Range(r.Offset(1, 0), r.Offset(j, 0)).EntireRow.Insert
Set r = Cells(r.Row + j + 1, 1)
If r.Offset(1, 0) = "" Then Exit Do
Loop

End Sub

Answer 1

VBRangeのまたはCellクラスはわかりませんが、それらの動作を JavaScript で再実装すると、コードは次のように変換される可能性があります。

function VBRange(/* args */) {
    // re-implementation
}
function VBCells(/* args */) {
    // re-implementation
}
function Insert() {
    var j, r;
    j = parseInt(prompt(Enter the number of sizes -1), 10);
    r = VBRange("A2");
    do {
        VBRange(r.Offset(1, 0), r.Offset(j, 0)).EntireRow().Insert();
        r = VBCells(r.Row + j + 1, 1);
        if (r.Offset(1, 0) === "") {
            break;
        }
    } while (1);
}