Excel宏输出

Question

以下代码生成Excel宏输出中从零开始的连续数字列表。我的问题是：如何告诉代码不要显示零以下的任何项目？

SolidRight (PageSheet.Cells(3, 1))
For t = 1 To Columns_per_page
    PageSheet.Cells(3, (t * 2)).Value = ((NewPageNum - 1) * Columns_per_page) + t - 9
    If t Mod 2 = 0 Then
        SolidRight (PageSheet.Cells(3, (t * 2) + 4)) ' 1)) DM
    Else
        DotRight (PageSheet.Cells(3, (t * 2) + 4))  '  1)) DM
    End If
Next t