代码如2113下: dim a!b!c!s!p!a=inputbox("请输5261入第一条边长4102") b=inputbox("请输入第二条边长") c=inputbox("请输入第三条边长") if a+b print"这样的三角形不存在 else p=(a+b+c)/2 s=sqr(p*(p-a)*(p-b)*(p-c)) print"这个三角形的1653面积是;s end if 扩展资...
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...