程序填空,P.58,例3.10,在A1:A10区域存放10个数,单击“去除重复”,在B列列出A列各数的唯一副本。 Sub NoRepeat() Dim i As Integer, j As Integer, x As Integer, y As Integer, n As Integer '先把a1单元格的数复制到b1单元格 _________________ _________________ 'n用来表示b列已有数的个数 For i = 2 To 10 _________________ '取出a列中的第i个数 For j = 1 To n _________________ '取出b列中的第j个数 If _________________ Next j If _________________ '如果j超过n,则说明b列已有的数中没有x n = n + 1 Range("b" & n) = x End If Next i End Sub