我可以在excel中創建一個自我更新模塊嗎？

Question

因此，我有一列需要簡化的數據。

ColumnA      ColumnB  

Cyan          Blue  
Navy          Blue  
Forest        Green  

我想編寫一個模塊，當我第一次遇到青色時，我會問我該怎么辦，而我必須輸入藍色。 但對於此后遇到青色的所有情況，相應的列B必須為藍色。

Answer 1

Sub SIMPLIFY()
    RECORD_COUNT = Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To RECORD_COUNT
        If WorksheetFunction.CountIf(Columns("A"), Range("A" & i)) > 0 Then
            RECORD_ROW = WorksheetFunction.Match(Range("A" & i), Columns("A"), 0)
            If Cells(RECORD_ROW, 2) <> Empty Then
                Cells(i, 2) = Cells(RECORD_ROW, 2)
            Else
                Cells(i, 2) = InputBox("Input Color for " & Cells(i, 1))
            End If
        End If
    Next i
End Sub

將上面的代碼復制到工作表VBA。 該代碼等待列“ A”中的任何更改，並檢查以前的數據。 它會自動輸入顏色（如果存在），或者在輸入新顏色時詢問顏色。