Excel 创建一个 IF 语句，该语句在“Excel”列中生成值为 1

Question

我正在尝试编写一个在Excel中运行的脚本。我目前有一个excel文件，在一列中有超过1，000多个州首字母，例如，新泽西州，密歇根州，俄亥俄州，德克萨斯州。话虽如此，我还有另外3列表示区域A，B和C。

如果状态首字母为 NJ，则我尝试在特定相应的区域列中返回值 1。例如，如果状态初始值为 NJ，则在相应的列和行（区域 B）中返回 1。如果状态初始值为 TX，则在相应的列和行（区域 A）中返回 1。如果州首字母是安大略省，则返回（区域 C）中的值 1，依此类推。

有没有人知道我如何完成这个任务？使用VBA，python，无论哪种语言都能最好地完成它。

另请参阅附图以更好地了解。下面的代码是我试图一次做一个状态。

Sub Region()

    If Range("A:A").Value = "NJ" Then

        Range("C:C").Value = 1

    End If   

End Sub

Answer 1

好吧，一次一个可以工作，但如果数据很大，你可以考虑下面的版本2...所以，试试这个：=IF(A1="NJ",1,0)在单元格 C1 中输入，然后向下拖动。您可以考虑一个值表，并在一个函数中处理所有状态：=vlookup(A1,$G$1:$H$4,2,0)版本 2 的映像：您也可以将索引 （） 与匹配 （） 一起使用：=index($H$1:$H$4,match(A1,$G$1:$G$4,0))

Answer 2

如果活动表单元格（2， 2）。值 = “百分比” 和活动表单元格 （最后行 - 1， 5）。值 <> “选择” 然后 msgBox “请将百分比类型选项重置为选择以红色突出显示的单元格 ” &Chr（13） ActiveSheet.Cells（最后行 - 1， 5）。内部颜色索引 = 38 调用重置自定义文档Prop exit 函数如果 Activesheet.Cells（2， 2）.值 = “百分比” 和活动表单元格 （最后行 - 1， 6）。值<> vbNullString 然后 msgBox “请设置百分比速率单元格应为空白，以便以红色突出显示的单元格 ” &Chr（13） ActiveSheet.Cells（最后行 - 1， 6）。内部颜色索引 = 38 调用重置自定义文档Prop exit 函数如果 Activesheet.Cells（2， 2）.值 = “百分比” 和活动表单元格 （最后行 - 1， 5）。值 = “选择” 和 InStr（ActiveSheet.Cells（最后行 - 1， 6）。数字格式， “%”） <= 0 然后 msgBox “请将百分比率单元格的格式设置为 % 对于以红色突出显示的单元格 ” &Chr（13） ActiveSheet.Cells（LastRow - 1， 6）.。内部颜色索引 = 38 调用重置自定义文档Prop exit 函数如果 Activesheet.Cells（2， 2）.值 =“百分比”和活动表单元格（最后行 - 1， 53）。值 = vbNullString 然后消息框 “请为图中以红色突出显示的单元格中的报价百分比率设置 Formulla” &Chr（13） ActiveSheet.Cells（最后行 - 1， 53）。内部颜色索引 = 38 调用重置自定义文档Prop exit 函数如果 Activesheet.Cells（2， 2）.值 = “百分比” 和活动表单元格 （最后行 - 2， 53）.。值 = vbNullString 然后消息框 “请为图中以红色突出显示的单元格中的估计百分比率设置 Formulla” &Chr（13） ActiveSheet.Cells（最后行 - 2， 53）。内部.颜色索引 = 38 呼叫重置自定义文档Prop 退出功能Else 如果 ActiveSheet.Cells（最后行 - 1， 4）。值 <> vbnullString 然后 ActiveSheet.cells（最后一行 - 1， 4）。内部颜色索引 = 20 结束，如果活动表单元格（最后行 - 1， 5）。内部颜色索引 = 20 个活动表单元格（最后一列 - 1， 6）。内部.颜色索引 = 20 结束如果