sub 呵呵() dim dyg as range,i% for each dyg in range("d:d")'这里变量名写错了 if dyg.value<>""then for i=1 to 1000 cells(i,"f")=val(right(dyg,5))/1000 next end if next end sub
sub 求定积分() on error resume next dim n1 as integer, n as integer, i as integer dim s as string dim c1 as double, c2 as double, c3 as double if activesheet.usedrange.rows.count < 2 the...