excel表打开后弹出空白表
点击【文件】 -> 【选项】 -> 【加载项】下方的管理选择“COM加载项 -> 点击【转到】去掉 “MySQL For Excel”的勾,点击右上角【确定】完成,再次打开就没问题了。
2024.10.20效果如下所示:
要求汇总至一个工作表
1多个工作表
表一数据:
姓名定位性别程咬金坦克男刘禅坦克男墨子坦克男亚瑟坦克男钟无艳坦克女
表二数据:
表三数据:
2传统方法:
使用ALT+D+P功能的多重合并计算,但是在添加字段时,如果存在100张表格,那么这种方法的效率是极低的
3VBA代码
那么只需要使用VBA方法,就能轻松快速的解决,如果你的字段不是3个,那么仅需将下面字段中的标红位置进行相应修改即可!
VBA代码
Sub 多表合并()
Dim arr()
For Each sh In Sheets
If sh.Name "汇总" Then
arr1 = sh.Range("a2:c" & sh.UsedRange.Rows.Count)
act = act + UBound(arr1)
ReDim Preserve arr(1 To 3, 1 To act) ‘
For j = 1 To UBound(arr1)
n = n + 1
arr(1, n) = arr1(j, 1)
arr(2, n) = arr1(j, 2)
arr(3, n) = arr1(j, 3)
Next
End If
Next
Sheets("汇总").[a2].Resize(n, 3) = Application.Transpose(arr)
End Sub
将文件另存为xlsm格式,要不然重新打开文件时这段代码就消失了!
觉得好用的可以收藏分享给你的朋友哦!
---------------------------------
欢迎关注,更多精彩内容持续更新中....
学习5分钟,工作省2小时!
点击【文件】 -> 【选项】 -> 【加载项】下方的管理选择“COM加载项 -> 点击【转到】去掉 “MySQL For Excel”的勾,点击右上角【确定】完成,再次打开就没问题了。
2024.10.20Excel表格的基本使用在我们日常生活工作中非常常见,几乎每个工作都需要用到它,那么当Excel无法合并单元格时,我们有以下的方式来解决问题。首先选择自己需要合并的单元格,如下图:然后单击选择【开始】...
2024.10.18在日常工作中,难免碰到一些需要将excel表格中两列单元格的数据内容合并在一起的时候,那如何将excel表格中两列内容合并到一起呢?接下来小编跟大家讲讲具体操作步骤。首先,打开需要修改的excel表格...
2024.10.21在打开多个工作簿时,系统任务栏却只显示首个工作簿,堆叠显示的工作簿不见了,甚至使用系统切换键也无法切换到另一工作簿,出现这种情况是怎么回事?要怎么处理呢?在一个工作簿中创建了多个工作表,一不留神,竟然...
2024.10.21在工作中,我们会遇到这么一个问题,一次下载了很多相同的工作簿,然后需要快速汇总到一个工作簿里面,如果手动的复制粘贴,那就相当的耗时,而且还容易出错今天教大家2个技巧,快速批量合并工作簿1、文件是csv...
2024.10.17