WPS JS宏 （求教将VBA宏功能转换成JS宏）

nokia5354

由于单位系统变更，要求使用国产UOS系统的wps,有一数据录入表格的宏无法使用，此宏主要功能是将指定变量单元格中的数据陆续填入到单列对应单元格，并对后面的数据在上一数据下方录入，不能覆盖等，原VBA代码如下，还请老师们指教：
      Sub 添加()
      n = 8
    Do While Cells(1, 4) <> ""
        If Cells(n, 1) <> "" Then
            n = n + 1
            Else:
            Range("u2,An2,Ao2,ap2").Copy Destination:=Range(Cells(n, 1), Cells(n, 1))
            Cells(n, 1).Value = [u2,An2,Ao2,ap2].Value
                        Exit Do
        End If
    Loop
End Sub

孙森峰

请参考 [分享] JSA读取整列数据的方法

nokia5354

感谢孙森峰老师指教，我在运行中出现了错误 ，还请能帮忙看一下：C:\Users\Administrator\Desktop\123.jpeg

nokia5354

C:\Users\Administrator\Desktop\123.jpg

孙森峰

可以把你用的那张表发上来吗？
现在看来循环语句中for(i=0;i<4;i++)你写成 i=1了，先修改下

孙森峰

数组下标是从0开始

nokia5354

谢谢老师！！！

nokia5354

孙森峰 发表于 2022-11-9 15:52
数组下标是从0开始

谢谢老师了！！！

孙森峰

1. 因为你的表格A列太复杂，按照原先的思路转了一下

复制代码

        var myData = [];
        myData.push(ActiveSheet.Range("U2").Value2);
        myData.push(ActiveSheet.Range("AN2").Value2);       
        myData.push(ActiveSheet.Range("AO2").Value2);       
        myData.push(ActiveSheet.Range("AP2").Value2);
        const itemsEndRange = Range("A8").End(xlDown);
        const rowsCount = itemsEndRange.Row + 1;
Debug.Print(rowsCount)
Debug.Print(...myData)
        for(let i = 0; i < 4; i ++) {
                ActiveSheet.Cells(rowsCount, i + 1).Value2 = myData;
        }                       

孙森峰

请参考以下代码.