Excelmacros输出

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

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