感謝邀請，這個問題要達到完全自動，需要使用VBA來處理
先看效果圖
具體VBA代碼如下：
如何使用：
附源代碼
'作者：Excel辦公實戰-小易
PrivateSubWorksheet_Change(ByValTargetAsRange)
Dimbrr()
IfTarget.Cells.Count<>1ThenExitSub
OnErrorResumeNext
Debug.PrintTarget.Address
Application.EnableEvents=False
IfTarget.Row=1Then
arr=Split(Target,"~")
Fori=arr(0)Toarr(1)Step5
n=n+1
ReDimPreservebrr(1Ton)
brr(n)=i
Next
Target.Offset(1,0)=Join(brr,"、")
EndIf
Application.EnableEvents=True
EndSub