山山已經學會了用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，多一技之長！

總結

以上是生活随笔為你收集整理的11选5c语言代码,和山山哥一起学EXCEL和VBA，学以致用搞彩票11选5（一）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。