头一次遇到这样的情况，不知道有没有公式可以解决？

GUO143213

D列：将A列有“-”的位号全部展开
E列：根据D列的位号，计算数量

哪位大佬帮忙看看能不能解决，谢谢！

高个子

第一个问题函数得Excel 2013及以上才能稍微短一点，如果不是则公式很长，我手里只有一个图片，没有文字，所以建议下载power query插件然后用pq解决，或者VBA解决。
第二个问题

1. =LEN(D2)-LEN(SUBSTITUTE(D2," ",))+1

复制代码

HSIAOQIANG

書寫不規範

E风卍行H

自定义函数：
F2单元格公式：=位号(A2)
G2单元格公式：=用量(F2)

加载宏的用法自己百度哈

1. Function 位号(rng As Range, Optional str As String) As String
   
2.     Dim arr, brr()
   
3.     Dim i As Long, j As Long, n As Long
   
4.     Dim mystr As String, tstr As String
   
5.     Dim minVal As Integer, maxVal As Integer
   
6.    
   
7.     Application.Volatile
   
8.    
   
9.     If str = "" Then str = "-"
   
10.     arr = Split(rng, " ")
    
11.     For i = LBound(arr) To UBound(arr)
    
12.         If InStr(arr(i), str) Then
    
13.             For j = 1 To Len(arr(i))
    
14.                 If Val(Mid(arr(i), j, 1)) <> 0 Then
    
15.                     mystr = Left(arr(i), j - 1)
    
16.                     Exit For
    
17.                 End If
    
18.             Next j
    
19.             tstr = Replace(arr(i), mystr, "")
    
20.             minVal = Split(tstr, str)(0)
    
21.             maxVal = Split(tstr, str)(1)
    
22.             For j = minVal To maxVal
    
23.                 n = n + 1
    
24.                 ReDim Preserve brr(1 To n)
    
25.                 brr(n) = mystr & CStr(j)
    
26.             Next j
    
27.         Else
    
28.             n = n + 1
    
29.             ReDim Preserve brr(1 To n)
    
30.             brr(n) = arr(i)
    
31.         End If
    
32.     Next i
    
33.    
    
34.     位号 = Join(brr, " ")
    
35. '    Application.Caller.Offset(0, 1).Value = UBound(brr)
    
36.    
    
37. End Function
    
38. 
    
39. Function 用量(rng As Range)
    
40.     Application.Volatile
    
41.     用量 = UBound(Split(rng.Value, " ")) + 1
    
42. End Function

复制代码

GUO143213

HSIAOQIANG 发表于 2022-10-8 10:40
書寫不規範

没看明白你说的意思。。。

HSIAOQIANG

GUO143213 发表于 2022-10-8 11:10
没看明白你说的意思。。。

數據錄入的時候不要投機取巧,你這問題計算組成用量不難,要展開就太難了.

无聊的黑猫

高个子 发表于 2022-10-8 09:47
第一个问题函数得Excel 2013及以上才能稍微短一点，如果不是则公式很长，我手里只有一个图片，没有文字，所 ...

第一个问题能用TEXTJOIN SUBSTITUTE来完成吗用SUBSTITUTE把C1-3 C5-7 C9-12 C15-19 C23 C83...替换成ROW(C1:C3),ROW(C5:C7),ROW(C9:C12),ROW(C15:C19),ROW(C23),ROW(C83)在前面加C形成数值然后利用TEXTJOIN来组合 不过做到这少了个函数来转换 请教下 这样的思路可以弄起来吗 像=TEXTJOIN(" ",,"c"&ROW(C1:C3))这样的

sandays

问题1：=LET(_a,LEFT(A2,MIN(FIND(ROW($1:$10)-1,A2&2/17))-1),TEXTJOIN(" ",,_a&TEXTSPLIT(TEXTJOIN(" ",,MAP("a"&TEXTSPLIT(SUBSTITUTE(SUBSTITUTE(A2,_a,),"-",":a")," "),LAMBDA(_b,TEXTJOIN(" ",,ROW(INDIRECT(_b))))))," ")))

高个子

无聊的黑猫 发表于 2022-10-8 11:20
第一个问题能用TEXTJOIN SUBSTITUTE来完成吗用SUBSTITUTE把C1-3 C5-7 C9-12 C15-19 C23 C83...替换成ROW( ...

这个我觉得filterxml可以做，但是我一下子也做不出来

无聊的黑猫

高个子 发表于 2022-10-8 12:17
这个我觉得filterxml可以做，但是我一下子也做不出来

WPS没有这函数