Excel VBA简单选择工作表名称的一部分

Question

我有两张名字的表 160913-01和160913-01-2，我想只选择“160913-01”部分

怎么做？我的编码来获取工作表名称：

Sheet = ActiveSheet.Name

Answer 1

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

Sub GetPartSheetName（）
sName = ActiveSheet.Name
iNumberOfDashes = CountCharacter（sName，“ - ”）
如果iNumberOfDashes＆gt; 1然后
saParts = Split（sName，“ - ”）
sName = saParts（0）+“ - ”+ saParts（1）
结束如果
MsgBox sName
结束分

函数CountCharacter（ByVal值，ByVal ch）
cnt = 0
对于i = 1到Len（值）
如果Mid（value，i，1）= ch则cnt = cnt + 1
接下来
CountCharacter = cnt
结束功能