多行复制

莫然123

请问一下，80多行，我想在每一行下面复制两条以上相同的，怎么操作最快捷啊，要不然，一条一条复制插入太麻烦了！

紫色海水

1、使用辅助列
2、使用VBA

goku1983

我这个方法很笨，可以试试
1、你的表格里把序号和数量整合到一起（A2&B2），放在名字左边
2、创建新序列号（81*3）243个号；数量243个321321循环
3、将数量的3排成一起，从第一个3将老序号1-81写上，然后用&创建一个老序号&数量列
4、把老数据的名字vlookup到新表里面（A2&B2）=(H1&G1)，这样就能匹配姓名了，备注：老序号&数量别弄反了
5、新序号排序（这样数量321循环就排列好了）
6、将空白的填空成上一条数据，这样就OK了
具体操作如下

tiger1976

Sub lll()

    Dim rng As Range
    Dim i As Integer
    Dim k As Integer
    Dim m As Integer
   
    i = Cells(Rows.Count, 2).End(xlUp).Row
   
    For Each rng In Range("b1:b" & i)
        For k = 1 To 3
            m = m + 1
            Cells(m, 5) = rng.Value
            Cells(m, 4) = rng.Offset(0, -1).Value
            Cells(m, 6) = rng.Offset(0, 1).Value
        Next
    Next

End Sub

劲钟华

复制b列序号，在b列下面粘贴两次，按b列升序。选定c列，定位空值，直接输入=c1，ctrl+enter结束。

莫然123

劲钟华 发表于 2022-7-11 15:43
复制b列序号，在b列下面粘贴两次，按b列升序。选定c列，定位空值，直接输入=c1，ctrl+enter结束。

有点看不懂，能实际操作一下看看吗

莫然123

紫色海水 发表于 2022-7-11 14:46
1、使用辅助列
2、使用VBA

有操作公式吗

莫然123

tiger1976 发表于 2022-7-11 15:26
Sub lll()

    Dim rng As Range

完蛋了，这公式也看不懂

你是魔鬼吗

劲钟华 发表于 2022-7-11 15:43
复制b列序号，在b列下面粘贴两次，按b列升序。选定c列，定位空值，直接输入=c1，ctrl+enter结束。

对头，最简单

紫色海水

莫然123 发表于 2022-7-11 16:10
有操作公式吗

可以参考3楼老师的做法或者4楼老师的VBA