如何用Excel VBA将特定数值自动填充至另一列的已填充行末？

以下是实现需求的VBA代码，它会自动识别A列的最后一行数据，然后将对应范围的J列单元格全部填充为1：

Sub FillJColumnWithOne()
    Dim lastRow As Long
    ' 获取A列最后一行的行号
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    ' 填充J列第1行到lastRow行的单元格为1
    Range("J1:J" & lastRow).Value = 1
End Sub

代码说明 #

• lastRow = Cells(Rows.Count, "A").End(xlUp).Row：从A列最底部向上查找第一个非空单元格，获取其行号，以此确定填充范围的终点
• Range("J1:J" & lastRow).Value = 1：直接将指定范围的J列单元格赋值为1，这种方式比循环填充效率更高

注意事项 #

• 如果需要指定特定工作表（而非当前激活表），可以修改代码为：

  Sub FillJColumnWithOne()
      Dim lastRow As Long
      Dim ws As Worksheet
      Set ws = ThisWorkbook.Worksheets("你的工作表名称") ' 替换为实际表名
      lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
      ws.Range("J1:J" & lastRow).Value = 1
  End Sub
  

• 运行代码前确保Excel启用了宏功能

内容的提问来源于stack exchange，提问作者Md101