动辄上万条，人要疯了，求大佬帮忙解决，看看这个如何批量新增行

FIND两个相邻的顿号，用MID函数提取即可

Option Explicit
Sub abc()
　Dim a, i, j, m, t
　a = [a1].CurrentRegion.Resize(, 3).Value
　ReDim b(1 To 10 ^ 4, 1 To 3)
　For i = 2 To UBound(a)
　　t = Split(a(i, 3), "、")
　　For j = 0 To UBound(t)
　　　m = m + 1
　　　b(m, 1) = a(i, 1): b(m, 2) = a(i, 2): b(m, 3) = t(j)
　　Next
　Next
　With [e2]
　　[a1].Resize(, 3).Copy .Offset(-1)
　　.Resize(m, 3) = b
　End With
End Sub

乱写的，不知道会不会有错在C2输入这个，下拉
=TRIM(MID(SUBSTITUTE($C$1,"、",REPT(" ",99)),98*(ROW(A1)-1)+1,99))

还有一个办法，分列，顿号为分隔符，分完后复制，选择性粘贴，转置

我有个思路，先在D1格中算中C1格中共包含专业的个数，然后，在E1开始，按专业个数重复填充A、B两列数据，再到G对C进行拆分，一个专业占一行。
只是动辄就上万的数据，就算公式能出来，也得卡成狗。还是直接喊VBA大佬吧。

PQ大法好

还可以随时更新

前面增加两个辅助列，然后，后面可以用公式求出对应的数据。
A1=LEN(E1)-LEN(SUBSTITUTE(E1,"、",""))+1
B1=SUM($A$1:A1)
F1=IFERROR(VLOOKUP(ROW(A1),$B$1:$D$30000,COLUMN(B1),0),F2)&""
拉到G列后下拉
H1=TRIM(MID(SUBSTITUTE(INDEX($E$1:$E$20,MATCH(F1&G1,$C$1:$C$20&$D$1:$D$20,)),"、",REPT(" ",99)),COUNTIF($G$1:G1,G1)*99-98,99))
CTRL+SHIFT+回车

c分列，然后复制，粘贴时选转置