标题:查找特定字符单元格并标明顺序?
只看楼主
newsoftware
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2017-7-21
结帖率:66.67%
 问题点数:0 回复次数:1 
查找特定字符单元格并标明顺序?
请教各位大神,如何用VBA查找特定字符单元格并自动标明顺序?

比如如下


搜索更多相关主题的帖子: 查找 特定 字符 单元格 顺序 
2018-04-10 19:45
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:26
帖 子:197
专家分:1249
注 册: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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-485948-1-1.html




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

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