转载：天极

　　常规的隐藏工作表的方法却可以通过“格式”菜单中的“工作表”，但是选择“取消隐藏”命令就可以看到。

　　有一种方法可以彻底隐藏Excel2007工作表：在当前工作簿中的“Workbook_Open”事件中输入代码“Worksheets(“工作表名称”).Visible = 2”就可以将指定的工作表彻底隐藏起来了。
　　需要显示该工作表时可将属性值由“2”改为“1”就可以了。

　　如下面的工作表图片：

　　我不知道给出的数字是否都是按这样的规律，即第一个原始数据的后面几位数与第二个原始数据的前面几位数相同。如果是这个规律的话，则可以就这个具体的例子给出下面的代码来实现：

Sub SeparateNumber()
    Dim strFirst AsString
    Dim strResult AsString
    Dim StartNum AsInteger
    Dim EndNum As String
    Dim i AsInteger, j AsInteger
    strFirst = Left(Range(”B1″), 1)
    StartNum = InStr(1, Range(”A1″), strFirst)
    j = 1
    For i = StartNum To Len(Range(”A1″))
        EndNum = Mid(Range(”A1″), i, 1)
        If EndNum = Left(Range(”B1″), j) Then
            j = j + 1
        EndIf
    Next i
    If j > 1 Then
        strResult = Mid(Range(”A1″), StartNum, i - 1)
    EndIf
    ‘单元格C1中的数据
    Range(”C1″).Value = strResult
    ‘单元格D1中的数据
    Range(”D1″).Value = Left(Range(”A1″), StartNum - 1)
    ‘单元格E1中的数据
    Range(”E1″).Value = Right(Range(”B1″), Len(Range(”B1″)) - j)
EndSub
代码很简单，只是运用了几个VBA函数。
讨论：

• 其实代码可以进一步简化，因为VBA还有一个数组函数(Split函数)。
  
• 如果要将其变为通用的，则可将上述代码转化为自定义函数，并用相对量代替代码中的硬编码。
  
• 两个单元格中的数字如果不是按上面提到的规律，则可能两个单元格中的数字中间部分相同，而其它部分不同；或者一个单元格中的数字结尾部分和另一个单元格中的数字的中间部分相同；等等。

　　有兴趣的朋友可以继续研究。