租号 yifile

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的运行速度。

及时清理缓存文件和垃圾文件，

打开腾讯手机管家—健康优化—垃圾清理—垃圾扫描—完成。

>> 不是您想要的 ? 去 彩虹6号租号 浏览更多游戏攻略。<<