行批量插入数据

我是小黑屋

如图所示，批量将sheet1工作表中的对应行标题插入几个内容，结果如sheet2工作表中那样

新建 Microsoft Excel 工作表.zip (16.28 KB, 下载次数: 11)

2022-12-30 17:30 上传

点击文件名下载附件

leirongqin

请参考附件。

清风客98

先把某一行弄好，然后vba中
Set Rng=Range("你写的行列号").Value
For 循环
Range("你需要粘贴的行列号") =Rng

nicleyuan

Sub cooooooooopy()
    Dim arr, i%, x%, ar, r
    arr = Array("编 号:", "", "", "", "姓 名:", "", "管理员", "", "", "部 门:", "", "测试部", "", "", "", _
        "序号：", "", "", "工序：", "", "", "工序2：", "", "", "编码：", "", "", "备注：", "", "", "")
    ar = ActiveSheet.UsedRange.Rows
    For i = 5 To UBound(ar) Step 2
        arr(2) = x + 1: x = x + 1
        Cells(i, 1).Resize(1, UBound(arr)) = arr
    Next
End Sub

nicleyuan

Sub cooooooooopy()
    Dim arr, i%, x%, ar, r
    arr = Array("编 号:", "", "", "", "姓 名:", "", "管理员", "", "", "部 门:", "", "测试部", "", "", "", _
        "序号：", "", "", "工序：", "", "", "工序2：", "", "", "编码：", "", "", "备注：", "", "", "")
    ar = ActiveSheet.UsedRange.Rows
    For i = 5 To UBound(ar) Step 2
        arr(2) = x + 1: x = x + 1
        Cells(i, 1).Resize(1, UBound(arr)) = arr
    Next
End Sub

我是小黑屋

nicleyuan 发表于 2023-1-1 18:43
Sub cooooooooopy()
    Dim arr, i%, x%, ar, r
    arr = Array("编 号:", "", "", "", "姓 名:", "",  ...

那个编号和姓名，部门这几项每行是不固定的，对应的是不同的人员的。我图片中表诉有误了。只有后面序号，工序，工序2，编码，备注这这几个是固定插刀每个行中的

我是小黑屋

leirongqin 发表于 2022-12-31 13:42
请参考附件。

那个编号和姓名，部门这几项每行是不固定的，对应的是不同的人员的。我图片中表诉有误了。只有后面序号，工序，工序2，编码，备注这这几个是固定插刀每个行中的