有空白值时自动填充

需要以下帮助。

我想要的第一列：自动填充剩余的空白，直到find另一个值。 例如：RMDSADMN将被自动填充，直到TXAADGLI被find，然后这将被自动填充，直到TXAADM，那么这将得到填充一次，因为有一个空格。

我试图添加input框，我不得不手动插入每个值的名称，但我瞄准的东西，自动检查值，而不是我插入它们。

Answer 1

尝试，

with activesheet with .cells(1,1).currentregion .specialcells(xlcelltypeblanks).formular1c1 = "=r[-1]c" .value = value end with end with 

Answer 2

尝试这个：

 Sub test() Dim lRow As Integer Dim i As Integer lRow = Cells(Rows.Count, 5).End(xlUp).Row With ThisWorkbook.ActiveSheet For i = 1 To lRow If .Cells(i, 1).Value = "" Then .Cells(i, 1).Value = .Cells(i - 1, 1).Value End If Next i End With End Sub 

Answer 3

无需VBA即可轻松实现：

在最后一个空白（相同的列）之后的第一行input一些东西，从RMDSADMINselect一些东西， = ， Up ， Ctrl + Enter 。

Answer 4

下面的代码可以帮助你在第一个和最后一个单元格之间根据第一个单元格的值自动填充以前的值，如问题中提到的那样Excel VBA填充第一个和最后一个值之间的单元格

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Long For i = 2 To Target.Column If Cells(Target.Row, i) = "" Then If Cells(Target.Row, i - 1) <> "" Then Range(Cells(Target.Row, i), Cells(Target.Row, i)).Value = Range(Cells(Target.Row, i - 1), Cells(Target.Row, i - 1)).Value End If End If Next i End Sub 

通过点击任何单元格来激活这个子。 相同的单元格标记循环的结束，即停止循环，只需单击要填充空白单元格的单元格。

更新：对于这个问题，可以用其他方法来完成。