假设你的20行内容在“表0”Sub Add接跑原派术首WorksheetAfterLast() On Error Resume Next For i=1 to 20 来自Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "表" & i Worksheets("木衡易背表" & i).Rows("1")=Worksheets("表0").Rows(i).Value Next iEnd Sub追问 : 不明白,求详细指引步骤。 追答 : 下载文件自己套用 很抱歉,回答者上传的附件已失效
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号