如何在excel中用vba判断股票代码是属于深市还是沪市？

股票代码一般是由6位数字组成，由于有两个证券交易所，有些股票是属于深圳市场的，有些股票是属于上海市场的。

判断它们的归属有利于网络数据的采集，一般股票代码第一个数字是6和9的都是属于上海市场，第一个数字是0、1、2、3、5的股票代码都是属于深圳市场。

根据上述规则，以下vba自定义函数可以作为股票代码的归属判断。

Function GPCheck(ByVal sGPDM As String)
    '返回1表示是沪市的股票,返回2表示是深市的股票
    Dim sLeft As String
    sLeft = Left(sGPDM, 1)
    Select Case sLeft
        Case 9
        GPCheck = 1
        Case 6
        GPCheck = 1
        Case 0
        GPCheck = 2
        Case 1
        GPCheck = 2
        Case 2
        GPCheck = 2
        Case 3
        GPCheck = 2
        Case 5
        GPCheck = 2
    End Select
    '如果股票代码表示的是上证指数或A股指数，则返回沪市的信息
    If sGPDM = "000001" Or sGPDM = "000002" Then
        GPCheck = 1
    End If
End Function