在excel vba中复制行内容

Question

我从未做过任何 excel vba 程序。我想编写一个 vba 代码，它允许我将包含第一列上的按钮的行复制到新行。

我可以复制行内容，但不能复制按钮。请帮忙

我的excel如下：-

按钮||数据||数据||数据

图片链接：https://ibb.co/cijovv

到目前为止我写的这段代码：=

Dim Lr As Integer
Dim newLr As Integer
Dim lim As String

Lr = range("A" & Rows.Count).End(xlUp).Row 'Searching last row in column A
newLr = Lr + 1
lim = "B" & newLr & ":" + "D" & newLr

Rows(Lr).Copy
Rows(newLr).Insert Shift:=x1Down
range(lim).ClearContents

Answer 1

这样试试吧……

Dim Lr As Integer
Dim newLr As Integer
Dim lim As String

Lr = Range("A" & Rows.Count).End(xlUp).Row 'Searching last row in column A
newLr = Lr + 1
lim = "B" & newLr & ":" + "D" & newLr
Application.CopyObjectsWithCells = True
Rows(Lr).Copy
Rows(newLr).Insert Shift:=xlDown
Range(lim).ClearContents
Application.CopyObjectsWithCells = False

如果你在 A5 中有一个 ActiveX 命令按钮，你可以试试这样...

Dim Lr As Integer
Dim newLr As Integer
Dim lim As String
Dim oleObj As OLEObject, oleCopy As OLEObject

Lr = Range("A" & Rows.Count).End(xlUp).Row 'Searching last row in column A
newLr = Lr + 1
lim = "B" & newLr & ":" + "D" & newLr
Rows(Lr).Copy
Rows(newLr).Insert Shift:=xlDown
Application.CutCopyMode = 0
For Each oleObj In ActiveSheet.OLEObjects
    If oleObj.TopLeftCell.Row = Lr Then
        Set oleCopy = oleObj.Duplicate
        With oleCopy
            .Left = Range("A" & newLr).Left
            .Top = Range("A" & newLr).Top
        End With
        oleObj.Delete
        Exit For
    End If
Next oleObj
Range(lim).ClearContents