⚡️✨🐯✨⚡️:
Sub保留表头拆分数据为若干新工作簿()Dimarr,dAsObject,k,t,i&,lc%,rngAsRange,c%c=Application.InputBox("请输入拆分列号",,4,,,,,1)Ifc=0ThenExitSubApplication.ScreenUpdating=FalseApplication.DisplayAlerts=Falsearr=[a1].CurrentRegionlc=UBound(arr,2)Setrng=[a1].Resize(,lc)Setd=Cr....