有空白值时自动填充

Question

需要以下帮助。

我想要第一列：自动填充剩余的空格，直到找到另一个值。示例：RMDSADMN将被自动填充，直到找到TXAADGLI，然后这将被自动填充直到TXAADM，然后由于有一个空格，这将被填充一次。

我尝试添加输入框，我必须手动插入每个值的名称，但我的目标是自动检查值，而不是插入它们。

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即可轻松实现：

在最后一个空白（同一列）后的第一行输入内容，从RMDSADMIN向下选择 = ，向上， Ctrl + 输入。

Answer 4

以下代码可以帮助您根据问题Excel - VBA fill in cells between 1st and Last value

中提到的第一个单元格的值自动填充第一个和最后一个单元格之间的值

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

点击任何单元格即可激活此子目录。 相同的单元格标记循环的结束，即停止循环，只需单击要填充空白单元格的单元格。

更新：对于其他方式也可以这样做以及在这个问题中提出。