-6

我有一个由流动资产、负债等组成的财务模型作为标题。我希望在单元格 A1 中插入一个股票代码(以 AAPL US Equity 为例),以便它出现在下面的列中。但是,一旦代码出现在单元格中(例如 A2),下次我将代码插入 A1 时,我希望它出现在 A3 中,依此类推。这样做的原因是因为我使用的公式会自动将统计信息写入表中,但首先需要行首的代码。

                    TIME            PRICE       EPS         PE RATIO
AAPL US Equity      4:00:00PM       440.9       7.591       10.97977035
4

1 回答 1

3

您可以使用检测 worksheet_change 事件的宏来实现这一点!这是您将如何编码的方法。

Place this macro in the worksheet you want it to function!

    Private Sub Worksheet_Change(ByVal Target As Range)
    'check if the cell change is on A1
    If Target.Address(False, False) = "A1" Then
        Dim lrow As Integer
        lrow = Me.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Me.Range("A" & lrow + 1) = Target
    End If
End Sub
于 2013-07-26T21:04:14.807 回答