EXCEL 输入股票名称 如何自动套入股票代码？-excel与股票,股票excel

可以先建立那个"一插就是一大片zd"的web查询,
然后在你需要的地方,如一个新的工作表,通过vlookup()函数查找
例如:
插入的大片是sheet1的A1:H1000
A列是股票代码
B列是公司简称(B列是从A列数专起的第2列,下面公式会用到这个2)
F列是现价(F列是从A列数起的第6列,下面公式会用到这个6)

在sheet2的A1输入属:
600000
注意这个600000需要和sheet1的A列的代码的格式一致,同为"数字"或同为"文本"

在B1输入
=vlookup(A2,sheet1!A:H,2,)
这个是公司名称

在C1输入
=vlookup(A2,sheet1!A:H,6,)
这个是现价

那你得先做一个股票名称百 和股票代码对应表，比如你先度后面的问M列输入股票名称 N列输入对应股票代码，然答后在B1输入=IF(iserror(vlookup(A1,M:N,2,0)),"",vlookup(A1,M:N,2,0))并向下填充，这样你在A列输入股回票答名称，B列就自动显示股票代码了。

　　腾讯股票查询是有接口的，很简单的http://qt.gtimg.cn/q=sz代码

　　 Sub test()
    For r = 3 To Range("A1").CurrentRegion.Rows.Count
        URL = "http://qt.gtimg.cn/q=sz" & Cells(r, 1).Value
        With CreateObject("msxml2.xmlhttp")
            .Open "GET", URL, False
            .send
            sp = Split(.responsetext, "~")
            If UBound(sp) > 3 Then
                Cells(r, 3).Value = sp(3)
                Cells(r, 4).Value = Format(sp(30), "0000-00-00 00:00:00")
            Else
                Cells(r, 3).Value = "代码错啦！"
            End If
        End With
    Next
End Sub

 

　　如果弄不懂代码，可按以下图片动画演示操作，比较简单（如图片未动、请点击图片以获得详细演示过程636f7079e799bee5baa6e79fa5e98193361）：

　　

通过VLOOKUP函数来处理百。

Excel版本参考：2010

1、选中E2单元格；

2、输入公度式：=VLOOKUP(D2,A:B,2,0)，回车；

3、修改D2数据，测试效果（OK）。

VLOOKUP 函数搜索某个单元格区域问 （区域：工作表上的两个或多个单元格。区域中的答单元格可以相邻或不相邻。）的第一列，然版后返回该区域相同行上任何单元格中权的值。