VBA宏到AutoFill多行
VBA宏到AutoFill多行
提问于 2018-08-14 14:06:46
目前，我使用此代码自动填充最后一列的公式：
Dim lngLastColumn As Long
lngLastColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Activecell, Cells(Activecell.Row, lngLastColumn)).FillRight但它一次只适用于一行。是否有一种方法将其应用于我所选择的所有行？
谢谢,
托马斯
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-08-14 14:20:29
你可以试试这个：
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/51843415
复制相关文章
相似问题
腾讯云开发者
