2

我正在构建一个程序来自动化一些工作，使用记录然后清理。它一直运行良好，直到计算时间对我来说太长了。它是一个简单的嵌套 IF 语句

ActiveCell.FormulaR1C1 = _
    "=IF(RC[-16]="""",""MISSING"",IF(RC[-14]="""",""MISSING"",RC[-14]-RC[-16]))"

我们处理的数据范围从只有 10 行到几十万行。到目前为止，我不满意的“解决方案”将自动填充限制在 A1:A35000 范围内——这仍然需要 Excel 进行一些处理。这是避免xlDown将我带到第 1 百万行的解决方案。此外，我尝试减小纸张尺寸，效果也不错，但不是一个好的解决方案。

这是代码的样子：

Selection.AutoFill Destination:=ActiveCell.Range("A1:A35000"), Type:= _
    xlFillDefault

我想做的是：

  1. 从给定单元格中的数字引用的范围自动填充（因此，如果我输入的数据是 500 行，我有一个单元格，我输入 500 并且所有自动填充都来自 A1:A500），或者

  2. 更优选地，这将通过让程序已经识别要自动填充的范围来自动完成。

我已经检查了解决方案，但无法弄清楚如何将其应用于我的情况。

4

1 回答 1

2

我想你可能正在寻找以下...

Dim ws as Worksheet
Set ws = Worksheets("Sheet1")

Dim usedRows as Long

'Option One (not recommended): USED RANGE METHOD 
usedRows = ws.UsedRange.Rows.Count

'Option Two (more robust) .END(xlUp) METHOD (Assuming you have your Data in column "RC")
usedRows = ws.Cells(ws.Rows.Count, "RC").End(xlUp).Row

'YOUR
'CODE
'HERE

Selection.AutoFill Destination:=ws.Range(Cells(1,1),Cells(usedRows,1)), Type:= _ xlFillDefault

如果该列在您的工作表中具有最常用的行。

感谢@scott 指出 .End(xlUp) 选项的优越性:)

于 2013-01-04T17:30:43.493 回答