将数据传输到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.,,