10月26日更新请高手优化代码.请初学者参考.

兰色幻想

以下是引用啊一在2004-10-26 10:58:00的发言： 真切恳求高手给出EXCEL本身的程序代码的查看方法，我想这肯定也是大多数人想要的。

EXCEL本身的程序代码是什么意思？

rylane

偶也来说说。

基本同意楼上的，先从EXCEL的基本功能入门，再是常用函数，这两项内容在帮助文件里很详细。

数组公式不敢苟同，在做小的表格时用用还行，数据多一些的，很影响速度，我真正用的并不多。

学VBA嘛，很有用，但难度相对也高些了，里面主要是基于VB，很多语句或结构都是自己的固定模式，知道了就好用。

这是根据我自己的学习过程给的建议，要怎么学，还得看你自己。

yigepure

办公之星老兄.宝典在哪呀.我也去下一个.最近验试宏.电脑都在发神精了

yigepure

呵呵,谢了.感觉还是买一本书来看舒服一点

兰色幻想

For i = 7 To 5000 If Cells(i, 6) <> "" Then Cells(5, 6).FormulaR1C1 = "=IF(R7C1="""","""",COUNTIF(R7C6:R65536C6,"">=60""))" Else: End If Next i End Sub

你这些语句都从1循环到5000，当然慢了

你可以用END（XLUP）来判断最后一行的行号，再进行循环

如：for i=1 to Range("a65536").end(xlup).row

Hunter

试试这个：

Sub XuHao() '序号 Range(Range("A7"), Range("B65536").End(xlUp).Offset(0, -1)).Formula = "=IF(RC[1]<>"""",ROW()-6,"""")" End Sub

其他自己照着改改。