| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
买学问 - 大牛一对一辅导,有问必答买学问 - 专业的付费知识问答平台
共有 706 人关注过本帖
标题:查找特定字符单元格并标明顺序?
只看楼主 加入收藏
newsoftware
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2017-7-21
结帖率:66.67%
  问题点数:0  回复次数:1   
查找特定字符单元格并标明顺序?
请教各位大神,如何用VBA查找特定字符单元格并自动标明顺序?

比如如下


附件: 您没有浏览附件的权限,请 登录注册
2018-04-10 19:45
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:23
帖 子:167
专家分:1105
注 册:2017-7-8
  得分:0 
'自定义函数,用法:=GetNumValue(B2)
程序代码:
Public Function GetNumValue(ByVal rg As Range) As String
Dim strValue As String
Dim r, i, c, j As Integer
strValue = rg.Value
r = rg.Row
c = rg.Column
j = 0
For i = 1 To r
  If Cells(i, c).Value = strValue Then
    j = j + 1
  End If
Next
GetNumValue = "第" & j & "个:" & rg.Value
End Function
2018-04-26 07:20







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028639 second(s), 9 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved