Question

如何从特定范围获取数据，日复一日不同的范围显示在我的工作表中。我只需要可用的单元数据值，只需要剩余的空白..

这里我粘贴了我的enter code here

Windows("Daily Operation 14-Oct -13 using vab.XLSM").Activate
Application.CutCopyMode = False

Range("O3").Select
ActiveCell.FormulaR1C1 = _
    "=IF(TODAY()=RC[-9],""Today EDD"",IF((TODAY()>RC[-9]),""EDD Crossed"",IF((TODAY()+1)=RC[-9],""T+1"",IF(OR((RC[-9]=(TODAY()+2)),(RC[-9]=(TODAY()>=3))),""T+2"",""Future EDD""))))"

ActiveCell.Offset(0, -1).Select

ActiveCell.End(xlDown).Select

ActiveCell.Offset(0, 1).Select

ActiveCell.End(xlUp).Select

Selection.End(xlDown).Select

Range(Selection, Selection.End(xlUp)).Select

Selection.FillDown

Answer 1

我不太明白你真正需要什么。但我确实有一个小代码建议：
请勿将文件名放在Windows("Daily Operation 14-Oct -13 using vab.XLSM").Activate。

中

将其存储在Excel工作表的命名范围内，然后在代码中使用它：

dim r as range
set r = range("filename")
windows(r.value).activate

您也可以使用类似

的内容

fname = activewindow.caption`
windows(fname).activate`

像你一样放置它可能会导致问题，因为文件名等经常会改变，另一方面你想尽可能少地改变代码。

干杯，

乌迪

如何每天从特定范围获取数据我的范围是不同的（VBA Excel）

1 个答案: