Question

我正在使用Excel宏中的VBA进行以下操作（标题中）。

我找到了有关如何用值填充设置范围的解决方案，但是我找不到与要填充的单元格范围是否为变量有关的任何东西。

我希望用文本填充一列，但只能填充到最后填充的行（因为行数每天都在变化）。

关于如何解决这个问题的任何想法？

Answer 1

尝试一下，有关更多详细信息，请参见代码中的注释。

Sub fillRange()

Dim ws As Worksheet: Set ws = ActiveWorkbook.Sheets("Sheet Name") '<-- set your sheet name
Dim lRow As Long: lRow = ws.Cells(Rows.Count, 1).End(xlUp).Row 'get last row

Dim rngToFill As Range 'declare the range variable
Set rngToFill = ws.Range("A1:A" & lRow) 'set the range variable

rngToFill.Value = "new value test" 'fill the range

End Sub

VBA用文本值填充可变单元格范围

1 个答案: