map函数的问题

老刘888

问题在图片中

part98

map只返回单值，要用reduce

niko88819

part98老师不是用reduce就可以解决此问题，还要套其它函数才行，

1. =DROP（REDUCE（“”，A1:A3，LAMBDA（x，y，VSTACK（x，TEXTSPLIT（y，“-”）））），1）

复制代码

真麻烦，还是用自定义函数解决比较快

1. =mapsplit（A1:A5，“-”）

复制代码

1. Function mapsplit(rng As Range, delimiter As String) As Variant
   
2.     Dim cell As Range
   
3.     Dim output() As Variant
   
4.     Dim arr() As String
   
5.     Dim i As Integer, j As Integer
   
6.     Dim outputRow As Integer
   
7.     Dim maxCols As Integer
   
8.     maxCols = 0
   
9.     For Each cell In rng
   
10.         If cell.Value <> "" Then
    
11.             arr = Split(cell.Value, delimiter)
    
12.             If UBound(arr) + 1 > maxCols Then
    
13.                 maxCols = UBound(arr) + 1
    
14.             End If
    
15.         End If
    
16.     Next cell
    
17.     ReDim output(1 To rng.Cells.Count, 1 To maxCols)
    
18.     outputRow = 1
    
19.     For Each cell In rng
    
20.         If cell.Value <> "" Then
    
21.             arr = Split(cell.Value, delimiter)
    
22.             For i = 0 To UBound(arr)
    
23.                 output(outputRow, i + 1) = arr(i)
    
24.             Next i
    
25.             For i = UBound(arr) + 2 To maxCols
    
26.                 output(outputRow, i) = ""
    
27.             Next i
    
28.         Else
    
29.             For i = 1 To maxCols
    
30.                 output(outputRow, i) = ""
    
31.             Next i
    
32.         End If
    
33.         outputRow = outputRow + 1
    
34.     Next cell
    
35.     mapsplit = output
    
36. End Function

复制代码

niko88819

最快方法数据分列也行

boyuanoffice

1. =REDUCE(,REGEXP(A1:A3,"\w+",3),VSTACK)

复制代码

新版wps