山山已经学会了用Excel函数公式制作彩票走势图和相关分析表格，但有很多功能是函数公式不能实现的，如果用VBA会方便很多，所以就下定决心要学会使用VBA。虽然是看了很多教学视频，也做了一些笔记，但感觉浑沦吞枣，懂一点点，有点入门，再学下去也难以有效提高，因此就边学边用，学以致用，反正我的学习的目的就是为了更好的分析研究11选5，干脆就发一些文章出来，也希望各位大神不吝指教，指出缺点才会进步更快。

我的文章不是普及VBA的教学文章，而是带着问题和解决答案的应用文章，没有相关基础的人可能看不懂。不懂Excel肯定也是不会VBA的，所以如果看不懂的人可自行去补学相关知识，等到我的系列文章发完，你就和我一样又懂VBA又懂彩票11选5了。

之前发了一篇文章《快速删除EXcel表格中的空行，高效整理网页彩票走势图数据》，讲了如何操作整理数据，只需要简单的几个步骤，就可以提取出所需要的开奖数据。因为高频11选5是每天开奖，所以开奖数据每天都会有，而且不相同，如果天天这样重复，也是挺烦人的。

有没有更简单的方法？

当然有。用VBA录制宏，让宏来代替这样天天重复的动作，而且还可以设置快捷键，一按就自动执行了。有一点要提醒大家，因为最后选取的数据是一天的开奖数据，而各个省11选5的开奖期数不同，比如山东43期，广东42期等，那个宏旁边的“使用相对引用”一定要选上。WPS的录制宏是没有相对引用的，所以我之前用WPS录制宏一直出错，都不敢发文，现在用的是Excel 2016版本，没啥问题。如下图：

当然，要学VBA肯定要学编程，至少录制宏的代码要看得懂啊，有时出问题了也可自己修改。

那现在整理数据要解决的问题是：1、定位空行，删除空行。2、删除B列-F列的格式。3、选择B列-F列的开奖数据。

代码如下：

Sub 数据整理3()

Dim lngFirstRow As Long

Dim lngLastRow As Long

Dim a As Long

lngFirstRow = ActiveSheet.UsedRange.Row

lngLastRow = lngFirstRow + ActiveSheet.UsedRange.Rows.Count - 1

For a = lngLastRow To lngFirstRow Step -1

If Application.WorksheetFunction.CountA(Rows(a)) = 0 Then

Rows(a).Delete

End If

Next

Columns("B:F").EntireColumn.Select

Selection.ClearFormats

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Selection.SpecialCells(xlCellTypeConstants, 1).Select

End Sub

另外，也可以单独设置一个命令按钮，把上面的内容拷贝进去，这样就能一键执行了，如下图：

这些代码是粗糙简陋的，现在我也没有能力进行优化，等继续学习下去，也许就能做到了。不过，这些的确是能解决问题的，我验证过了。

今天第一步是整理数据，之后要学会制作走势图，用相应条件过滤组合，我希望和大家一起学用VBA，掌握VBA，多一技之长！