如何：检索一个 sheet 上一列的最后一个单元格，然后粘贴到另一个 sheet

Question

我正在使用 VBA 进行会计项目，我对它还很陌生。

简短版本：用户在 excel 单元格 A12、B12

中输入名称（名称）和 $Transaction Amount (tran)

我在 A28:D32 上有一个 Table，其中包含名称和帐户 Values.The 名称在 A 列中，帐户值在 D 中。

我想根据存款人的姓名将交易金额添加到 D 列中的正确行。

E.G 
Transaction: 
name: Charles 
Transaction Amount: 0

Before
Charles  54
John     50
Chris    50

After
Charles  54
John     50
Chris    50

下面是乱七八糟的，我想出来的不行。

请帮忙谢谢！！

Sub Step3UpdateEquity()

    Dim name As String
    Dim tran As Integer
    Dim pretranIvalue As Integer
    Dim PosttranIvalue As Integer

    name = Range("A12").Value
    tran = Range("B12").Value

    PosttranIvalue = pretranIvalue + tran

    Set Depositcell = Range("A28:D32").Find(pretranIvalue)
    Range("Depositcell.adress").Value = PosttranIvalue

End Sub

Answer 1

试试这个：

Sub Step3UpdateEquity()

    Dim name As String
    Dim tran As Integer
    Dim DepositCell As Range

    name = Range("A12").Value
    tran = Range("B12").Value

    Set DepositCell = Range("A28:D32").Find(name).Offset(0, 1)'Asuming that the Transaction
                                                              'amount is located in the cell
                                                              'on the right of the name cell
    DepositCell.Value = DepositCell.Value + tran

End Sub

我假设每个名称的值存储在名称旁边（右侧），如果不是这种情况，您需要相应地更改 Offset 值

如何：检索一个 sheet 上一列的最后一个单元格，然后粘贴到另一个 sheet

How to: Retrieve last cell in a column on one sheet, and paste on another sheet

vba

excel

finance