VBA宏可自动填充多行

Question

我目前使用此代码将公式自动填充到最后一个填充的列：

Dim lngLastColumn As Long

lngLastColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

Range(Activecell, Cells(Activecell.Row, lngLastColumn)).FillRight

但是它一次只能工作一行。有没有办法将其应用于我选择的所有行？

谢谢

托马斯

Answer 1

您可以尝试以下方法：

Dim lngLastColumn As Long
lngLastColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

Dim cell As Range
For Each cell In Selection.Columns(1).Cells
    Range(cell, Cells(cell.Row, lngLastColumn)).FillRight
Next