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

Question

我有一个用户在单元格 E33:G33 中输入交易信息（姓名、金额、日期）。

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

到目前为止我的代码不起作用。

我只想： -复制范围（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))

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

How to copy Range and past to last row

excel

vba

range

finance