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

hbhsfeng

这个问题我在函数与公式版块发了贴子，过了半个月没有人能解决这个问题。今天在VBA版块发贴子，请VBA高手帮我解决这个问题。
表格中有说明。

鄂龙蒙

遗漏值?怎么计算出来？

hzruziniu

你的描述不清楚，灰色的值产生的规律，叫别人猜吗？

鄂龙蒙

1. Sub 填充()
   
2.     Dim ar, i, a
   
3.     Range("F4:AI10000").ClearContents
   
4.     Range("F4:AI10000").Interior.ColorIndex = xlNone
   
5.     ar = Range("A1").CurrentRegion
   
6.     For i = 4 To UBound(ar)
   
7.         If ar(i, 3) <> "" Then
   
8.             For j = 1 To 3
   
9.                 a = Cells(i, j + 2)
   
10.                 Cells(i, a + (j - 1) * 10 + 6) = a
    
11.                 Cells(i, a + (j - 1) * 10 + 6).Interior.ColorIndex = j + 33
    
12.             Next
    
13.         End If
    
14.     Next
    
15. End Sub

复制代码

hbhsfeng

灰色是遗漏值，从上往下数。

hbhsfeng

发个截图给你看。工作表隐藏了开奖号码这一列。
用函数公式可以制作成下面这个图表。但不是我需要的。

hbhsfeng

出现数字就填充，没有出现显示它的遗漏值，遗漏值从1开始往下计算。

hbhsfeng

我刚发了一个截图，为什么要审核？
我真不明白？我也不是发广告。

鄂龙蒙

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

复制代码

mavin

彩票这个东西，还是不要搞了吧。后面开的数字，都是独立的一个随机事件。跟前面已经开出的数字没有关系。