for i = 1 to 80从第1行开始循环,知道第80行结束cells(94 - i, 5) = cells(93 - i, 4) * cells(93 - i, 6) * cells(93 - i, 7) / 100 cells(94 - i, 5)表示e列,d93,当i为1时,5就是e,4就是d,类推cells(93 - i, 4) 表示d列,d92后面的类推还有什么不懂的? 20210311
sub 检索a列中重复地籍号() range("c1:c65536").clearcontents range("c1")="检索a列中重复地籍号 for r=2 to range("a65536").end(xlup).row cf=application.worksheetfunction.countif(columns(1),cells(r,1)) if cf>1 then cells...
a列为数据,b列为升势天数及趋势位置,c列为跌势天数及趋势位置宏程序如下,参考一下sub lxx()dim h, l, u, d, m 'h,l,分别为一个趋势周期内的最高值和最低值,u,d为升势、跌势的标志位,m用于统计趋势天数h = [a1].valuel = [a1].value '以第一天为基准初始化最高及最低值for i = 1 to 246 '计数2...