Excel 与select case连接

在我的电子表格中，我有以下格式的时间：1415或415或45或5。我需要将此转换为14:15或04:15、00:45或00:05

以下是我尝试过的编码，但它给了我错误信息：

编译错误：未定义子或函数

Dim LENGTH As Integer
Do Until IsEmpty(ActiveCell.Value)
ActiveCell.Offset(1, 0).Range("A1").Select
a = ActiveCell.Value
LENGTH = Len(a)
    Select Case LENGTH
        Case Is = 4
            B = Value(Concatenate(Left(a, 1), ":", Right(a, 2)))
        Case Is = 3
            B = Value(Concatenate("0", Left(a, 1), ":", Right(a, 2)))
        Case Is = 2
            B = Value(Concatenate("00", ":", Right(a, 2)))
        Case Is = 1
            B = value(Concatenate("00:0", ":", Right(a, 1)))
    End Select
ActiveCell.Value = B
Selection.NumberFormat = "hh:mm"
Loop

---

您正在尝试使用Excel公式，如VBA函数。
有时也可以这样做，但只能使用WorksheetFunction

例如：

Sum(1, 2, 3)

不行

WorksheetFunction.Sum(1, 2, 3)

会有用的

重要提示：大多数，但并非所有的工作表功能都可以在VBA中访问。通常情况下，无法通过工作表函数访问具有等效VBA解决方案的函数

例如，Concatenate不是。但是，您可以将字符串与&:

---

谢谢乌利，我去掉了连接并使用了“&”，它就像一个符咒。

"Apple " & "Pie" -> "Apple Pie"