Question

我会尽力解释。我见过用于此的公式，但是它们对我不起作用，或者将剪切并粘贴或不会粘贴公式或单元格的长度。

我有一个名为“ sheet1”的工作表，我想从该工作表中复制41行，假设我在第1到41行中有数据，我想复制该数据并将其粘贴到同一工作表中，但要举例50到91。（每个单元格都有不同的值，我只想将它们全部复制到另一个位置，但保留所有内容）

我没有代码，因为没有代码对我有用。

预先感谢

Answer 1

考虑：

Sub KopyKat()
    Dim r1 As Range, r2 As Range

    With Sheets("sheet1")
        Set r1 = Range(.Cells(1, 1), .Cells(41, Columns.Count))
        Set r2 = .Range("A50")
    End With

    r1.Copy r2
End Sub

请注意Set语句中的“点” 。

Answer 2

我有这个。如果我在第1行和第2行使用它，它会起作用，但会给我一个错误9，如果我尝试在工作表的第1023至1105行中使用它，则下标超出范围

Public Sub cpyRow()
Sheets("Fevereiro1").Rows("1023:1064").Copy (Sheets("Fevereiro1").Rows("1065:1105"))

结束子编辑：没关系，我很愚蠢。我忘记删除工作表名称上的“ 1”。

是否有可能将此代码放在按钮上？

Answer 3

我让它以某种方式工作，但它并没有达到我想要的方式。

我可以根据日期添加大量的行吗？

这是基于2月的，有时是28天，有时是29天。我希望它根据最后一天添加和/或删除行。如果它有29天，而在单独的单元格上设置的年份只有28天，则会删除行。如果它有28天，我希望它添加行，使其变为29。

如果可以的话，我不知道是否可以在其中发布excel工作表，这样一来，我就更容易解释将其托管在某个地方了。

最好的问候

复制一个Excel工作表中的行，并将其粘贴到最后一行下方，同一工作表中的数据

3 个答案: