Excel 提取并扩展序列号的范围

我有示例ABC100-10的输入。也就是说，它是一系列：

ColA  |
ABC100|
ABC101|
...   |
ABC110|

如何将“ACB100-10”复制粘贴到单元格中，然后让Excel将其展开到列中的ABC100、ABC101、…、ABC110？我意识到向下拖动以扩展。。但我不想要这个方法：）

---

谢谢。

如果运行此宏，该列将从下面的ActiveCell中填充：

Sub KolumnKreator()
    Dim s As String, K As Long, N As Long, T As String
    s = Application.InputBox(Prompt:="Enter input", Type:=2)
    If InStr(1, s, "-") = 0 Then Exit Sub
    ary = Split(s, "-")
    K = CLng(ary(1))
    N = NumPart(ary(0))
    T = TexPart(ary(0))
    For i = 0 To K
        ActiveCell.Offset(i, 0).Value = T & N + i
    Next i
End Sub

Public Function NumPart(Inn) As Long
    temp = ""
    For i = 1 To Len(Inn)
        ch = Mid(Inn, i, 1)
        If ch Like "[0-9]" Then temp = temp & ch
    Next i
    NumPart = CLng(temp)
End Function

Public Function TexPart(Inn) As String
temp = ""
    For i = 1 To Len(Inn)
        ch = Mid(Inn, i, 1)
        If Not ch Like "[0-9]" Then temp = temp & ch
    Next i
    TexPart = temp
End Function

---

此任务是否需要VBA？我能够将

ABC100

写入单元格

A1

中，然后将条目向下拖动到单元格

A11

，该单元格根据您的请求自动填充单元格瓦格纳，我想复制“ACB100-10”，然后让Excel展开并向下填充该列。：）