在excel vba中複製行內容

Question

我從來沒有做過任何excel vba程序。我想寫一個vba代碼，這將允許我複製包含第一列上的按鈕的行到新行。

我能夠複製行內容但無法複製按鈕。請幫助

我的Excel是象下面這樣： -

按鈕|| DATA || DATA || DATA

圖像鏈接：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