2019年股票交易人数数据表

A. 2019年的股市

2019年的股市，大概率还是熊市，因为目前国内的经济状况、国外的经济环境以及A股熊市底部还没有完全探明，所以2019年大概率还是熊市。
但是，2019年也很有可能是下一轮牛市的起点，因为股市估值已经到了历史最低，炒房的资金也需要寻找新的港湾，国外的抄底资金买入规模越来越大，种种迹象标明，下一轮牛市的星星之火已经点燃，就等合适的机会燎原。

B. 截止到2019年12月31日我国a股市场共有多少支股票

截止到2019年12月31日收盘，我国A股市场共有3765支股票，包含ST及停牌的股票。

C. 2019年中国股市强势,平衡势,弱势的各成交量各是多少

以上证为例：

2019年1月2日至3月7日，属于强势，共成交102.42亿手，平均每个交易日为2.44亿手；

2019年4月20日至5月9日，属于弱势，共成交30.89亿手，平均每个交易日为2.81亿手；

2019年5月10日至6月19日，属平衡势，共成交58.45亿手，平均每个交易日为2.09亿手。

D. 作为中国股市赚钱的散户占比多少

股市铁律，赚钱的股民只占总数的20%，为什么？因为剩下的80%股民几乎做不到这一点——抄底买入。严格意义上来说，底部是一个区域，真正最有价值的买点，是在底部左侧结束后的右侧买点，底部是靠卖盘结束、买盘增加来终结的。 当然投资者不要追求买在最低点，最低点可遇而不可求。因为底部的特点就是极度缩量，而哪一天是最低则不好猜测，我在实践过程中发现，只要出现持续的地量，一般就是可以确认的阶段性底部。
拓展资料
认购新股注意事项
一、开户包括股东帐户和资金帐户，根据交易所的规定，投资者在申购前必须先开户，沪市新股申购的证券帐户卡必须办理好指定交易，并在开户的证券部营业部存入足额的资金用以申购。
二、申购数量的规定交易所对申购新股的每个帐户申购数量是有限制的。首先，申报下限上海是1000股，深圳是500股，上海认购必须是1000股或者其整数倍；深圳认购必须是500股或者其整数倍；其次申购有上限，具体在发行公告中有规定，委托时不能低于下限，也不能超过上限，否则被视为无效委托。
三、重复申购的规定新股申购只能申购一次，并且不能撤单，重复申购除第一次有效外，其他均无效。而且如果投资者误操作而导致新股重复申购，券商会重复冻结新股申购款，重复申购部分无效而且不能撤单，这样会造成投资者资金当天不能使用，只有等到当天收盘后，交易所将其作为无效委托处理，资金第二天回到投资者帐户内，投资者才能使用。
四、新股申购配号的确认投资者在办理完新股申购手续后得到的合同号不是配号，第二天交割单上的成交编号也不是配号，只有在新股发行后的第三个交易日（T+3日）办理交割手续时交割单上的成交编号才是新股配号。投资者要查询新股配号，可以在T+2日到券商处打印交割单，券商也会在该日将所有投资者的新股配号打印出来张贴在营业部的大厅内，投资者可以进行查对。一部分券商还开通了电话查询配号的服务，投资者也可通过电话委托在查询新股配号一栏中进行查询。

E. 境内股票市场投资者数量已达1.777亿！这具有什么意义

中国证券登记结算有限责任公司最新数据显示，境内股票市场投资者数量已达1.777亿。去年全年新增投资者数量逾1800万，这个增长数量较2019年的投资者新增数量增长了36%。从全年数据变化来看，去年7月新增投资者数量在全年处于最高水平，当月新增投资者数量达242.63万，同比增长达123.64%。这一变化对于中国股市来说有着至关重要的作用，下面具体分析：

三、金融市场参与人数和投入资金的大幅增长，得益于国家对市场的规范和监管，也和理财意识在国民心目中的提升、金融科普在民间不断渗透和普及离不开干系，还与浮华时代追求财富的迫切心理相关。股票市场的前身起源于1602年荷兰人在阿姆斯特河大桥上进行荷属东印度公司股票的买卖，而正规的股票市场最早出现在美国。股票市场是投机者和投资者双双活跃的地方，是一个国家或地区经济和金融活动的寒暑表，股票市场的不良现象例如无货沽空等等，可以导致股灾等各种危害的产生。股票市场唯一不变的就是：时时刻刻都是变化的。中国有上交所和深交所两个交易市场。虽然散户在市场中越来越势单力薄，股票市场仿佛成了机构和大户的天下，但一个个致富传奇、一段段金融佳话在口耳相传中吸引着大量的人投身其中。

F. 截止2019年交易所一共多少只股

截止到2019年4月22日，沪深两市总的股票数量是3613只，以后还会有股票上市的。

G. 请问目前国内股票市场开户的数量有多少呢

现在股票开户的人还是有一定的数量，至于佣金比较低的证券公司有广发、五矿、华信。如果非要选择的话还是尽量选择信誉好的证券公司。
股票相信大家都非常的熟悉和了解，对于那些有经验的人来说，都是在股票市场上有很大的造诣。曾经也有很多牛市期，也有很多低迷期，但是对于新手来说，他们始终还是想去尝试，所以现在的股票开户人还是有很多的，别的不多说，就按我个人来说，也进行了股票的开户，而我选择的是广发证券至少在全国排名还是靠前的。
那么股票开户的流程又是怎么样的呢？其实现在股票开户也是非常简单的，基本上都是可以在网上或者是电话就可以办理，不像很早的时候还要亲自去证券公司拿上身份证的信息去现场办理，所以现在的网络发达也大大的提供了这些方便。
等股票开户的时候一般会有两个号码，一个是通用的账户，一个是作为专业的账户，两个其实都可以使用，那么在股票开户好以后就可以选择进行购买期间呢也会涉及到绑定银行卡，这样的话才会有资金的流入或者是流出，至于佣金其实各大证券公司相差都不大，大约都是在0.1%~0.3%。
但在这里呢也不建议那些新手选择很低的证券公司，最好还是选择排名靠前的几家证券公司，至少在信誉上和平台上都能够得到很好的保障。不仅在交易方面还是在提现方面，都是能够得到快速的反应，售后还是有一定的保证。
但是呢，话说回来，股票这个行业都是具有高冷高风险的，所以当一位新手在没有做好万全准备的前提下也最好不要去轻易尝试。在把握好自身的前提下，有序的进行才是最好的。
当新手去进行股票行业的时候，如果身边有经验丰富的人群，应该多多听听他们的意见。切记不要过于的投入。

H. 中国现在股民人数有多少对比往年股民人数增加多少

炒股在现实生活中是非常火热的，因为他能够很快的帮助我们收获利益。所以深受大家的喜欢，自然很多人都愿意选择这种方式来投资。那么在当今社会中中国的股民有多少呢？据相关数据统计分析，目前a股的股民大概有1.9亿。这个数字是非常可怕的，也由此可见股票在我们现实生活中覆盖度非常的大。自从19年开始股票逐步回暖，自然股民的数量相比以前也是越来越多。这是一个好的现象，说明我们的股市还是比较稳定的发展也比较不错的。当然纵使如此我们也仍然需谨慎，因为任何一项投资他都存在一定的风险，只有我们慎重对待我们才能使他的影响最小。那么对于我们来说我们到底该怎么做呢？下面我们一起来简单了解一下。

所以希望大家能够引起重视，并且能够以正确的姿态来对待这个问题。这样的话我们才能保证他的正确效果，才能减少一些不必要的影响和麻烦。毕竟至于我们自身的利益是密切相关的，所以我们要慎重对待。

I. 如何下载股票历史成交数据到Excel或txt

以华中智能股票软件为例：（以Think pad X13 锐龙版笔记本电脑，Windows 10 操作为例）首先切换到要下载数据的股票K线形态，按“F1”进入“日线某某股票历史成交”，点击鼠标右键->数据导出->导出所有数据->在“请选择导出的类型”中选择excel或txt
补充资料：
如何获取所有股票历史数据：
如果要对股市进行分析，首先就要获取所有股票的历史数据，只有通过股票的历史数据，我们才能分析出股市的规律。
（以Think pad X13 锐龙版笔记本电脑，Windows 10 操作为例）
一、工具/原料
1、EXCEL2007或者以上版本，不能使用WPS
2、电脑1g内存1核处理器及以上配置
3、拥有较强逻辑分析能力以及少量智慧及以上的大脑一颗
方法/步骤：
第一步，获取股票代码，复制其中一部分到第一个工作表A4到A127，然后通过程序把每一个代码写入到不同的工作表A2位置，并对该工作表以该股票代码命名。程序如下：
Sub 工作表命名()
For i = 4 To 127
Sheets(i).Range("a2") = "'" & Sheets(1).Range("a" & i)
Next i
For i = 4 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("a2").Value
Next
End Sub
第二步，获取股票历史数据。代码如下：
Private Function GetSource(sURL As String) As String
Dim oXHTTP As Object
Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
oXHTTP.Open "GET"， sURL， False
oXHTTP.Send
GetSource = oXHTTP.responsetext
Set oXHTTP = Nothing
End Function
Sub 历史数据()
Dim objXML As Object
Dim txtContent As String
Dim i As Integer
Dim strCode As String
Dim gp As String
Dim kaishihang
Dim arr， arr1， arr2， arr3， arr4， arr5， arr6， arr7， arr8， arr9， arr10， arr11
On Error Resume Next
EndRow = Range("a65536").End(xlUp).Row
startRow = 4
If startRow <= EndRow Then
Range(Cells(startRow， 1)， Cells(EndRow， 11)).Value = ""
Else
Exit Sub
End If
Set objXML = CreateObject("Microsoft.XMLHTTP")
gp = [A2]
For h = 1 To 4
For m = 1 To 4
kaishihang = [A65535].End(xlUp).Row
nian = Replace(Str(Year(Now) + 1 - h)， " "， "")
ji = Replace(Str(4 + 1 - m)， " "， "")
With objXML
.Open "GET"， "http://quotes.money.163.com/trade/lsjyj_" + gp + ".html?year=" + nian + "&season=" + ji + ""， False
.Send
If objXML.Status = 200 Then
txtContent = .responsetext
arr = Split(txtContent， "'>")
For i = 1 To UBound(arr)
arr1 = Split(arr(i)， " Cells(i + kaishihang， 1) = Right(Left(arr1(0)， 10)， 10)
arr2 = Split(arr1(1)， Chr(60))
Cells(i + kaishihang， 2) = Mid(arr2(0)， InStr(arr2(0)， ">") + 1)
arr3 = Split(arr1(2)， Chr(60))
Cells(i + kaishihang， 3) = Mid(arr3(0)， InStr(arr3(0)， ">") + 1)
arr4 = Split(arr1(3)， Chr(60))
Cells(i + kaishihang， 4) = Mid(arr4(0)， InStr(arr4(0)， ">") + 1)
arr5 = Split(arr1(4)， Chr(60))
Cells(i + kaishihang， 5) = Mid(arr5(0)， InStr(arr5(0)， ">") + 1)
arr6 = Split(arr1(5)， Chr(60))
Cells(i + kaishihang， 6) = Mid(arr6(0)， InStr(arr6(0)， ">") + 1)
arr7 = Split(arr1(6)， Chr(60))
Cells(i + kaishihang， 7) = Mid(arr7(0)， InStr(arr7(0)， ">") + 1)
arr8 = Split(arr1(7)， Chr(60))
Cells(i + kaishihang， 8) = Mid(arr8(0)， InStr(arr8(0)， ">") + 1)
arr9 = Split(arr1(8)， Chr(60))
Cells(i + kaishihang， 9) = Mid(arr9(0)， InStr(arr9(0)， ">") + 1)
arr10 = Split(arr1(9)， Chr(60))
Cells(i + kaishihang， 10) = Mid(arr10(0)， InStr(arr10(0)， ">") + 1)
arr11 = Split(arr1(10)， Chr(60))
Cells(i + kaishihang， 11) = Mid(arr11(0)， InStr(arr11(0)， ">") + 1)
Next i
End If
End With
Next m
Next h
Set objXML = Nothing
End Sub
第三步，获取上证历史数据，并获取所有股票的历史数据。程序如下：
Sub 所有股票历史数据获取()
Application.ScreenUpdating = False
Dim s As String， gp As String， nian As String， ji As String， s1 As String
Dim arr， arr1， arr2， arr3， arr4， arr5， arr6， arr7， arr8， arr9
Dim i， h As Long
Dim kaishihang
Dim LastRow As Long， r As Long
On Error Resume Next
EndRow = Sheet2.Range("a65536").End(xlUp).Row
startRow = 4
If startRow <= EndRow Then
Sheet2.Range(Sheet2.Cells(startRow， 1)， Sheet2.Cells(EndRow， 9)).Value = ""
Else
Exit Sub
End If
For h = 1 To 5
For m = 1 To 4
kaishihang = Sheet2.[A65535].End(xlUp).Row
nian = Replace(Str(Year(Now) + 1 - h)， " "， "")
ji = Replace(Str(4 + 1 - m)， " "， "")
s1 = "http://quotes.money.163.com/trade/lsjysj_shu_000001.html?year=" + nian + "&season=" + ji + ""
s = GetSource(s1)
arr = Split(s， "'>")
For i = 1 To UBound(arr)
arr1 = Split(arr(i)， " Sheet2.Cells(i + kaishihang， 1) = Right(Left(arr1(0)， 4)， 4) & "-" & Right(Left(arr1(0)， 6)， 2) & "-" & Right(Left(arr1(0)， 10)， 2)
arr2 = Split(arr1(1)， Chr(60))
Sheet2.Cells(i + kaishihang， 2) = Mid(arr2(0)， InStr(arr2(0)， ">") + 1)
arr3 = Split(arr1(2)， Chr(60))
Sheet2.Cells(i + kaishihang， 3) = Mid(arr3(0)， InStr(arr3(0)， ">") + 1)
arr4 = Split(arr1(3)， Chr(60))
Sheet2.Cells(i + kaishihang， 4) = Mid(arr4(0)， InStr(arr4(0)， ">") + 1)
arr5 = Split(arr1(4)， Chr(60))
Sheet2.Cells(i + kaishihang， 5) = Mid(arr5(0)， InStr(arr5(0)， ">") + 1)
arr6 = Split(arr1(5)， Chr(60))
Sheet2.Cells(i + kaishihang， 6) = Mid(arr6(0)， InStr(arr6(0)， ">") + 1)
arr7 = Split(arr1(6)， Chr(60))
Sheet2.Cells(i + kaishihang， 7) = Mid(arr7(0)， InStr(arr7(0)， ">") + 1)
arr8 = Split(arr1(7)， Chr(60))
Sheet2.Cells(i + kaishihang， 8) = Mid(arr8(0)， InStr(arr8(0)， ">") + 1)
arr9 = Split(arr1(8)， Chr(60))
Sheet2.Cells(i + kaishihang， 9) = Mid(arr9(0)， InStr(arr9(0)， ">") + 1)
Next i
Next m
Next h
Application.ScreenUpdating = True
n = Worksheets.Count
For i = 4 To n
Worksheets(i).Activate
历史数据
Next
End Sub
第四步，保存工作簿，并对该工作簿命名为1，然后复制该工作簿27份，把所有股票代码写入每一个工作簿第一个工作表的A3到A127列。然后根据第一步对工作簿内的工作表命名，并在每一个工作表A2单元格内写入股票代码。
第五步，把这些工作簿存放到炒股文件夹下的数据库文件下。然后在炒股文件夹下新建一个工作簿，命名为“一键更新表格”，写入如下代码：
Sub 所有股票历史数据更新()
Dim wb As Workbook
For i = 1 To 27
Set wb = Workbooks.Open(ThisWorkbook.Path & "数据库" & i & "".xlsb"")
Application.Run ""'"" & wb.Path & """" & i & "".xlsb'!所有股票历史数据获取""
wb.Save
wb.Close
Next i
End sub
当启动这一段代码以后，程序会自动一个一个的打开对应的工作簿然后获取里面所有股票的历史数据，存放在对应的工作表当中。
第六步，对相应的程序添加按钮，这样，我们在启动对应程序时，只需要点一下对应的按钮就可以实现了。这样，我们通过多个工作簿就实现了获取所有股票历史数据的方法。而后面，我们只需要通过获取对应股票每一天的历史数据，我们就能够在任意一天很快速的能够拥有所有股票的历史数据了。
注意事项
1、在后续需要对这些数据进行分析，里面会加入很多计算，所以启动所有历史数据更新时，我们应该要关闭自动更新。
2、因为历史数据很大，所以这里只获取四年的数据，想要获取更多数据，可以更改程序里面 “For h = 1 To 5”的那个5即可。
3、历史数据的获取需要较长的时间，要提前做好准备。
4、如果你想要弄清楚用EXCEL建立炒股系统的整套方法，请看后续内容。"