使用 Target 更新范圍時的數據清除

Question

我有以下宏

Dim rng As Range
Set rng = Target.Parent.Range("D31")
If Target.Address <> rng.Address Then Exit Sub
Select Case rng.Value
        Case "N/A": Result = "N/A"
        Case "NA": Result = "N/A"
        Case "": Result = ""
End Select
Range("E31, G31, H31, I31, J31, K31") = Result
End Sub

當我最初在 D31 中鍵入一個不是 NA 的值，然后在 E31 中鍵入一個值時，我在 E31 中看到了數據。 但是，如果我更新 D31（即原始值紅色、新值讀取和藍色），則 E31 中的值將被刪除。 有沒有辦法阻止這種情況發生？

Answer 1

1. 我將Range("E31, G31, H31, I31, J31, K31") = Result放入條件中
   If Target.Value = "" Or Result <> "" 。
2. 此外，刪除了似乎不需要的rng變量。

If Target <> Range("D31") Then Exit Sub
Select Case Target.Value
        Case "N/A": Result = "N/A"
        Case "NA": Result = "N/A"
        Case "": Result = ""
End Select
If Target.Value = "" Or Result <> "" Then
  Range("E31, G31, H31, I31, J31, K31") = Result
End If

現在E31, G31, H31, I31, J31, K31值僅在您在D31中輸入“N/A”、“NA”或“”時才會發生變化。