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