tmpWorkBook.Worksheets(1).Select
tmpWorkBook.Worksheets(1).UsedRange.Copy
xlsWorkBook.Worksheets(index).Activate
xlsWorkBook.Worksheets(index).UsedRange.Clear
xlsWorkBook.Worksheets(index).Range("A1").Select
xlsWorkBook.Worksheets(index).Paste
tmpWorkBook.Worksheets(1).UsedRange.Copy
xlsWorkBook.Worksheets(index).Activate
xlsWorkBook.Worksheets(index).UsedRange.Clear
xlsWorkBook.Worksheets(index).Range("A1").Select
xlsWorkBook.Worksheets(index).Paste
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货