随机7位数

我用VBA编一个随机产生7位数的宏。可是，有时会产生最左面有0的数，这时0会不显示出来（因为立即窗口弹不出来，所以想直接显示在sheets上）。我绞尽脑汁，想了几个类似的办法，可也不奏效。
for i= 1 to n 'n为想要产生的7位数的个数
y=""
for j = 1 to 7
randomize
s(i,j)=int(10*rnd)
y=y & s(i,j) '我设置y为string
next j
sheets(1).cells(i,1)= y
next i
我知道y是string是问题的所在，但是我想了办法，结果没有解决问题。
请你不吝赐教！！谢谢！

Sub abc()
Dim s(20, 20)'定义二维数组
Columns("A:A").Select 'A列设置为字符型
Selection.NumberFormatLocal = "@"
For i = 1 To 20 '产生20个7位随机数
y = ""
For j = 1 To 7
Randomize
s(i, j) = Int(10 * Rnd)
y = y & s(i, j) '我设置y为string
Next j
Cells(i, 1) = y
Next i
End Sub

可以利用公式 =randbetween(1000000,9999999) 即可生成随机7位数