|
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 |
|