存在空白值時自動填充

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 + Enter。

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 

此子是通過點擊激活任何細胞。 相同的單元格標記循環的結束，即停止循環只需單擊要填充空白單元格的單元格。

更新：對於其他方式以及在這個問題中提出的問題，可以進行類似的操作。