程序运行提示“溢出”，原因是什么？

yfg323

Private Sub Worksheet_Activate()
Dim y As Integer   '列值
Dim x As Integer   '表1的行值
Dim z As Integer   '表2的行值
z = 2
For x = 2 To Sheet1.Rows.Count     ‘程序运行到这里提示“溢出”。
    If (Sheet1.Cells(x, 1).Value <> "") Then
      For y = 1 To 7
        Cells(z - 1, y).Value = Sheet1.Cells(1, y)
        Cells(z, y).Value = Sheet1.Cells(x, y)
      Next y
      z = z + 2
    Else: GoTo ENDSUB
      
    End If
   
Next x
ENDSUB:
End Sub

以下是sheet1的数据

<TABLE  cellSpacing=0 cellPadding=0 width=432 border=0 x:str>

<COLGROUP>

<COL style="WIDTH: 54pt" span=6 width=72>





姓名

工资

奖金

住房补助

保险

工伤风险金



肖云路

1800

400

128

54

100



郑一木

2300

300

154

67

100



龙谆

2100

350

143

53

100



周兵

1950

250

138

55

200



赵学诚

2150

300

139

58

100



王星星

2200

450

126

60

150



邹令

2100

200

124

52

100



马驰

1750

350

141

62

150

<TR  height=19>

陈先月

1850

<TD clas

方漠

Dim x As Integer   '表1的行值
Integer类型的数据范围是-32,768 至 32,767，Sheet1.Rows.Count的值是65536，当然会溢出。改成Dim X as LONG 即可。