请高手用VBA帮我完成表格中的内容

鄂龙蒙

1. Sub 填充()
   
2.     Dim ar, i, a, s, m
   
3.     Range("F4:AI10000").ClearContents
   
4.     Range("F4:AI10000").Interior.ColorIndex = xlNone
   
5.     Range("F4:AI10000").Font.ColorIndex = 0
   
6.     ar = Range("A1").CurrentRegion
   
7.     For i = 4 To UBound(ar)
   
8.         If ar(i, 3) <> "" Then
   
9.             For j = 1 To 3
   
10.                 a = Cells(i, j + 2)
    
11.                 Cells(i, a + (j - 1) * 10 + 6) = a
    
12.                 Cells(i, a + (j - 1) * 10 + 6).Interior.ColorIndex = j + 33
    
13.                 Cells(i, a + (j - 1) * 10 + 6).Font.ColorIndex = 3
    
14.             Next
    
15.             s = i
    
16.         End If
    
17.     Next
    
18.     For j = 6 To 35
    
19.         m = 0
    
20.         For i = 4 To s
    
21.             m = m + 1
    
22.             If Cells(i, j) = "" Then Cells(i, j) = m Else: m = 0
    
23.         Next
    
24.     Next
    
25. End Sub

复制代码

hbhsfeng

鄂龙蒙 发表于 2018-9-29 09:22

我要显示它的遗漏值，虽然填充了，但是没有显示遗漏值。

鄂龙蒙

hbhsfeng 发表于 2018-9-29 11:10
我要显示它的显示值，虽然填充了，但是没有显示遗漏值。

代码加了遗漏值，在审核中。

hbhsfeng

如果不明白，我发个函数版的，里面有说明。函数公式无法做到，不知道VBA能否做到。

hbhsfeng

鄂龙蒙 发表于 2018-9-29 10:32

虽然与我表格描述的不一样，但是遗漏值显示出来。还是要感谢你。

hbhsfeng

mavin 发表于 2018-9-29 10:32
彩票这个东西，还是不要搞了吧。后面开的数字，都是独立的一个随机事件。跟前面已经开出的数字没有关系。

我喜欢研究彩票，从而爱上excel，用它分析彩票数据。

hbhsfeng

请高手继续帮忙。按新图表说明修改。

hbhsfeng

鄂龙蒙 发表于 2018-9-29 09:22

数据很多，用VBA代码填充非常卡机，是什么原因？还有一个问题不明白，如果填充完了，再添加数据，点填充按钮，会把原来的填充数据全部清除，重新再填充，这延长了填充时间，为什么不把原来填好的数据保留，直接填充后面的数据，我一直想不明白。这难道是VBA代码的局限性，这点不如函数公式。

hbhsfeng

这个问题比较复杂，按新图表说明帮我解决这个难题。

excelvlookup

买彩票的，这个难道还没解决吗？