求教、在线等

zyf0308

哪位大师帮做个公式

gdw831001

=SUBSTITUTE(PHONETIC(OFFSET($K$1,MATCH(A1,J:J,0)-1,,COUNTIF(J:J,A1))),"班","班,")

zhouzhongchi

1. Sub try()
   
2.     arr = [j1].CurrentRegion
   
3.     Set d = CreateObject("scripting.dictionary")
   
4. 
   
5.     For i = 1 To UBound(arr)
   
6.         If Not d.exists(arr(i, 1)) Then
   
7.             d(arr(i, 1)) = arr(i, 2)
   
8.             Else
   
9.             d(arr(i, 1)) = d(arr(i, 1)) & "," & arr(i, 2)
   
10.         End If
    
11.     Next
    
12.     [a1].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
    
13. End Sub

复制代码

zhouzhongchi

re.zip (13.31 KB, 下载次数: 12)

2015-5-29 23:33 上传

点击文件名下载附件

horselyq

先分列，再三维表转二维表吧。

Asa8

1. =LEFT(SUBSTITUTE(PHONETIC(OFFSET($K$1,MATCH(A1,J:J,0)-1,,COUNTIF(J:J,A1))),"班","班,"),LEN(SUBSTITUTE(PHONETIC(OFFSET($K$1,MATCH(A1,J:J,0)-1,,COUNTIF(J:J,A1))),"班","班,"))-1)

复制代码

gdw831001

Asa8 发表于 2015-5-30 09:16

left的第二参数可以直接用countif(j:j,a1)*3-1

Asa8

gdw831001 发表于 2015-5-30 12:03
left的第二参数可以直接用countif(j:j,a1)*3-1

好的，谢谢～