我正在嘗試為以下問題找到一個 excel VBA 解決方案，
我有一個資料集，其中一些單元格是空的，需要根據條件填充它們。條件是它將填充與日期范圍為 /- 5 天的站號相對應的站號。此外，批號應與這些行匹配。
請幫忙！
例如，請參閱影像中的示例。
uj5u.com熱心網友回復：
這應該可以解決問題，我只是這樣做了，所以嘗試一下，讓我們知道它是否有效。并且不要忘記用第三行中的一張表更改名稱。
Sub FillBlank()
Dim F As Worksheet
Set F = ThisWorkbook.Worksheets("Feuil1")
Dim i As Long: i = 0
Dim j As Long
Do While F.Range("D2").Offset(i, 0) <> ""
If F.Range("A2").Offset(i, 0) = "" Then
j = 0
Do While F.Range("D2").Offset(j, 0) <> ""
If (Abs(DateDiff("d", F.Range("D2").Offset(i, 0).Value, F.Range("D2").Offset(j, 0).Value)) <= 5) And (F.Range("C2").Offset(i, 0) = F.Range("C2").Offset(j, 0)) Then
F.Range("A2").Offset(i, 0) = F.Range("A2").Offset(j, 0).Value
GoTo Next_Blank
End If
j = j 1
Loop
End If
Next_Blank:
i = i 1
Loop
End Sub
uj5u.com熱心網友回復：
它就像一個魅力。非常感謝這個！真的很感激。
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/429229.html
下一篇：你知道什么是三層架構嗎？