如何将指定列的内容分别批量填入vba汇总多个工作表表的某个单元格！VBA如何实现呢？

来源：蜘蛛抓取(WebSpider) 时间：2023-06-14 11:38 标签： excel整列后面增加内容

0
如图，现在有这样一个工作簿，里面有一些工作表。在每个工作表中，都有对应的内容，格式都是一致的。
打开网易新闻 查看精彩图片
现在要将这些详细工作表同一位置A2:B2的内容都放入Sheet1中，并且是按行填入。
打开网易新闻 查看精彩图片
如果工作表很多的话，手动输入就比较麻烦，下面就介绍一下使用VBA来处理这样的表格。VBA代码如下：Sub Collection()Worksheets("Sheet1").ActivateDim i As Integer, j As Integerj = 2For i = 2 To Worksheets.CountWorksheets(i).Range("A2:B2").CopyWorksheets("Sheet1").Range("A" & j & ":B" & j).SelectActiveSheet.Pastej = j + 1Next iApplication.CutCopyMode = FalseRange("A1").SelectEnd Sub
打开网易新闻 查看精彩图片
打开网易新闻 查看精彩图片
这样就比较快速方便。当然了，在实际工作中，相关的数据或者信息会更加复杂，可以根据实际情况来进行调整。例如修改目标的单元格区域，在填入的单元格需要注意设置好新的范围，避免后面数据填入以后出现叠加覆盖情况。关于Office办公软件，如果遇到了什么问题，都可以进行留言，看到以后会第一时间进行回复。如果觉得好，也欢迎分享给更多的人，一起学习进步。我就知道你“在看”
特别声明：本文为网易自媒体平台“网易号”作者上传并发布，仅代表该作者观点。网易仅提供信息发布平台。

我要回帖

更多关于 excel整列后面增加内容 的文章

 

随机推荐