Excel VBA简单的select表格名称的一部分

我有2张名片，如160913-01和160913-01-2，我只想select“160913-01”部分

这个怎么做？ 我的编码获取表名：

Sheet = ActiveSheet.Name 

Answer 1

只要使用破折号作为分隔符，您可以使用以下代码：

Sub GetPartSheetName（）
sName = ActiveSheet.Name
iNumberOfDashes = CountCharacter（sName，“ – ”）
如果iNumberOfDashes> 1那么
saParts =分割（sName，“ – ”）
sName = saParts（0）+“ – ”+ saParts（1）
万一
MsgBox sName
结束小组

函数CountCharacter（ByVal值，ByVal ch）
cnt = 0
对于i = 1至Len（值）
如果Mid（值，i，1）= ch，那么cnt = cnt + 1
下一个
CountCharacter = cnt
结束function