11月23号涨停个股（股票600470）

大部分炒股的朋友都知道有一个叫做龙虎榜的数据，依据百度百科解说其价值作用：

龙虎榜是揭露的主力运作，虽然是盘后的，但仍是很有实际意义的，不是一切的主力主力资金流入后，第二天就流出的，有的后期仍是很牛的，有了进出记载，或成交记载后，这样股民能够剖析，这些大户是否在出脱、加码买进的数据？\t股民依照数据做出正向或逆向操作，然后到达获利或许止损的意图。

本文评论的并不是龙虎榜的运用方法，

而是教我们怎么依据同花顺的龙虎榜来拷贝一个本地就能够运用的EXCEL复盘龙虎榜

先给我们看看作用：EXCEL里边的龙虎榜

在同花顺网站：data.10jqka/market/longhu/ 能够看到原版的龙虎榜同花顺网站上的原版龙虎榜

下载数据怎么将同花顺网站上的龙虎榜数据放到EXCEL中呢，

能够经过【数据】-【自网站】 输入上面的网址，然后顺次点击【转到】-【导入】，

再挑选导入单元格地址：依照上面的次序顺次点击后导入网站数据

收拾数据在进行上面操作后，表格中已经有龙虎榜数据了，

但数据比较杂乱，

需求进行收拾，详细收拾进程，可参阅：将下载后的数据进行收拾

依据原同花顺龙虎榜进行格局调整经过跟网站上的数据格局比照，

能够发现表格上的 股票代码 中相似000955这样的数据显现为955

由于单元格默许是惯例格局，

假如要显现000955这种款式，需求在【单元格格局】中修正，

选中 股票代码 列， 右键单元格格局中【自定义】涨幅大于0的需求调整字体色彩为赤色，

涨幅小于0的需求调整字体色彩为绿色

能够经过条件格局来设置，

【能够将 净买入额 的字体色彩设置为赤色，在条件格局中设置负数为绿色即可】增加VBA代码那怎么能够经过点击相应的股票名称，

就能够显现相应的龙虎榜数据呢？

此处用到了EXCEL里边的终极兵器 - VBA

在作业表标签上右键-【检查代码】

然后在代码窗口中，黏贴如下面的代码后如图Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target

If .Count > 1 Then Exit Sub \'单元格挑选数量大于1个就退出运转

If .Column = 2 And .Value <> "" Then \'当时单元格在2列，且不为空则运转

Dim rng As Range

Set rng = Sheet2.[a:a].Find(.Offset(, -1).Text) \'经过股票代码在sheet2中查找对应的龙虎榜数据

If Not rng Is Nothing Then \'假如找到 则

[g:j].ClearContents \'清空之前有查询数据的G列至J列内容

r = rng.Offset(, 1).End(4).End(4).Row - rng.Row - 1 \'确认龙虎榜数据区域行数

.Offset(, 5).Resize(r, 4).Value = rng.Offset(2).Resize(r, 4).Value \'将查询的数据填入当时表格

End If

End If

End With

End Sub

成果上面一系列的操作，就基本上完成了这个仿照使命。假如对上面的仿照表格有爱好，能够私信 “龙虎榜” 给我，供给附件下载。附件已修正成主动下载最新的龙虎榜数据，需求抓住下载试试。

那今后复盘就轻松多了。