shell代码Excel中多个shell内容合并的⽅法记录1）新建⼀个shell⽤来保存合并后的数据集合
2）在新建的shell名字地⽅右键单击，选择查看代码
3）在弹出的Microsoft Visual Basic for Applications 中⽣成的⼯作簿中，复制粘贴进如下代码
Sub 合并当前⼯作簿下的所有⼯作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "全部⼯作表已经合并完毕！", vbInformation, "提⽰"
End Sub
4)在菜单栏到运⾏，然后再弹出栏中选择运⾏⼦窗⼝
5) 给宏定义名字，然后点击运⾏即可

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。