1、查询第b到j列(也包括l到s列)内的内容,如果查询到,则返回第a列(或第k列内)的值。请问代码应该怎么写??for m=1 to 最大行数 if sheet1.cells(m, 2).value="搜寻值" then '第2列代表合并后的b到j列 msgbox sheet1.cells(m, 1).value '返回第a列内容 e...
sub macro2() dim tmpfilename as string for i=440102 to 440120 tmpfilename=i '循环输出 next end sub以上就是你要的循环结构 你在上面循环内部写你你上面的代码。然后将 440102 替换成 tmpfilename& 就可以了,如果还有什么问题,请留言。
这个函数定义的很模糊,从字面上理解 rng 应该是一个range类型的变量,rng()就是取得其中的一个单元格数据 规范写法: function drawone(rng as range,optional recalc as boolean=false) application.volatile recalc drawone=rng(int(rng.count)*rnd+1) end functi...