Question

我有一张工作表，我每天都会更新，以便进行一些财务计算。在此工作表中，有一个按钮，一旦点击，就会更新来自网络的特定财务数据。它带来了最后一个条目的日期和数据本身，例如31/01/2014 - ＆gt; 10,27。我想要做的是能够单击按钮并自动更新日期和数据，而无需复制更新信息并将其粘贴到列表中。我的想法是使用vlookup函数查找具有相应日期日期的行，并粘贴刷新按钮带来的值。所以我尝试了以下VBA脚本：

（代码“今天”是我给当天的日期（2014年1月31日上午）和“DI”是我要更新的信息（上面的10,27）

Sub Test1()

Dim SearchDI As Range

Set SearchDI = WorksheetFunction.VLookup(Range("Today"), Range("A:B"), 2, 0)

Range("DI").Select
Selection.Copy
Range("SearchDI").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

它不起作用。

有人知道我可以用什么方法在列表中查找当前日期并将值复制到旁边的单元格上吗？

每天更新信息，无需复制和粘贴

0 个答案: