:
OptionExplicitSubygb()Dimi,j,k,s,arri=2WhileCells(i,"K")""j=13'M列ForEachsInSplit(Cells(i,"K"),"/")arr=Split(s,"(")Cells(i,j)=arr(LBound(arr))s=arr(UBound(arr))k=Mid(s,3,Len(s)-3)IfLeft(s,2)="OS"ThenCells(i,j+1)=kElseCells(i,j+2)=kEndIfj=j+3Nextsi....