alt+f11 打开vbe 窗口 粘贴代码,然后运行此宏 sub 自动求和() dim c as range dim findcells as range dim rng as range dim arr(1 to 65536) dim i,j,m as integer set rng=columns(1) sr="参考市值 set findcells=findall(searchrange:=rng,findwhat:=sr,_ lookin:=xlvalues,lookat:=... 20210311