发布网友 发布时间:2022-04-24 15:32
共2个回答
热心网友 时间:2023-10-19 13:28
假设你的工作簿有三个工作表,sheet1从A1单元格开始有数据
部门
器材
使用人
备注
业务部
打印机
公用
爱普生630
客服部
传真机
公用
12345678
行政部
显示器
个人
三星晶液
sheet2从A1单元格开始有数据
部门
器材
使用人
业务部
办公桌
个人
客服部
办公椅
个人
行政部
办公柜
个人
sheet3是要合并前两个表的。那么
1、ALT+F11进入VBA编辑器,
2、在左上角的工程资源管理器(如果没有按组合键ctrl
+
R调出来),双击ThisWorkBook,在右侧的空白代码区粘贴下面代码。
Sub
合并()
Sheets(3).Select
Cells().Clear
Sheets(1).Select
Range("A1").CurrentRegion.Select
Selection.Copy
Sheets(3).Select
Range("A1").Select
ActiveSheet.Paste
Sheets(2).Select
Range("A1").CurrentRegion.Offset(1,
0).Select
Selection.Copy
Sheets(3).Select
Range("a"
&
Range("A65536").End(xlUp).Row
+
1).Select
ActiveSheet.Paste
Range("a1").Select
End
Sub
3、保存。退出VBA编辑器。
4、在sheet3添加一个椭圆形,然后右击椭圆形按钮,选择指定宏,在弹出的窗口中选择宏“合并”。
5、点击椭圆形看看是不是合并到一起了。
热心网友 时间:2023-10-19 13:28
1.打开所有需要处理的表格,如下图所示的四个表格。
2.在菜单栏中找到“视图”菜单,选择“全部充排”,调出“重排窗口”。
3.弹出如下图所示的重排窗口,可以看到几种排列方式:平铺、水平、垂直、重叠四种,可以根据喜好选择排列方式。
4.下面给出机种排列的效果图,如下图为:平铺的方式。
5.第二种为水平并排的方式。
6.第三种为垂直并排的排列方式。
7.最后为重叠的方式,这几种方式分别尤其各自的优缺点,也有其各自的使用场合,可以根据需要选择排列方式。