1、首先制作个简单的表格作为基底

2、点选数据,选择自网站

3、新建WEB查询里填入百度经验地址,登录上自己的账号,设置记住密码登录

4、进入 每日收入 。也可以直接把“http://jingyan.baidu.com/user/nuc/income?type=2”复制到窗口

5、点击导入数据

6、选择导入的位置

7、再创建一个汇总表

8、按下键盘上的快捷组合键“Alt+F11”进入VBA编辑环境。双击“收入分类汇总”工作表,并输入如图所示的代码:

Dim sucell

Dim sucellsum

Dim j

Dim youxiushu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

j = 3

sucell = Sheets(1).Cells(4, 3)

sucellsum = 0

youxiushu = 0

For i = 4 To 103

If Sheets(1).Cells(i, 3) = sucell Then

If Sheets(1).Cells(i, 5) = "优秀奖金" Then

youxiushu = youxiushu + 1

Else

sucellsum = sucellsum + Sheets(1).Cells(i, 4)

End If

Else

Sheets(2).Cells(j, 1) = sucell

Sheets(2).Cells(j, 2) = sucellsum

Sheets(2).Cells(j, 3) = youxiushu * 10

sucell = Sheets(1).Cells(i, 3)

youxiushu = 0

sucellsum = 0

i = i - 1

j = j + 1

End If

Next i

End Sub

9、Excel里点击 收入分类汇总 工作表,表格被更新啦。将 单日总收入 一栏输入公式“=SUM(B13:C13)”并复制公式进行求和。

10、绘制收入趋势图:切换至 插入 选项,直接插入一张折线图。

进行细节的微调

对数据进行标注,更加直观。

最终结果就是如下图,不错吧

在 原始数据 工作表,设置数据属性为 打开文件时刷新数据 ,取消掉 调整列宽,打开 用新数据覆盖现有单元格,并消除没有使用的单元格 的选项,确定。

这样就能很直观的看到你的成效了,记得不要禁用宏。