2

我试图创建一个宏，将单元格 C2 编辑为 0，然后自动填充到该列减去 1 的最后一行（带有 j 的行）。该代码适用于 3 组记录，但是当有更多数据集时，它不会自动填充到最后一行。例如，如果有 4 条记录，它只会自动填充到第 3 行，而第 4 行仍将具有其旧值。我如何使它在记录数发生变化时填充到最后一行。

数据：

ID  |  NAME  | CODE
1   |  JON   | 200
2   |  ANNA  | 300
3   |  TIM   | 400
jjj | jjjjjj | jjjjj

代码：

Dim codeCol as Long

range("C2").Select
ActiveCell.FormulaR1C1 = "0"
codeCol = Cells(1, Columns.Count).End(xlToLeft).Column
Selection.AutoFill Destination:=range("C2:H" & codeCol - 6), Type:=xlFillDefault

输出：

ID  |  NAME  | CODE
1   |  JON   | 0
2   |  ANNA  | 0
3   |  TIM   | 0
jjj | jjjjjj | jjjjj
4

1 回答 1

4

经过测试

试试这个 

Sub test()
With ActiveSheet
 ' range("A" & rows.count).end(xlup).row)  - tells the position of last used row in A column

.Range("C2:C" & .Range("A" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "0"
End With
End Sub

根据您的需要更改代码

于 2013-09-24T03:17:27.960 回答