如何用EXCEL VBA编写模糊查询程序，并将结果显示在工作表中

Posted 2023-04-17

不难实现，但代码就懒得写了。
步骤：
1、利用INPUTBOX（）获得想查询的内容，并存放到局部变量INPUTDATA 中
2、用DIM MYRANGE AS RANGE 和以下语句组合进行查找
Set MyRange = Sheets("工作表名称").Cells.Find(what:=INPUTDATA, After:=ActiveCell, LookIn:=xlValues, lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False)
3、用条件语句进行判断是否找到或符合
If MyRange Is Nothing Then
MsgBox "没找到符合条件的记录!"
.....
else
找到的话，进行相应的单元格赋值操作
.....
endif
4、用将上述步骤嵌套到一个循环语句内，以便继续查找。 参考技术A 要上传附件才好具体分析

如何用VBA新建一个EXCEL表，并将将另一个EXCEL表中的内容复制到这个新建的EXCEL表中

我想在我的计算程序运行完后，产生一个新表，并将表中的内容复制到这个新建的表中
我在网上找到一段代码，我改了改，但只能新建一个表，并打开它，内容复制的代码不知如何写
Sub 新建()
Dim ExcelApplication As Variant
Set ExcelApplication = CreateObject("Excel.Application")
Dim TPath As String
TPath = ActiveWorkbook.Path
With ExcelApplication
.Workbooks.Add
.ActiveWorkbook.SaveAs Filename:=TPath & "\" & "新建表1" & ".xls"
.Quit
End With
Workbooks.Open TPath & "\" & "新建表1.xls"
End Sub
内容复制的代码
Workbooks("计算表").Worksheets("sheet1").UsedRange.Copy Workbooks("新建表1").Worksheets("sheet1").[a1]
可是不对，不知道该如何编写，有谁知道，先谢谢了！

Sub 新建()
Dim excelApp, excelWB As Object
Dim savePath As String

Set excelApp = CreateObject("Excel.Application")
Set excelWB = excelApp.Workbooks.Add

excelApp.DisplayAlerts = False
savePath = ActiveWorkbook.Path & "\新建表1.xls"
excelWB.SaveAs savePath
excelApp.Quit
Workbooks.Open savePath
End Sub

内容复制：
Workbooks("计算表.xls").Worksheets("Sheet1").Copy Before:=Workbooks("新建表1.xls").Sheets(1)
把“计算表”的Sheet1整个复制到“新建表1”中，为最前面一个Sheet，默认命名将是“Sheet1(2)”，楼主可以再重新命名Sheet就行了。 参考技术A excel宏，你要是不知道写的时候，你可以先录制一个宏，这个宏就是你要的功能的操作，然后你查看代码就知道这些操作的代码了，把它复制到你的代码里并修改一下就行了。