我试图创建一个宏,将单元格C2编辑为0,然后自动填充到该列减去1的最后一行(带有j的行)。该代码可用于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

最佳答案

经过测试

试试这个

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


根据需要更改代码

关于excel - 自动填充到列的最后一行,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/18972284/

10-10 17:44