nsjd.net
当前位置:首页 >> EXCEl 怎样用VBA查找某个表是否存在? >>

EXCEl 怎样用VBA查找某个表是否存在?

遍历for each 来比对也是可以的 或则 Sub iexist() On Error Resume Next If Sheets(sname) Is Nothing Then MsgBox "工作表不存在" Else MsgBox "工作表存在" End If End Sub

On Error Resume Next If Not Sheets("abc") Is Nothing Then If Err.Number 9 Then MsgBox "存在" Err.Clear End If

1、不是所有错误都能起作用。 2、用循环检测是否已有“汇总”表,没有则添加: for i=1 to sheets.count if sheets(i).name="汇总" then exit sub next sheets.add……

你说的是某个文件? ipath = "c:\aaa.xls" '文件的详细地址 Application.DisplayAlerts = False If Dir(ipath) = "" Then Kill ipath Application.DisplayAlerts = True 还是一个文件里的某个sheet表? shname = "aaaaaa" 'sheet表的名字 For Ea...

Sub 查找()For Each rng In Range("a1:d3") If rng = 7 Then a = rng.Row b = rng.Column End IfNextMsgBox "行号为" & a & "-" & "列号为" & bEnd Sub

VBA判断单元格是否包含某字符使用InStr函数,与工作表的FIND函数类似。 InStr函数的帮助信息如下: 程序中判断是否包含,可以这样写VBA代码: If InStr("111a222", "a")=0 Then MsgBox "不包含" Else MsgBox "包含" 执行示例:

这样: If Not Sheet2.[d:d].Find(Sheet3.[c3]) Is Nothing Then MsgBox "found"Else: MsgBox "not found"End If祝你成功!

private sub test() dim i,n as integer,na as string na=inputbox("请输入你要检验的表格名字","原始数据录入","sheet2") n=sheets.count for i=1 to n if sheets(i).name=na then exit for msgbox "本工作簿中存在名字为:" & na & "的工作表...

给你个列子 在 C列找 包含 “宁波” 的单元格 ,如果 是完全匹配 XLPART 改成XLWHOLE Sub 查找() Set findcell = Columns("c").Find("宁波", LookAt:=xlPart) If Not findcell Is Nothing Then MsgBox findcell.Row Else MsgBox "没找到符合条件的...

Sub 查找重复()Set rg1 = Range("F8") '要查找的单元格Set rg2 = Cells.Find(rg1.Value, rg1)If rg2.Address = rg1.Address Then MsgBox "没有重复"Else MsgBox "有重复"End IfEnd Sub

网站首页 | 网站地图
All rights reserved Powered by www.nsjd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com