小编Dor*_*ora的帖子

我有这个工作簿:我需要一个宏按钮,我的用户可以单击"点击这里复制",然后我需要一个代码复制第5-25行的标题为"TC-Star Here"的代码,我需要插入复制的行(我需要粘贴的行不自动删除之前的行,因此插入的行必须将前面的行向下移动)到另一个名为"时间卡"的表中.插入的行,我需要从单元格A1开始代码插入它们.因此,每次单击宏按钮时,都会复制行,并插入前一个未修改/删除的数据.

到目前为止我有这个代码:

Sub CopyInfo()
On Error GoTo Err_Execute
    Sheet2.Range("A1:F11").Value = Sheet1.Range("A1:F11").Value
    Sheet1.Range("A1:F11").Copy
    Sheet2.Range("A1").InsertCopiedCells
Err_Execute:
    MsgBox "All have been copied!"

End Sub

但每次单击该按钮时,它会将行粘贴到现有行上.

请帮忙.

我有一个Excel电子表格，其中一列中有值。我需要的是一个VBA代码，它将标识列值的前10％，并将它们放置在相邻列中。