Vba引用一个单元格但在新单元格中保持静态

时间:2015-07-09 18:00:41

标签: excel excel-vba vba

我的工作簿中有自动从yahoo finance加载的数据。数据不断刷新。我需要一个公式,它可以获取引用的单元格并生成该单元格的数值,而无论何时引用的单元格都会更新。例如:Cell G3将说股票价值为40.75,我需要D2说40.75,但当G3更新到新价格时它将保持40.75。

我尝试过使用=Numbervalue($G$3),但在数据刷新时仍会更新。

更新

这是我必须在活动单元格中粘贴日期和时间的VBA代码(这是正确的)然后它将价格(G3)粘贴到D2的单元格中。

Sub TimeStamp()
'
' TimeStamp Macro
'
' Keyboard Shortcut: Ctrl+Shift+T
'
    ActiveCell.Formula = "=CONCATENATE(L1,N1)"
    ActiveCell.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False

    Range("D2").Value = Range("G3").Value
End Sub

我的问题是我需要代码的Range("D2").Value = Range("G3").Value部分来识别D列中的下一个空单元格。目前,它将替换D2单元格中已有的任何数据。

1 个答案:

答案 0 :(得分:0)

您可以通过替换此行,将宏写入D列的第一个空行:

Range("D2").Value = Range("G3").Value

有了这个:

ActiveSheet.Columns(4).End(xlDown).Offset(1, 0).Value2 = Range("G3").Value2

此致