Question

您好，有个关于excel的问题想请教你一下

我想把C1-C5，展开为C1,C2,C3,C4,C5，应该怎么做，谢谢还有的带特殊符号。。。。

Answer 1

这个用自定义函数会方便些。

自定义函数代码：

Function Fill(ByVal rng As Range)
    Dim str$, st1$, st2$, st3$, FinX%, i%, L%, k%, j%, ar()
    str = rng
    If str = "" Then Fill = "": Exit Function
    L = Len(rng)
    FinX = InStr(str, "-")
    Do Until IsNumeric(Mid(str, FinX - 1 - k, 1)) = False
        st1 = st1 & Mid(str, FinX - 1 - k, 1)
        k = k + 1
    Loop
    st3 = Left(str, FinX - 1 - k)
    k = 0
    Do Until IsNumeric(Mid(str, L - k, 1)) = False
        st2 = Mid(str, L - k, 1) & st2
        k = k + 1
    Loop
    For i = st1 To st2
        ReDim Preserve ar(j)
        ar(j) = st3 & i
        j = j + 1
    Next
    Fill = Join(ar(), ",")
End Function

追问

试了一下，只能实现一部分，实际情况可能还有更复杂的，能帮忙再看一下吗？谢谢

追答

你把复杂的可能情况描述清清楚楚，没有什么是不能解决的。

追问

实际情况大概有这么几种：

1. 不用展开

2. 多位不用展开

3. 不用展开和多个展开结合

4. 多个展开，和带特殊符号多个展开，结合

5. 更多结合

   大概像图片上这些，另外字母可能有很多种

追答

代修订好了，因字数超标，不能发。只能截图：

Answer 2

B1=RIGHT(RIGHT(A1,LEN(A1)-FIND("-",A1)))-RIGHT(LEFT(A1,FIND("-",A1)-1))向下复制

C1=LEFT(A1,FIND("-",A1)-1)向下复制

D1=IF(COLUMN(A1)>$B1,"",","&LEFT($C1,LEN($C1)-1)&COLUMN(B1))向下向右复制

I1=C1&D1&E1&F1&G1&H1向下复制