我正在尝试创建一个宏,将单元格 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
最佳答案
已测试
试试这个
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
根据需要更改代码
关于vba - 自动填充到列中的最后一行,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18972284/