遍历工作表六种方法

遍历工作表六种方法1.Sub遍历工作表()ForEachshInWorksheets'数组sh.SelectCall设置A1格式NextEndSub--------------------------------------2.Sub遍历工作表()ForEachshInWorksheets'数组ifsh.name表名1andsh.name表名2thensh.SelectCall设置A1格式endifNextEndSub--------------------------------------3.Sub循环工作表()ForEachshInWorksheetsIfsh.Index2Then'限定工作表范围sh.SelectCall设置A1格式EndIfNextEndSub--------------------------------------4.Sub遍历工作表()ForEachshInWorksheets'数组Ifsh.NameLike*&表&*Then'如果工作表名称包含“表”sh.SelectCall设置A1格式EndIfNextEndSub5.Sub遍历工作表()ForEachshInWorksheets'数组IfNotsh.NameLike*&表&*Then'如果工作表名称不包含“表”sh.SelectCall设置A1格式EndIfNextEndSub6.Sub遍历工作表()ForEachshInWorksheets'数组Ifsh.Name价格表Andsh.Name人员表Then'指定不参与循环的工作表名称，可一个或多个，自行增减sh.SelectCall设置A1格式EndIfNextEndSub