请高帮忙编个程序！

yan0094

内容为：如果A1的内容为北京，则B1为1，如果A1的内容为天津，则B1为2
如果A1的内容为上海，则B1为3，如果A1的内容为重庆，则B1为4，以此类推，
下面的内容依次为：东北为5，华北为6，华东为7，华中为8，华南为9，西南为10，西北为11。

游戏人生

看看这个

alwaysbe_chris

Sub mymacro()
    Dim i As Long
    For i = 1 To Sheet1.Rows.Count
        Select Case Cells(i, 1).Value
            Case "北京"
                Cells(i, 2).Value = 1
            Case "天津"
                Cells(i, 2).Value = 2
            Case "上海"
                Cells(i, 2).Value = 3
            Case "重庆"
                Cells(i, 2).Value = 4
            Case "东北"
                Cells(i, 2).Value = 5
            Case "华北"
                Cells(i, 2).Value = 6
            Case "华东"
                Cells(i, 2).Value = 7
            Case "华中"
                Cells(i, 2).Value = 8
            Case "华南"
                Cells(i, 2).Value = 9
            Case "西南"
                Cells(i, 2).Value = 10
            Case "西北"
                Cells(i, 2).Value = 11
        End Select
    Next i
End Sub

太阳战士

看看我的程序

wtf001

先建一个表,将为两列,将A1,B1的内容都输进去.然后在窗体中做一个列表框,用B1=A1.Column(1)不就可以了