WPS2019VBA 在xlsx文件中在下一行新增数据

WPS2019中的VBA（Visual Basic for Applications）是一种强大的宏语言，可以帮助你在Excel工作簿中自动化操作，包括在新的行中添加数据。要在xlsx文件中通过VBA自动插入新行并填写数据，你可以按照以下步骤编写代码：

Sub InsertDataIntoNewRow()
    ' 定义变量存储你要输入的数据
    Dim data As Variant
    data = Array("标题1", "内容1", "值1") ' 你可以替换为你需要的任意数据

    ' 获取当前活动单元格的位置
    Dim currentRow As Long, newRow As Long
    currentRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 ' 加一获取下一行位置
    
    ' 插入新行并将数据写入
    newRow = currentRow
    For i = LBound(data) To UBound(data)
        Cells(newRow, i + 1).Value = data(i) ' VBA列索引从1开始，所以加1
    Next i

    MsgBox "数据已成功插入到新的一行！", vbInformation
End Sub

运行这个宏后，它会在当前最后一行的基础上创建新的一行，并将数组`data`中的元素依次填充到各列。