將數據傳輸到VBA中后，在動態范圍內查找和替換空白單元格

Question

好的，我知道有多個與此類似的問題，但是至少從我發現的問題來看，我的問題有所不同，請耐心等待。 我正在構建一個用戶表單，允許用戶將數據輸入到跟蹤表中，但是在某些情況下，一次僅提交部分數據，從而在跟蹤表中留下了“漏洞”。 我的目標是用一個時間段填充這些“漏洞”，以便相關數據將在同一行中保持在一起，而不是撞到那些漏洞中。

Sheets("Tracker").Activate
Worksheets("Tracker").Columns("A:J").Replace What:="", Replacement:=".", _
    SearchOrder:=xlByColumns, MatchCase:=False

我意識到我實際上是在告訴excel用句點填充A到J列，所以我的問題是，是否有一種更簡單的方法可以執行此操作，或者可以指定我只需要最近的行來包含句點？

更新：這是我用來在跟蹤器中查找下一行以獲取新數據的代碼。 因此，當缺少前一行的部分時，宏將下一行數據填充到那些未使用的單元格中。

Set ws = Sheets("Tracker") Sheets("Tracker").Select 
ws.Range("E" & LastRow).Value = job_txtb.Text    
'Finds the last blank row
LastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row + 1 
'Adds the Job name Code into Col E & Last Blank Row

Answer 1

下面將為您提供第一行未使用的行。 我不明白為什么需要時期。

With ActiveSheet
    On Error Resume Next
    lastRow = .Cells.Find("*", .Cells(.Cells.Count), xlFormulas, _
    xlWhole, xlByRows, xlNext).Row
    If Err <> 0 Then lastRow = 0
End With
firstUnusedRow = lastRow + 1

Range("A" & firstUnusedRow).Value = Textbox1.Value
Range("B" & firstUnusedRow).Value = Textbox2.Value
Range("C" & firstUnusedRow).Value = Textbox3.Value
'etc.
'etc.,,