添加链接 注册    登录
link管理
链接快照平台
  • 输入网页链接，自动生成快照
  • 标签化管理网页链接
相关文章推荐
神勇威武的消炎药  ·  excellvba引用计算机用户名,EXCE ...·  2 月前    · 
知识渊博的紫菜  ·  Excel 效能 - 優化效能阻礙的秘訣 ...·  2 月前    · 
迷茫的马克杯  ·  从VBA中的范围中删除特殊字符开发者社区·  4 天前    · 
知识渊博的热带鱼  ·  在 Power BI Desktop ...·  4 天前    · 
礼貌的海龟  ·  恒大猛料！许家印4员大将被抓 ...·  1 年前    · 
坐怀不乱的猕猴桃  ·  柳俊烈分手后再次升咖获影帝！生图一言难尽，郑 ...·  1 年前    · 
神勇威武的夕阳  ·  粤省事APP上线“团体码”，企业、学校防疫管 ...·  2 年前    · 
酒量小的创口贴  ·  孙岭峰_搜狗百科·  2 年前    · 
眼睛小的大白菜  ·  从大学毕业开始读研究生，读硕士，读博士这样下 ...·  2 年前    · 
link管理  ›  VBA 根据Find方法根据特定内容查找单元格__vba find方法详细说明
vba
https://blog.51cto.com/u_15080031/4708209
小眼睛的充值卡
2 年前


​


2. Find方法的语法

[语法]

<单元格区域>.Find (What，[After]，[LookIn]，[LookAt]，[SearchOrder]，[SearchDirection]，[MatchCase]，[MatchByte]，[SearchFormat])

'__________________________________________________________________________________________________

<单元格区域>.Find (要查找的数据，开始查找的位置，查找的范围类型，完全匹配还是部分匹配，行列方式查找，向前向后查找，区分大小写，全角或半角，查找格式)


(5)参数LookAt，可选。可以为以下常量之一：XlWhole或者xlPart，用来指定所查找的数据是与单元格内容完全匹配还是部分匹配，默认值为xlPart。对应于“查找与替换”对话框中，“单元格匹配”复选框。


案例：根据工作表名称查找标题栏中的对应标题的单元格

源表：

VBA 根据Find方法根据特定内容查找单元格_半角


VBA语句： 



Option Explicit Option Compare Text Sub 根据内容查找单元格()     Dim sSheet As Worksheet     Dim eachSheet As Worksheet     Dim findRange As Range     Dim columnCount As Integer          Set sSheet = Worksheets("数据")     '获取工作表总列数     columnCount = sSheet.UsedRange.Cells.EntireColumn.Count          For Each eachSheet In Worksheets         '只查找A1单元格所在的整行         Set findRange = sSheet.Range("A1").EntireRow.Find(eachSheet.Name, , , xlWhole)         Debug.Print findRange.Column     Next eachSheet     End Sub



改进版： 


Option Explicit Option Compare Text Sub 根据内容查找单元格()     Dim sSheet As Worksheet     Dim eachSheet As Worksheet     Dim findRange As Range     Dim columnCount As Integer          Set sSheet = Worksheets("Sheet2")     '获取工作表总列数     columnCount = sSheet.UsedRange.Cells.EntireColumn.Count          For Each eachSheet In Worksheets         '只查找A1单元格所在的整行         Set findRange = sSheet.Range("A1").EntireRow.Find(eachSheet.Name, , , xlWhole)         '可能找不到符合的单元格，因此使用前先判断下         If Not findRange Is Nothing Then            Debug.Print findRange.Column         End If     Next eachSheet     End Sub



如果可能存在没有找到的情况，如果直接使用它，没有找到就会导致程序报错，不过可以利用报错来终止程序运行，相当于抛出运行时异常，提示用户需要检查错误，也是一种策略，所以使用时根据需要综合考虑上面2种方案吧

运行后：

VBA 根据Find方法根据特定内容查找单元格_复选框_02




 
推荐文章
神勇威武的消炎药  ·  excellvba引用计算机用户名,EXCEL VBA 取当前登录 用户名的多种实现方法
2 月前
知识渊博的紫菜  ·  Excel 效能 - 優化效能阻礙的秘訣 | Microsoft Learn
2 月前
迷茫的马克杯  ·  从VBA中的范围中删除特殊字符开发者社区
4 天前
知识渊博的热带鱼  ·  在 Power BI Desktop 中使用自訂格式字串 - Power BI | Microsoft Learn
4 天前
礼貌的海龟  ·  恒大猛料！许家印4员大将被抓 夏海钧回国疑云_手机新浪网
1 年前
坐怀不乱的猕猴桃  ·  柳俊烈分手后再次升咖获影帝！生图一言难尽，郑秀晶变老脸很僵_李惠利_感情_演艺事业
1 年前
神勇威武的夕阳  ·  粤省事APP上线“团体码”，企业、学校防疫管理有新招
2 年前
酒量小的创口贴  ·  孙岭峰_搜狗百科
2 年前
眼睛小的大白菜  ·  从大学毕业开始读研究生，读硕士，读博士这样下来一共需要几年呀？ - 高校人才网
2 年前
Link管理   ·   Sov5搜索   ·   小百科
link管理 - 链接快照平台