VBA，向上/向下填充行以与最后一行对齐
excelguy
我正在尝试删除行，直到它遇到我的最后一行，或者填充行以与最后一行对齐。
有时，我的工作表会像下面这样，在这里我需要删除行以与我的最后一行编号对齐：
但是有时我的工作表会像下面这样，在这里我需要填写其他列：
有功能可以做到这一点吗？我发现很难确定何时填写或填写。
谢谢
范杜鲁
请测试下一个代码。假定参考列将是第七列，而检查0公式值的那列将是第六列。您的图片不包含栏标题...
Sub DeleteRowsOrFillDownDiscontinuous()
Dim sh As Worksheet, lastR As Long, lastR1 As Long, lastCol As Long
Set sh = ActiveSheet
lastR = sh.Range("F" & rows.count).End(xlUp).row
lastR1 = Range("E" & rows.count).End(xlUp).row
lastCol = sh.cells(lastR1, Columns.count).End(xlToLeft).Column
If lastR < lastR1 Then
sh.rows(lastR + 1 & ":" & lastR1).EntireRow.Delete xlUp
Else
sh.Range("A" & lastR1, "E" & lastR1).AutoFill _
Destination:=sh.Range("A" & lastR1, sh.Range("E" & lastR))
sh.Range("G" & lastR1, "AG" & lastR1).AutoFill _
Destination:=sh.Range("G" & lastR1, "AG" & lastR)
sh.Range("AI" & lastR1, sh.cells(lastR1, lastCol)).AutoFill _
Destination:=sh.Range("AI" & lastR1, sh.cells(lastR, lastCol))
End If
End Sub
编辑：
修改了F：F列的代码作为参考，AH：AH也不可更改，并且现有列将在AH Column之后进行处理。
请对其进行测试并发送一些反馈。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
VBA，向上/向下填充行以与最后一行对齐
- 2
使用VBA选择最后一行并向下复制
- 3
向下填充公式直到列中的最后一行
- 4
左对齐画廊的最后一行
- 5
配置向上/向下箭头以在 html 表中向上/向下移动一行
- 6
VBA：转置最后一行
- 7
Flexbox包装-最后一行的对齐方式不同
- 8
居中网格中的最后一行左对齐
- 9
div网格的最后一行稍微不对齐
- 10
在Word中对齐残破段落的最后一行
- 11
对齐一行html文本以填充整行？
- 12
自动填充到列的最后一行
- 13
如何使uitableview的最后一行填充空白
- 14
如何使用Flexbox在最后一行不填充空间
- 15
直到最后一行才会自动填充
- 16
如何在文本文件中向上或向下移动一行？
- 17
Excel VBA优化筛选范围的最后一行
- 18
如何知道最后一行填写VBA（Excel）？
- 19
Excel 2010 VBA仅影响范围的最后一行
- 20
Excel VBA的最后一行变量不计算
- 21
在VBA中找到差异的最后一行
- 22
使用Excel VBA查找最后一行
- 23
Excel VBA优化筛选范围的最后一行
- 24
访问 VBA：获取 Excel 工作表的最后一行
- 25
在VBA中同时选择第一行和最后一行
- 26
VBA 填充标题下的第一行
- 27
选择最后一行
- 28
连接的最后一行
- 29
查找最后一行
我来说两句