作者：乔山办公网日期：
返回目录：excel表格制作
End If应放到知Next j之前。
另代码可以简道化些，用Set SH1= Workbooks(Data1).Worksheets(1)
SET SH2= Workbooks(Data2).Worksheets(1)先设置两回个对象变量来代替，免得看了头答疼。
sub subp(b() as integer)
for i=1 to 4
b(i)=2*i
next i
end sub
private sub command1_click()
dim a(1 to 4) as integer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
subp a()
print a(i)'多了这一百句，这度里i=0，a（0）下回标答越界
for i=1 to 4
print a(i)
next i
end sub
Sub s1()
Dim i As Integer
For i = 1 To 100
Cells(i, 1) = i
Next
End Sub
Sub s2()
Dim c As Range
For Each c In [b1:b100]
c = c.Row
Next
End Sub