如何将指定行复制到另一个表的非空行中？

jimmyyq

比如“工作表1.xls”中，第二行内容为手动输入内容。然后点击按钮，如何才能复制到“工作表2.xls“已有数据的下一行。


测试表格.rar (3.3 KB, 下载次数: 16)

2018-8-21 13:11 上传

点击文件名下载附件

microyip

这个在论坛里有很多例子，搜索一下就可以了

jiangxiaoyun

sheets("工作表名称").cells(rows.count,1).end(xlup).row ,第一个非空行

ykqrs

选择要复制的单元格

1. Sub qq()
   
2. Dim p$, wb, r%, rng
   
3. Application.ScreenUpdating = False
   
4. Application.DisplayAlerts = False
   
5. Set rng = Selection
   
6. p = ThisWorkbook.Path & "\工作表2.xls"
   
7. Set wb = Workbooks.Open(p)
   
8. With wb.Sheets(1)
   
9. r = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
   
10. rng.Copy .Range("a" & r)
    
11. wb.Close True
    
12. End With
    
13. End Sub

复制代码

jimmyyq

希望各位给个代码，不懂VBA。都是靠录制解决问题，这个处理不了。

jimmyyq

ykqrs 发表于 2018-8-21 14:14
选择要复制的单元格

试了下大哥的代码，不知怎么回事成功率很低，而且会自动关闭工作表2。我想整行复制到工作表2，保存表2，回到表1继续输