下表为某公司股票在本周内每日的涨跌统计表 如何获取股票数据excel格式的

下表为某公司股票在本周内每日的涨跌统计表

它要求的是最高和最低嘛！！！从这个表可以看得出，星期四的时候是最高的，所以就是前面四个加起来的，不能减0.3了。最低是星期二，所以就是1.25-1.00 ，和后面的-0.3没有关系的。

如何获取股票数据excel格式的

1、 打开一个空白电子表格，并选择【数据】标签页。

　　2、单击【获取外部数据】中的按纽，在弹出的【新建WEB查询】对话框中输入要导入，并单击【转到】按纽，打开；

　　3、 在打开的【新建WEB查询】对话框中点击黄色向右点头选择要导入的数据；

　　4、 数据选择换成后，箭头变成绿色的小勾，并点击【导入】按纽完成数据的导入工作。

　　5、 数据导入完成之后，需要设定数据的刷新频率。在任一单元格上右击鼠标，在菜单中选择【数据范围属性】；

　　6、 在弹出的【数据范围属性】弹出菜单中更改【刷新控件】中将默认的60分钟修改成1分钟，之后保存退出。

股票交割单的EXCEL统计问题

Sub summ()

　　Dim nrow As Integer
　　Dim nn As Integer
　　Dim i As Integer
　　Dim sumall As Single
　　Dim nplus As Integer
　　Dim sumplus As Single

　　Dim temp As Single
　　Dim st As Long
　　Dim en As Long

　　i = 2
　　temp = 0
　　st = Range("a2")

　　Do While Cells(i, 4) <> ""
　　If Cells(i, 4) = "买入" Then temp = temp - Cells(i, 5)
　　If Cells(i, 4) = "卖出" Then temp = temp Cells(i, 5)
　　If (Cells(i, 4) = "买入") And (Cells(i 1, 4) = "卖出") Then _
　　en = Range("a" & (i 1))
　　If (Cells(i, 4) = "卖出") And ((Cells(i 1, 4) = "买入") _
　　Or (Cells(i 1, 4) = "")) Then
　　Cells(i, 10) = st & "-" & en
　　st = Range("a" & (i 1))
　　Cells(i, 11) = temp
　　temp = 0
　　End If

　　i = i 1
　　Loop

　　nrow = Range("k65536").End(xlUp).Row
　　If (WorksheetFunction.Max(Range("k2", "k" & nrow)) > 0) Then
　　Range("m2") = WorksheetFunction.Max(Range("k2", "k" & nrow))
　　Else: Range("m2") = 0
　　End If
　　If (WorksheetFunction.Min(Range("k2", "k" & nrow)) < 0) Then
　　Range("m3") = WorksheetFunction.Min(Range("k2", "k" & nrow))
　　Else: Range("m2") = 0
　　End If
　　sumall = WorksheetFunction.Sum(Range("k2", "k" & nrow))
　　Range("m4") = sumall

　　nn = WorksheetFunction.CountA(Range("k2", "k" & nrow))
　　For i = 2 To nrow
　　If (Range("k" & i) > 0) Then
　　nplus = nplus 1
　　sumplus = sumplus Range("k" & i)
　　End If
　　Next i
　　Range("m5") = sumplus / nn
　　Range("m6") = (sumall - sumplus) / (nn - nplus)
　　Range("m7") = sumplus / nplus

　　End Sub