我正在嘗試編寫一個在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
2 回答
幕布斯6054654
TA貢獻1876條經驗 獲得超7個贊
好吧，一次一個可以工作，但如果數據很大，你可以考慮下面的版本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))
慕尼黑5688855
TA貢獻1848條經驗 獲得超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 結束如果
添加回答
舉報
0/150
提交
取消