感谢邀请，这个问题要达到完全自动，需要使用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
