我可以在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」中的任何更改並檢查以前的數據。 如果顏色存在，它會自動輸入顏色，或者在新顏色時詢問顏色。