Question

我在单元格E33：G33中有用户输入交易信息（名称，金额，日期）。

用户点击按钮，交易记录在E46：G46开始的交易历史记录列表中使用的最后一行+1。

到目前为止，我的代码无效。

我想简单地说： - 范围（E33：G33） - 找到E列中使用的最后一行 - 低一排 - 复制范围

无法找到合适的答案，请帮忙！感谢。

Answer 1

使用它：

Sub test()
Dim e&: e = Cells(Rows.Count, "E").End(xlUp).Row + 1
Range("E" & e & ":G" & e).Value = [E33:G33].Value 'past only values
End Sub

或

Sub test2()
Dim e&: e = Cells(Rows.Count, "E").End(xlUp).Row + 1
[E33:G33].Copy Range("E" & e & ":G" & e) 'past with cells format
End Sub

或

Sub test3()
Dim e&: e = Cells(Rows.Count, "E").End(xlUp).Row + 1
[E33:G33].Copy
Range("E" & e & ":G" & e).PasteSpecial xlPasteAll 'past with cells format
End Sub

或

Sub test4()
Dim e&: e = Cells(Rows.Count, "E").End(xlUp).Row + 1
[E33:G33].Copy
Range("E" & e & ":G" & e).PasteSpecial xlPasteValues 'past only values
End Sub

也：

[E33:G33]可以替换为：

Range("E33:G33")

或

Cells(Cells(33,"E"),Cells(33,"G"))

或

Cells(Cells(33,5),Cells(33,7))

如何将范围和过去复制到最后一行

1 个答案: