private sub command1_click()dim n as integer,s as longn=text1.textfor i=1 to n if i mod 3 =0 and i mod 5=0 then s=s+i end if next itext2.text=send subprivate sub command2_click()end end sub已经试过的,可以运行的...
1楼所述,vlookup就能搞定 如果强行要用vba的话,代码也不会很多的 翻译按钮 'a列一番下 dim maxline as long maxline=cells(rows.count,1).end(xlup).row '検索缲り返し dim i as long for i=3 to maxline if trim(cells(i,1))<>""and trim(cells(i,3...