6、在VBA编辑器点击插入-模块，如图，7、现在来输入代码：Sub查找()DimiAsInteger,jAsIntegerarr1=Sheets("数据").Range("A2:D"&Sheets("数据").Cells(Rows.Count,"A").End(xlUp).Row)arr2=Sheets("查

不需要VBA，只需要vlookup函数就可以了，比如根据销售订单号（在E1）找印刷设备，可以设这样的公式：=VLOOKUP(E1,A:D,2,0)，其他的类推（比如=VLOOKUP(E1,A:D,3,0)）就可以了。

SubMacro1()dimyearsasstringyears="2000"Rows("1:1").SelectSelection.AutoFilterActiveSheet.cells.AutoFilterField:=4,Criteria1:=yearsEndSub以上代码定于years变量，可根据设置年份然后选择...

Thenarr(i,j)=brr(i-n+arr(1,j),j)EndIfNextiNextjRange("L1").Resize(n+1,7)=arrEndSub有问题请追问。

一、可以考虑使用vlookup进行处理，无需vba二、使用vba的话，提供以下几种方式供参考1、worksheetfunction.vlookup使用与表格函数类似，其实就是表格函数在代码里的应用2、可以录制一段查找的宏，find3、使用字典的以上几...

假如将满足条件的数复制到第2工作表的A1单元格，代码如下：Cells(Application.Match(12.5,Range("B:B"),-1)+1,1).CopySheets(2).Range("A1")

Setfso=CreateObject("scripting.filesystemobject")Setmyfolder=fso.GetFolder("D:\a")'引号内填写文件夹a的完整路径ForEachmyfileInmyfolder.FilesIfmyfile.NameLike"*.xls*"ThenSetwb=...

Range(Cells(x,4),Cells(x,4)).Value=s2'找回的数据放到表1的第四列NextEndSub'找回的数据放到表1的第四列'跨工作薄操作就把前缀修改下。Worksheets("Sheet1").Activate若怕麻烦就把另外一个表也...

bm=Cells(1,5):b=4existed=FalseForEachwsInWorksheetsIfws.Name=bmThenexisted=True:ExitForNextIfexistedThenApplication.DisplayAlerts=FalseSheets(bm).DeleteEndIfa...

4、回到工作表，在B2单元格那里输入“=zzsz(A2)”。就可以用VBA把A2单元格里所有的数字都提取出来了，如图所示。Excel怎么只提取表格中的数字5、指定从第几个数组提取开始。也就是说在不连续的那些数字中，从第几次出现...