|
在日常生活工作中,我们经常都会抱着一夜爆富的想法,而且还不少人喜欢整理记录每期的双色球数据来进行分析和概率运算以便于自己买的彩票的中奖机率增大。本期介绍的这款VBA应用则是针对这部分群体所设计的。对于网上下载到EXCEL的双色球数据往往杂乱无章不便于分析和研究,就连EXCEL自身的筛选对照哪个球出得最多次的功能都因为网上下载到的数据格式不符而无法运用。然而经过笔者该款VBA编程整理过后,所显示的双色球数据则整齐明了的需要。并且可以运用到各种EXCEL的数据分析功能。
代码如下(带附件):
Sub fixup2()
Dim i%, j%, k%
Range("A2:I10000").ClearContents '请空记录
k = Cells(2, 10).Value '赋值于变量K,存筛选的数量
With Sheet7
i = 3
For j = 2 To k '设置循环
.Cells(j, 1).Value = Sheet6.Cells(i, 1).Value
.Cells(j, 2).Value = Sheet6.Cells(i, 2).Value
.Cells(j, 3).Value = Sheet6.Cells(i + 1, 2).Value
.Cells(j, 4).Value = Sheet6.Cells(i + 2, 2).Value
.Cells(j, 5).Value = Sheet6.Cells(i + 3, 2).Value
.Cells(j, 6).Value = Sheet6.Cells(i + 4, 2).Value
.Cells(j, 7).Value = Sheet6.Cells(i + 5, 2).Value
.Cells(j, 8).Value = Sheet6.Cells(i + 6, 2).Value
.Cells(j, 9).Value = WorksheetFunction.Sum(.Range(.Cells(j, 2), Cells(j, 7)))
i = i + 8
Next
End With
End Sub |
|