如何将Excel的Sheet1中的代码移动到Excel的模块部分

我已经写了下面的一段代码，它只在我的Excel中的Sheet1中工作，现在我想将这段代码移到我的VBA的Module部分。 请指教。

代码是这样的：

Private Sub ReviewCheck() Dim i, val1, val2 For i = 1 To UsedRange.Rows.Count val1 = UCase(Cells(i, "A").Value) If ((InStr(val1, "ABC")) Or (InStr(val1, "XYZ")) Or (InStr(val1, "123"))) > 0 Then If UCase(Cells(i, "B").Value) = "N" Then 'Cells(i, "C").Value = False Cells(i, "A").Interior.ColorIndex = 3 ElseIf UCase(Cells(i, "B").Value) = "Y" Then 'Cells(i, "C").Value = True Cells(i, "B").Interior.ColorIndex = xlNone Else 'Cells(i, "C").Value = False Cells(i, "B").Interior.ColorIndex = 6 End If Else Cells(i, "B").Interior.ColorIndex = xlNone End If Next i End Sub 

Answer 1

只需右键单击左边的窗口，在VBE中select“添加模块”，然后复制粘贴代码？ 确保删除Sheet1代码。