回复：函数问题你问我答，太难的不会

Sub 拆数据()
Sheets("拆数据").Activate
Dim arr()
ReDim arr(1 To 3, 1 To 1)
arr(1, 1) = "姓名"
arr(2, 1) = "水果"
arr(3, 1) = "数量"
arr1 = Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To UBound(arr1)
arr2 = Split(arr1(i, 2), "，")
For j = 0 To UBound(arr2)
k = k + 1
ReDim Preserve arr(1 To 3, 1 To k + 1)
arr(1, k + 1) = arr1(i, 1)
arr(2, k + 1) = Split(arr2(j), "*")(0)
arr(3, k + 1) = Split(arr2(j), "*")(1)
Next
Next
Range("e1").Resize(UBound(arr, 2), 3) = Application.Transpose(arr)
End Sub

=SMALL($A$1:$J$20,ROUND(COUNT($A$1:$J$20)*0.96,0))

=OFFSET($B$1,SMALL(IFERROR(IF(MATCH($B$1:$B$100,$B$1:$B$100,)=ROW($B$1:$B$100),ROW($B$1:$B$100),10^6),10^6),ROW())-1,)&""

辅助列写入公式识别，true 1 就表示符合条件，不想辅助列就放在条件格式了，或用IF合成一个辅助列

=$B$2*1.05^INT((A3-$A$2)/3)

来问问题呗，争取今年突破1000回复

加油

=IFERROR(SUMIFS(OFFSET($B:$B,,MATCH(LOOKUP(1,0/($J$1:J$1<>""),$J$1:J$1),OFFSET($C$1:$F$1,LOOKUP(1,0/(OFFSET($B$1,,,MATCH($I3&TODAY()-1,$B:$B&$A:$A,))=""),ROW($B:$B))-1,),)),$B:$B,$I3,$A:$A,TODAY()-1),"")

=IFERROR(IFERROR((LEFT(A2,FIND("+",A2)-1)+0.5)&MID(A2,FIND("+",A2),FIND("*",A2)-FIND("+",A2)+1)&(MID(A2,FIND("*",A2)+1,99)+0.1),A2+0.5),LEFT(A2,FIND("*",A2))&(MID(A2,FIND("*",A2)+1,99)+0.1))

改良了公式，没有变短，但容错高了=IFERROR(LEFT(A2,COUNT(-LEFT(A2&"@",ROW($1:$99))))+0.5,"")&IFERROR(MID(LEFT(A2,FIND("*",A2)),COUNT(-LEFT(A2&"@",ROW($1:$99)))+1,99),"")&IFERROR(MID(A2,FIND("*",A2)+1,99)+0.1,"")

=IFERROR(INDEX(A:A,SMALL(IF(MATCH(A:A&"",A:A&"",)=ROW(A:A),ROW(A:A),""),ROW(A2)))&"","")
=IF(F2="","",IFERROR(INDEX($B:$B,SMALL(IF($A:$A=$F2,ROW($A:$A),""),COLUMN(A1))),""))

=ROW()-IFERROR(LOOKUP(1,0/($F$2:F3="小"),ROW($F$2:F3)),2)