取一个没用的单元格，用VBA设置成Excel的公式，取该单元格的值示例：你这个公式简单一些，公式中没有双引号，直接将公式原样放到双引号里面就行：Range("G2").Formula="=LOOKUP(1,0/((A2=Sheet2!D:D)*(I2=Sheet...

dimarr(1to4)'四个表的数据dimi,j,t,ti,tj,xarr(1)=sheets("补货界面").usedrangearr(2)=sheets("月销").usedrangearr(3)=sheets("库存数量").usedrangearr(4)=sheets("在途数量").usedrang

Sub查找()DimiAsInteger,jAsIntegerarr1=Sheets("档案").Range("A1:D"&Sheets("档案").Cells(Rows.Count,"A").End(xlUp).Row)arr2=Sheets("寻找").Range("A1:D"

推荐使用VBA，公式太繁琐，而且计算慢PublicSub查询(sh1AsWorksheet,sh0AsWorksheet)'sh1数据源,sh0结果，当前工作表DimRng1TAsRange,Rng1CAsRange,Rng0AsRange,RngTjAsRangeDim...

在E1起输出结果Subtest()Setd=CreateObject("Scripting.Dictionary")R=Range("A65536").End(xlUp).Rowarr=Range("A1:C"&R)Fori=1ToRIfarr(i,1)="s56"Andarr(i,2)="...

方法：1.制作数据表和查询条件表，查询条件表的“*”是通配符；2.数据——筛选——高级筛选；3.按查找条件编辑高级查询对话框；4.检验查询结果。

1)&arr(i,2)Ifd.Exists(t)Thenbrr(d(t),3)=brr(d(t),3)+arr(i,3)brr(d(t),4)=brr(d(t),4)+arr(i,4)EndIfNext[a11]....

Subasdf()'第一名：数组公式，即EXCEL的数组公司，多条件VLOOKUP公式，只是VBA中要用RC的方式表示；J2单元格的数组公式等于后面一串；'第二名：J2：J4都填充公式，就相当于EXCEL中的下拉；Range("J2").FormulaArray="...

这个功能如果用VBA做也挺麻烦的，反倒不如建议你用“数据－筛选－高级筛选”功能来实现y去研究一下这个吧挺方便的如果你一定要用VBA做fj那在做上面的高级筛选时进行录制宏吧73它录制的语句就是你需要的VBA语句（当然需要...

用find是可以的,查询条件再说的具体点.在表单上拖2个文本框控件,文本框里输入关键字,比如(张，财)代码里面取关键字,用like和表里的内容比较,多个查询的话,可以用and连接.代码框架如下:strKey1=textbox1.textstrKey2=...