查看: 1057|回复: 8
如何返回符合给定字符串的第几个单元格的列号，需要是字母
阅读权限20
在线时间 小时
问题描述：
某一行，比如说第三行，有n种不同的字符串，总共有N个字符串，也就是某种字符串可能出现多次。
如何返回符合给定字符串的第一个单元格的列号，需要是字母，第二个单元格的列号，第三个单元格的列号，第四个单元格的列号，如果没有第四列，则随便返回个数字就行，比如0。
阅读权限20
在线时间 小时
在线等待...
阅读权限50
在线时间 小时
返回单元格列字母：Split(某一单元格.Address, &$&)(1)
阅读权限95
在线时间 小时
求助前学会如何求助,将更利于问题的解决.如说明要求,模拟结果,上传附件(压缩后的)......
阅读权限20
在线时间 小时
& & & & & & & &
wzsy2_mrf 发表于
返回单元格列字母：Split(某一单元格.Address, &$&)(1)
事实上，不知道从左至右，出现给定字符串的第一次的单元位置，需要寻找这个位置，然后返回这个单元格的列号，那么该公式应该怎么写呢。如何寻找出现第二次的单元格，并返回列号。。。最后一次，如果没有雨返回个数字就可以啦。
阅读权限50
在线时间 小时
给附件，趁我有兴趣，给你做一下：
阅读权限20
在线时间 小时
李兴德 发表于
求助前学会如何求助,将更利于问题的解决.如说明要求,模拟结果,上传附件(压缩后的)......
首先从左至右查找第一次出现某个字符串的单元格的位置，然后返回该单元格的列号。
接着我会写第二个公式，搜索第二次出现该字符串的单元格的位置，并返回该单元格的列号。
直至返回的不是字母，是数字。
最好对公式做一些解释，本人菜鸟...
阅读权限20
在线时间 小时
& & & & & & & &
wzsy2_mrf 发表于
给附件，趁我有兴趣，给你做一下：
帮忙试试看看...相信这些难道不到&大家&
17:11 上传
点击文件名下载附件
34.92 KB, 下载次数: 5
阅读权限50
在线时间 小时
本帖最后由 wzsy2_mrf 于
18:55 编辑
'把以下函数放在模块那里，然后象普通函数那样用就可以了，num 表示第几次，iRow 表示你要查找的行，searStr表示你要找的字符串
Function getCol(num As Integer, iRow As Long, searStr As String) As String
Dim i&, iEnd&, k&
iEnd = Range(&IV& & iRow).End(xlToLeft).Column
For i = 1 To iEnd
& & If Cells(iRow, i) = searStr Then
& && &&&k = k + 1
& && &&&If k = num Then getCol = Split(Cells(iRow, i).Address, &$&)(1): Exit Function
& & End If
getCol = &没有找到&
End Function
最新热点 /1
当当网ExcelHome部分图书只要5折，是5折，没错是5折，重要的事情说三遍！注意，带“限时抢”字眼的才有5折哦！购买猛戳下面“查看”了解。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师在VB中，如何添加excel中第一行中所有不为空的单元格中的文本到combo中？
[问题点数：80分，结帖人u]
在VB中，如何添加excel中第一行中所有不为空的单元格中的文本到combo中？
[问题点数：80分，结帖人u]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2013年12月 VB大版内专家分月排行榜第二2013年3月 VB大版内专家分月排行榜第二2013年1月 VB大版内专家分月排行榜第二2012年9月 VB大版内专家分月排行榜第二2012年8月 VB大版内专家分月排行榜第二2012年7月 VB大版内专家分月排行榜第二2006年7月 VB大版内专家分月排行榜第二2006年5月 VB大版内专家分月排行榜第二
2014年9月 VB大版内专家分月排行榜第三2013年7月 VB大版内专家分月排行榜第三2013年6月 VB大版内专家分月排行榜第三2013年4月 VB大版内专家分月排行榜第三2012年11月 VB大版内专家分月排行榜第三2006年6月 VB大版内专家分月排行榜第三2006年4月 VB大版内专家分月排行榜第三2002年12月 VB大版内专家分月排行榜第三2002年11月 VB大版内专家分月排行榜第三
2015年4月 VB大版内专家分月排行榜第二2015年3月 VB大版内专家分月排行榜第二2014年11月 VB大版内专家分月排行榜第二2014年10月 VB大版内专家分月排行榜第二
2014年4月 VB大版内专家分月排行榜第三
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。查看: 521|回复: 4
阅读权限1UID762257函数0 关最后登录经验8 点在线时间2 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6 个积分8精华0帖子日志注册时间
幼儿园小班, 积分 8, 距离下一级还需 92 积分
金币6 个积分8帖子
点击宏代码按钮后，对整个表格中显示出的文字或数值的内容进行保护不让其能够修改，是用宏代码！！
阅读权限26UID668910函数1 关最后登录经验71416 点在线时间2907 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币10598 个积分71416精华0帖子日志注册时间
博士生导师, 积分 71416, 距离下一级还需 8584 积分
金币10598 个积分71416帖子
Sub test0()
Protect Password:=&&
09:47 上传
点击文件名下载附件
7.41 KB, 下载次数: 5
阅读权限1UID762257函数0 关最后登录经验8 点在线时间2 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6 个积分8精华0帖子日志注册时间
幼儿园小班, 积分 8, 距离下一级还需 92 积分
金币6 个积分8帖子
baksy 发表于
Sub test0()
Protect Password:=&&
不是你那样的，是只对有内容的单元格进行锁定，其他没内容的还能进行编辑，不是自动锁定，是通过VBA按钮进行锁定！
10:00 上传
点击文件名下载附件
8.06 KB, 下载次数: 2
阅读权限16UID689134函数0 关最后登录经验5443 点在线时间934 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币1958 个积分5443精华0帖子日志注册时间
大学1年级, 积分 5443, 距离下一级还需 557 积分
金币1958 个积分5443帖子
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
& & Sheet2.Unprotect Password:=&&
& & If ActiveCell.Value && && Then
& && &&&Target.Locked = True
& && &&&Sheet2.Protect Password:=&&
& & End If
End Sub复制代码保护有内容的单元格不被修改，空单元格可以写入内容
我觉得这种方法可以试试
学习别人提高自己，帮助别人也能提高自己。
阅读权限1UID762257函数0 关最后登录经验8 点在线时间2 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6 个积分8精华0帖子日志注册时间
幼儿园小班, 积分 8, 距离下一级还需 92 积分
金币6 个积分8帖子
Sub 保护公式()
ActiveSheet.Unprotect '解除对工作表的保护
Cells.Select '选中整个表格
Selection.Locked = False '解除锁定
Selection.SpecialCells(xlCellTypeFormulas, 23).Select '选中包含公式的单元格
在这里加一个选中非空的单元格代码，这代码怎么写？也就是有内容的单元格
Selection.Locked = True '添加锁定
Selection.FormulaHidden = True '添加隐藏
ActiveSheet.Protect '保护工作表，并设置密码
ActiveSheet.EnableSelection = xlUnlockedCells '让锁定单元格不能选中
最佳答案累计大于500
Powered by您的举报已经提交成功，我们将尽快处理，谢谢！
我不是专家，但也想试一试。
在表的最下方有sheet1 sheet2等标签.你在任何一个标签上击右键-----插入-----工作表-----确定.这样就可以了
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'}