下面宏的意思.Dimp,t,s,b,c,d,z1AsChartDimj,i,a,z2AsIntegera=0j=CInt(Range("a2").Value)s=CStr(611+j*10)t=CStr(620+j*10)p="e"&s&":br"&tSheets("位置").SelectRange(p).SelectSelection.CopySheets("班级成绩查询").S

Question

下面宏的意思.
Dim p,t,s,b,c,d,z1 As Chart
Dim j,i,a,z2 As Integer
a = 0
j = CInt(Range("a2").Value)
s = CStr(611 + j * 10)
t = CStr(620 + j * 10)
p = "e" & s & ":br" & t
Sheets("位置").Select
Range(p).Select
Selection.Copy
Sheets("班级成绩查询").Select
Range("N72").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
For i = Asc("n") To Asc("x")
For j = 11 To 61 Step 10
a = a + 1
b = Range("n72:ca72").Cells(1,a).Address
c = Range("n81:ca81").Cells(1,a).Address
d = b & ":" & c
Range(d).Select
Application.CutCopyMode = False
Selection.Copy
p = Chr(i) & CStr(j)
Range(p).Select
ActiveSheet.Paste
Next j
Next i
Range("N11:X20").Select
Selection.Copy
Sheets("分段成绩").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级成绩查询").Select
Range("N21:X30").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("分段成绩").Select
Range("B14").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级成绩查询").Select
Range("N31:X40").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("分段成绩").Select
Range("B26").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级成绩查询").Select
Range("N41:X50").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("分段成绩").Select
Range("B38").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级成绩查询").Select
Range("N51:X60").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("分段成绩").Select
Range("B50").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级成绩查询").Select
Range("N61:X70").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("分段成绩").Select
Range("B62").Select
Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
:=False,Transpose:=False
Sheets("班级图表向导").Select
End Sub
现在主要是我没改变宏，但是在把EXCEL里的科目改变后，有很多数据不能用了。VB很难吧。

Answer 1

大哥,
那要一句一句解释吗?