如何使用大神编写的VBA?

tanglf188

class11class 发表于 2023-1-4 13:47
你这个代码没有实现我要的功能呢，运行后，只是单纯地复制，而我要实现的是：根据后面的数量，2，4，6，8 ...

Sub test()
    col = "E" '在这里修改列字母编号，因为是从H开始粘贴的所以赋值要在A-G之间就行
    Application.ScreenUpdating = False
    Sheet1.Columns("H:N").Delete Shift:=xlToLeft
    countrow = Sheet1.UsedRange.Cells(Sheet1.UsedRange.Rows.Count, 1).Row
    k = 1
    For i = 2 To countrow
        Sheet1.Range("A" & i & ":" & col & i).Copy
        dip = Sheet1.Range("E" & i)
        If Not dip >= 1 Then dip = 1
        For j = 1 To dip
            Sheet1.Range("H" & k).Select
            ActiveSheet.Paste
            k = k + 1
        Next
    Next
    Sheet1.Range("H:N").Columns.AutoFit
    Application.CutCopyMode = False
    Sheet1.Range("A1").Select
    Application.ScreenUpdating = True
End Sub

class11class

tanglf188 发表于 2023-1-4 14:26
逐行复制，用循环粘贴就可以了

这个用录制宏是实现不了这样的功能哦，因为数量这一栏，每次出现的是不同的，只能用代码实现哦

tanglf188

class11class 发表于 2023-1-4 15:22
这个用录制宏是实现不了这样的功能哦，因为数量这一栏，每次出现的是不同的，只能用代码实现哦

这是帮你加入按钮和提示对话框的代码。

class11class

tanglf188 发表于 2023-1-4 16:06
这是帮你加入按钮和提示对话框的代码。

谢谢，非常感谢大家的帮助，能极大地提高我的工作效率。

gwjkkkkk

class11class 发表于 2023-1-3 23:27
大神，好人做到底吧，如果再加一列，我要如何修改代码呢？

你自行删减试一下效果。。。