吾爱破解 - LCG - LSG |安卓破解|病毒分析|www.52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 19499|回复: 145
收起左侧

[Windows] (原创)Excel表拆分、合并小工具,无需安装office(求热心,小声说道)

    [复制链接]
zhp20121231 发表于 2019-9-4 16:44
本帖最后由 zhp20121231 于 2019-9-14 09:33 编辑

Excel文件拆分、合并小工具
先给链接再bb,度娘:小工具 V2.0 链接地址:链接: https://pan.baidu.com/s/1wkhyU__xOrC5yujL59ijvw 提取码: t7sd
功能1、批量拆分 2、 批量导出  3、随意合并    (xls、xlsx 格式都支持)


小工具 V1.0 链接地址:https://pan.baidu.com/s/1OZY0rmmKBY3zYKl4Febb4Q 提取码: t676

对象:Excel文件
功能1、将Excel的Sheet拆分开,分别保存为一个单独的Excel文件
           2、将多个Excel表,合并为一个Excel文件


一个自己做的功能很单一的小软件,分享给各位基友...
还请多多反馈问题,或者建议。亦或者别的有趣使用的工具,如果能力所及



最后,偷偷的说一下,如果有能力的 还希望给个爱心,偷个币,谢谢...
20190904 18:59
补充三点,一是有人问到的,觉得有必要说明一下,这个是在使用者本地 合成、拆分,不会窃取导入的excel文件的
                  二是确实很多热情的基友们,积极反馈问题和没考虑到的情况,这个本人有空余时间,尽力去完善,做成一个好用的小工具
                  三是感谢大伙的热情,但是,系统告诉我一个小时之内只能回复十条,所以 ,不能一一回复留言,很是遗憾,希望大伙热情不会褪去



20190905 1500
v2.0发出来了,希望站内基友们能够多多支持,积极反馈

V2.0界面

V2.0界面

免费评分

参与人数 34吾爱币 +28 热心值 +30 收起 理由
skrboy + 1 + 1 我很赞同!
大雨治水都没了 + 1 + 1 我想找你定制一个自动排班,算值班费,考勤的小软件
wjr0060 + 1 热心回复!
杨教授之吻灬 + 1 + 1 鼓励转贴优秀软件安全工具和文档!
lange007 + 1 谢谢@Thanks!
ftcool + 1 + 1 我很赞同!
yefeng007520 + 1 + 1 谢谢@Thanks!
奇思多妙想 + 1 + 1 加分!
zigzagna + 1 + 1 我很赞同!
孤单地走 + 1 + 1 热心回复!
magic0429 + 1 谢谢@Thanks!
cool0077 + 1 + 1 谢谢@Thanks!
inexus + 1 + 1 谢谢@Thanks!
lyslxx + 1 + 1 我很赞同!
房三老哥 + 1 + 1 谢谢@Thanks!
WApj1426 + 1 鼓励转贴优秀软件安全工具和文档!
tina0508 + 1 我很赞同!
sun067500 + 1 + 1 谢谢@Thanks!
祖大少 + 1 谢谢@Thanks!
浪荡 + 1 + 1 我很赞同!
lty060432 + 1 + 1 这个必须支持下
小歆 + 1 + 1 感谢发布原创作品,吾爱破解论坛因你更精彩!
angelstail + 1 我很赞同!
poiiiii2019 + 1 我很赞同!
wersen + 1 我想知道除了慧办公还有TOOL,你这是否够新鲜
www.52pojie.cn + 1 + 1 谢谢@Thanks!
yanglinman + 1 谢谢@Thanks!
小橙紫 + 2 + 1 用心讨论,共获提升!
cashover + 1 鼓励转贴优秀软件安全工具和文档!
第一季 + 1 + 1 用心讨论,共获提升!
certificate + 1 + 1 我很赞同!
违规昵称96 + 1 + 1 热心回复!
silence1981 + 1 + 1 谢谢@Thanks!
mei564335 + 1 + 1 热心回复!

查看全部评分

本帖被以下淘专辑推荐:

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

 楼主| zhp20121231 发表于 2019-9-4 20:26
abs 发表于 2019-9-4 20:04
好像是合并到一个簿中,多个表。。
能否添加一表,把多簿多表合并成一个表呢?加2例辅助列,一列是来自哪 ...

嗯嗯  是这样的 多个簿的多个表合并到一个工作簿中多个表
你这个其实是单独的需求了,我们以2个代表多个合并的情况
1、把两个表的列合并到一起,那这样数据关联键是哪列呢
2、把两个表的行数据加在一起,那这样就是要保证两个表的列是一样的字段。
我猜测你想的应该是   字段相同  把数据一行行的合并一起,这个应该是可以做的。不过比较偏业务了。
目前做的,就是比较交单的 ,excel文件的拆分、合并功能。不过谢谢提建议,有空可以做,如果你有业务要求,也可以私聊定制
abs 发表于 2019-9-6 08:14
Sub 工作表()
    Dim MyPath, MyName, AWbName
    Dim Wb As Workbook, WbN As String
    Dim G As Long, ShRcou As Long, ShCol As Integer
    Dim Num As Long, WbSht As String
   
    Application.ScreenUpdating = False
    MyPath = ActiveWorkbook.Path
    MyName = Dir(MyPath & "\" & "*.xls")
    AWbName = ActiveWorkbook.Name
    Num = 0
   
    Do While MyName <> ""
        If MyName <> AWbName Then
            Set Wb = Workbooks.Open(MyPath & "\" & MyName)
            Num = Num + 1
            With Workbooks(1).ActiveSheet
               
                For G = 1 To Sheets.Count
                    WbSht = Replace(Left(MyName, Len(MyName) - 4), ".", "") & ";" & Wb.Sheets(G).Name
                    If .UsedRange.Count = 1 Then
                        ShCol = Wb.Sheets(G).UsedRange.Columns.Count
                        ShRcou = Wb.Sheets(G).UsedRange.Rows.Count
                        .Cells(1, ShCol + 1) = "合并名称"
                        .Cells(1, ShCol + 1).Font.Bold = 1
                        .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, ShCol + 1).Resize(ShRcou - 1) = WbSht
                        Wb.Sheets(G).UsedRange.Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)
                    Else
                        ShRcou = Wb.Sheets(G).UsedRange.Rows.Count
                        .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, ShCol + 1).Resize(ShRcou - 1) = WbSht
                        Wb.Sheets(G).Cells(2, 1).Resize(ShRcou, ShCol).Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
                    End If
                Next
                WbN = WbN & Chr(13) & Wb.Name
                Wb.Close False
            End With
        End If
        MyName = Dir
    Loop
    ActiveSheet.UsedRange.Borders.LineStyle = 1
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub
 楼主| zhp20121231 发表于 2019-9-4 16:45
本帖最后由 zhp20121231 于 2019-9-5 15:38 编辑

沙发不给人,自己坐。。
希望能多给点热心,好早日从小黑屋里面出来
xulong2213 发表于 2019-9-4 16:47
下载看看好用吗。之前都是用的查看代码那粘贴代码来拆分excel的
sxpdwzs 发表于 2019-9-4 16:47
先顶起再说
 楼主| zhp20121231 发表于 2019-9-4 16:51
xulong2213 发表于 2019-9-4 16:47
下载看看好用吗。之前都是用的查看代码那粘贴代码来拆分excel的

额,不知道你再说什么,好像很厉害的样子。
这个是自己做的,有啥问题,还请多多反馈。或者建议
 楼主| zhp20121231 发表于 2019-9-4 16:52

额,这么豪爽啊!!!
谢谢了,要是再写个800字使用感,就更感谢了。
ml72 发表于 2019-9-4 17:02
先顶起!
不同版本的excel文件支持同时合并么?比如97版的和2016版的。
氓之嗤嗤 发表于 2019-9-4 17:10
支持什么版本?
 楼主| zhp20121231 发表于 2019-9-4 17:12
ml72 发表于 2019-9-4 17:02
先顶起!
不同版本的excel文件支持同时合并么?比如97版的和2016版的。

咦,这个,那个。。。
哈哈哈,我就是一个敲键盘的,想不到这么多
老哥,这个角度,我没看过
多谢反馈,我去测一下,改进一下,这里先给您拜年了

免费评分

参与人数 1热心值 +1 收起 理由
www.52pojie.cn + 1 新年快乐!

查看全部评分

hzappo 发表于 2019-9-4 17:13
终于可以不用复制、粘贴了
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则 提醒:禁止复制他人回复等『恶意灌水』行为,违者重罚!

快速回复 收藏帖子 返回列表 搜索

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-3-29 23:36

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表