选中某几行复制N遍

gitigou

求助大神，帮忙写个VBA，比如在文本框里写入第2行至第4行，复制3次，则在底下行复制三遍 选中某几行复制N遍.zip (11.28 KB, 下载次数: 6)

2023-4-30 13:31 上传

点击文件名下载附件

3190496160

Sub 拷贝()
With ActiveSheet
    ks = .TextBox1.Text
    js = .TextBox2.Text
    sl = .TextBox3.Text
    For i = 1 To sl
        r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        .Rows(ks & ":" & js).Copy .Cells(r, 1)
    Next i
End With
End Sub

3190496160

选中某几行复制N遍.rar (21.37 KB, 下载次数: 11)

2023-4-30 14:09 上传

点击文件名下载附件

GG函数

你可以使用我开发的REPT2函数

cmo9020

恁笢議撓俴葩秶N梢.rar (17.7 KB, 下载次数: 4)

2023-4-30 14:16 上传

点击文件名下载附件

Sub Copy()
    Dim startRow As Integer
    Dim endRow As Integer
    Dim copyCount As Integer
    Dim i As Integer
    Dim lastRow As Integer
   
    startRow = CInt(ActiveSheet.Shapes("文本框 3").TextFrame.Characters.Text)
    endRow = CInt(ActiveSheet.Shapes("文本框 5").TextFrame.Characters.Text)
   
    copyCount = Val(ActiveSheet.Shapes("文本框 6").TextFrame.Characters.Text)
   
    For i = 1 To copyCount
        Rows(startRow & ":" & endRow).Copy
        lastRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
        Rows(lastRow).PasteSpecial xlPasteAll
    Next i
End Sub

cmo9020

gitigou

3190496160 发表于 2023-4-30 14:09

大神，文本框点不了，提示“运行时错误，'57121'，应用程序定义或对象定义错误”

gitigou

cmo9020 发表于 2023-4-30 14:19

Rows(startRow & "" & endRow).Copy  中间那个双杠打不出来

清风竹-

请看附件。

GG函数