租号 yifile
2020-10-28 16:53:29 · 浏览次数：0 来源：U租号网
EXCEL VBA复制粘贴到另一新表中,想让粘贴后的格式和复制的格式一样,即长宽,合并等和原表一样,求代码修改
Sub 生成()
Dim ifile As String, xx%, yy%
Dim wb As Workbook
yy = Sheet1.Range("A65536").End(xlUp).Row
For xx = 2 To yy
Sheet2.Range("B3") = Sheet1.Range("A" & xx)
'Sheet2.Range("A1:M28").Copy
ifile = ThisWorkbook.Path & "\" & Sheet1.Range("A" & xx) & ".xls"
Set wb = Workbooks.Add
Sheet2.Copy Before:=wb.Sheets(1)
'Sheet2.Range("A1:M28").Copy ActiveWorkbook.Sheets("sheet1").Range("A1")
wb.SaveAs ifile, True
wb.Close
Next
End Sub
yifile怎么速度那么慢
手机卡慢是因为下载缓存的东西太多了，内存不足，运行不过来，
可通过一键加速释放空间，提升手机运行速度。
可装腾讯手机管家，它推出小火箭实现休闲一键式手机桌面加速功能。
加速后一般可以提升手机百分之35的运行速度。
及时清理缓存文件和垃圾文件，
打开腾讯手机管家—健康优化—垃圾清理—垃圾扫描—完成。