如附件，sheet1中的代码只能将B列中的语文统计在I列，还需要将C列到E列中的数学、科学、英语、品德依次统计到J列至M列；而且，sheet1的后面还有许多与它结构完全相同的工作表。
请大侠们帮助我完善这段代码。急！！！
谢谢！
建议用Do While循环可以实现，变量值为空循环结束
do while Cel_Vaule=""
Cel_Value=(chr(Cell_P),1) '主要是查找表头，表头为代循环结束
Cell_p=Asc(A)+1
中间的也可以用相类似的方法处理
Chr 函数
返回与指定的 ANSI 字符代码相对应的字符。
Chr(charcode)
charcode 参数是可以标识字符的数字。
说明
从 0 到 31 的数字表示标准的不可打印的 ASCII 代码。例如，Chr(10) 返回换行符。
下面例子利用 Chr 函数返回与指定的字符代码相对应的字符:
Dim MyChar
MyCh...全部
建议用Do While循环可以实现，变量值为空循环结束
do while Cel_Vaule=""
Cel_Value=(chr(Cell_P),1) '主要是查找表头，表头为代循环结束
Cell_p=Asc(A)+1
中间的也可以用相类似的方法处理
Chr 函数
返回与指定的 ANSI 字符代码相对应的字符。
Chr(charcode)
charcode 参数是可以标识字符的数字。
说明
从 0 到 31 的数字表示标准的不可打印的 ASCII 代码。例如，Chr(10) 返回换行符。
下面例子利用 Chr 函数返回与指定的字符代码相对应的字符:
Dim MyChar
MyChar = Chr(65) '返回 A。
MyChar = Chr(97) '返回 a。
MyChar = Chr(62) '返回 >。
MyChar = Chr(37) '返回 %。
注意 ChrB 函数与包含在字符串中的字节数据一起使用。ChrB 不是返回一个或两个字节的字符，而总是返回单个字节的字符。
ChrW 是为使用 Unicode 字符的 32 位平台提供的。它的参数是一个 Unicode (宽字符)的字符代码，因此可以避免将 ANSI 转化为 Unicode 字符。
要求
Asc 函数
返回与字符串的第一个字母对应的 ANSI 字符代码。
Asc(string)
string 参数是任意有效的字符串表达式。如果 string 参数未包含字符，则将发生运行时错误。
说明
下面例子中, Asc 返回每一个字符串首字母的 ANSI 字符代码:
Dim MyNumber
MyNumber = Asc("A") '返回 65。
MyNumber = Asc("a") '返回 97。
MyNumber = Asc("Apple") '返回 65。
注意 AscB 函数和包含字节数据的字符串一起使用。
AscB 不是返回第一个字符的字符代码，而是返回首字节。 AscW 是为使用 Unicode 字符的 32 位平台提供的。 它返回 Unicode （宽型）字符代码，因此可以避免从 ANSI 到 Unicode 的代码转换。
要求
版本1
请参阅。收起
