修改下移代码

ddz79101 · 发表于 2024-1-4 15:00

本帖最后由 ddz79101 于 2024-1-4 15:11 编辑

老师！有2个工作簿，希望复制B簿中的表名为1和2的表到A簿中现代码复制的工作表为从A1复制，我希望从A4复制，我将：sht.Copy After:=wb.Sheets(wb.Sheets.Count)修改为： sht.UsedRange.Offset(4, 1).Copy After:=wb.Sheets(wb.Sheets.Count)，也不行。望老师能加以修改。谢谢！

ddz79101 · 发表于 2024-1-4 16:15

sht.Copy After:=wb.Sheets(wb.Sheets.Count)修改为： sht.cellls(4, 1).Copy After:=wb.Sheets(wb.Sheets.Count)也不行

hlxue · 发表于 2024-1-4 16:32

sht.Copy After:=wb.Sheets(wb.Sheets.Count)
wb.Sheets(wb.Sheets.Count).Rows("1:3").delete

ykcbf1100 · 发表于 2024-1-4 16:43

原代码基础上改的，供参考。。。

ddz79101 · 发表于 2024-1-4 17:42

ykcbf1100 发表于 2024-1-4 16:43
原代码基础上改的，供参考。。。

谢谢老师！改得好！运行成功

		自动登录	找回密码
密码			免费注册

[求助] 修改下移代码

评分