精华内容
下载资源
问答
  • 前面我们已经掌握了单元格、工作表、按钮关联宏的使用今天我们就做一个综合案例 做案例之前我们先补充一点新知识 Cells(2,3) //表示两行三列的单元格 Range(“a1”).offset(1,2)// 下移一行,右移2行 Range(...

    前面我们已经掌握了单元格、工作表、按钮关联宏的使用今天我们就做一个综合案例

    做案例之前我们先补充一点新知识

    • Cells(2,3) //表示两行三列的单元格
    • Range(“a1”).offset(1,2) // 下移一行,右移2行
    • Range(“a10”).end(xlup) //从a10往上数,有多少行已用
    • Range(“a10”).entirerow //选中a10的整行
    • Range(“a10”).resize(1,10) //重选区域
    • Range(“a10”).copy //复制
    • sheet1.Range("a:f").AutoFilter field:=4, Criteria1:="一车间" //'在sheet1中筛选第四列为一车间的数据。其中field是第x列,Criteria1是筛选条件。注意Criteria1最后一个是数字1

    案例

    题目:

    excel将下面叫做“数据”的工作表根据分类条件拆分成多个sheet工作表,表名为分类条件。

    excel将一个工作表根据分类条件拆分成多个sheet工作表

     

    结果如下:

    excel将一个工作表根据分类条件拆分成多个sheet工作表

     

    分析:

    1. 要新建所有分类表,在总表中循环每行,把要筛选的列值作为新建的表名, 每次循环要判断是否已存在表名,重复建表会报错
    2. 删除多余的表,不然每次执行会产生很多表比较混乱
    3. 需要筛选拷贝数据。

    注意:执行这段代码前必须选中总表即你要拆分的表,否则数据会遭到破坏

    代码:

    Sub chaifen()
      Dim i As Integer
        Dim j, k, irow, count As Integer
        Dim sht  As Worksheet
        Dim sht1  As Worksheet
        Dim x As Integer
        Dim sht0  As Worksheet
    
        Set sht0 = ActiveSheet
        
        x = InputBox("请选择你要按哪列分,第几列就填几")
        
        '执行分表前删除多余的表
        Application.DisplayAlerts = False
        If Sheets.count > 1 Then
            For Each sht1 In Sheets
                If sht1.Name <> sht0.Name Then
                 sht1.Delete
                 End If
            Next
            
        End If
        
        Application.DisplayAlerts = True
        
        
        '获取sheet1总行数
        irow = sht0.Range("a65536").End(xlUp).Row
        
         For i = 2 To irow
         '初始化k
            k = 0
            For Each sht In Sheets
            '判断是否已存在表名
                If sht.Name = sht0.Cells(i, x) Then
                k = 1
                End If
            Next
            '如果不存在表名就新建一个表
            If k = 0 Then
                Sheets.Add after:=Sheets(Sheets.count)
                Sheets(Sheets.count).Name = sht0.Cells(i, x)
            End If
            '筛选拷贝数据
             For j = 2 To Sheets.count
                sht0.Range("a1:f" & irow).AutoFilter field:=x, Criteria1:=Sheets(j).Name
                sht0.Range("a1:f" & irow).Copy Sheets(j).Range("a1")
                '关闭筛选
                sht0.Range("a1:f" & irow).AutoFilter
             Next
            
        Next
        sht0.Select
        
     End Sub
    

    注意:执行这段代码前必须选中总表即你要拆分的表,否则数据会遭到破坏

    这段案例代码的知识点有:

    1. Set sht0 = ActiveSheet
    2. irow = sht0.Range("a65536").End(xlUp).Row
    3. Sheets(Sheets.count).Name = sht0.Cells(i, x)
    4. sht0.Range("a1:f"&irow).AutoFilter field:=x, Criteria1:=Sheets(j).Name
    5. sht0.Range("a1:f" & irow).Copy Sheets(j).Range("a1")

    看了这篇文章觉得对你有用的话,关注我的公众号“学会数据分析”并且用你的小手帮忙分享一下。

    我会经常总结一些案例和大家一些分享。

    excel将一个工作表根据分类条件拆分成多个sheet工作表

     

    课件下载地址:

    链接永久有效:

    https://pan.baidu.com/s/1gAmb-z84vLh7u6X2mFY12Q

    提取码: t1km 复制这段内容后打开百度网盘手机App,操作更方便哦

    展开全文
  • 表单 合并拆分

    2018-04-21 11:38:54
    合并单元格,指的是在办公软件中,excel个或多个位于同一或者同一列的单元格合并成一个单元格。合并单元格的操作多用于Word中的表格或Excel及表格控件中
  • 任务简述:把一个大表按照某一列的value_counts拆分成不同的excel,就这么简单,但是开头两行有一些合并单元格和色彩,导致在读取到pd中时会出问题,解决思路如下: 先办正事,把大表数据读取到dataframe中,按照某...

    任务简述:excel开头有两行装饰精美的header,剩下的都是数据。现在要想办法把这两行样式“复制”下来,然后把dataframe数据填充到接下来的几行。

    1. 把excel开头两行的格式和样式和颜色构造出来
    2. 写入新的excel中时,先写两行花里胡哨的,再从第三行开始写数据

    代码如下:

    1.把excel开头两行的格式和样式和颜色构造出来

    #pip install -i https://pypi.tuna.tsinghua.edu.cn/simple/ xlsxwriter
    import pandas as pd
    
    # 这是
    def write_to_excel(name,cor_df): # cor_df 为要保存的 dataframe 
        writer = pd.ExcelWriter(out_dir + name +'.xlsx', engine='xlsxwriter') # 这里用
        cor_df.to_excel(writer,sheet_name='Sheet1', encoding='utf8', header=False, index=False, startcol=0, startrow=1) # 把dataframe的数据从第2行开始
        workbook  = writer.book
        
        format1 = workbook.add_format({ # 先把样式打包,然后之后赋值即可
            'bold': True, # 字体加粗
            'text_wrap': True, # 是否自动换行
            'valign': 'bottom',  #垂直对齐方式
            'align': 'center', # 水平对齐方式
            'fg_color': '#D7E4BC', # 单元格背景颜色
            'border': 1,# 边框
        })    
        writer_sheet = writer.sheets['Sheet1']
        # 设置宽度
        writer_sheet.set_column("A:I", 16)
        writer_sheet.set_column('C:C',30)
        # merge_range(first_row, first_col, last_row, last_col, data[, cell_format])
        writer_sheet.merge_range(0,0,1,0,'1',format1)
        writer_sheet.merge_range(0,1,1,1,'2',format1)
        writer_sheet.merge_range(0,2,1,2,'3',format1)
        writer_sheet.merge_range(0,3,1,3,'4',format1)
        writer_sheet.merge_range(0,8,1,8,'5',format1)
        writer_sheet.merge_range(0,4,0,7,'6',format1)
        writer_sheet.write(1,4,'a',format1)
        writer_sheet.write(1,5,'b',format1)
        writer_sheet.write(1,6,'c',format1)
        writer_sheet.write(1,7,'d',format1)
        writer.save()
        writer.close()
    

    2. 写入新的excel中时,先写两行花里胡哨的,再从第三行开始写数据:

    #pip install -i https://pypi.tuna.tsinghua.edu.cn/simple/ xlsxwriter
    import pandas as pd
    
    dataframe = pd.DataFrame([[1,2],[3,4]])
    write_to_excel('save_test',dataframe)
    
    展开全文
  • EXCEL函数公式集

    热门讨论 2010-03-16 03:26:38
    用连字符“&”来合并文本怎样把不同格式不同位置的内容合并到一个单元格内 把不同单元格的内容合到一个单元格里 合并与拆分 合并不同单元格的内容 关于文字在表格中的组合 求拆解合并公式 如何把字母和数字分开? 把...
  • excel常用技巧

    2016-12-28 11:17:00
    复制表格时,如果要加上标和列标。...单元格拆分一个地区对应多个情况。通过分类汇总计数后,出现空白值,采用格式刷。 多行变单列:整齐的多行->最后一列的最后一等于前一列的第一->拖拽足够长->...
    1. 复制表格时,如果要加上行标和列标。页面布局->工作表选项:标题,勾上打印->复制下拉框->复制为图片加上打印样式
    2. 一行长拆成几行短或几行短变成一行长的文本拆分,可以通过:填充—>两端对齐。
    3. 单元格拆分:一个地区对应多个情况。通过分类汇总计数后,出现空白值,采用格式刷。
    4. 多行变单列:整齐的多行->最后一列的最后一行等于前一列的第一行->拖拽足够长->向前面拖拽。
    5. 工资条每个都加标题。排序出空格->然后筛选出空格->复制标题->粘贴
    6. 单元特定格式可以自定义格式
    7. 巧用校对:可以将常用的数据填写。
    8. 隔行填充:在一列输入1 2 后筛选出来。
    9. 求和:Alt+'='快捷求和,高级版:定位出空格—>再Alt+'='
    10. 规划求解:知道总的价格。设定目标单元格->设置活动单元格->设定约束->规划求解
    11. 批量生成指定文件名的文件夹:excel中="MD "&另一个单元格->复制此列到txt->将txt命名为bat->操作
    12. 单列变多行:巧用=,输入单列的单元格A1  A22D等->替换A为=A

    转载于:https://www.cnblogs.com/jackcheblog/p/6228731.html

    展开全文
  • Excel新增工具集

    2011-12-20 09:30:27
    (b)需要合并到一个单元格的数据为文本时用“/”号隔开,数据为数值通过求和合并到一个单元格中。例如,当前工作表或当前工作簿中的若干工作表中A列有张三、李四、王五、李四,有相同列字段“送货”,则本命令把A列...
  • 用连字符“&”来合并文本怎样把不同格式不同位置的内容合并到一个单元格内 把不同单元格的内容合到一个单元格里 合并与拆分 合并不同单元格的内容 关于文字在表格中的组合 求拆解合并公式 如何把字母和数字分开? 把...
  • 功能: 将多个具有相同格式的工作簿中所有工作表合并为一个工作簿的多工作表中,也可以将一个工作簿的所有工作表合并到一个工作表 特点: 1.多工作簿合并时,可以自由指定待合并工作簿的目录路径。 2.可以选择将多...
  • 功能: 将多个具有相同格式的工作簿中所有工作表合并为一个工作簿的多工作表中,也可以将一个工作簿的所有工作表合并到一个工作表 特点: 1.多工作簿合并时,可以自由指定待合并工作簿的目录路径。 2.可以选择将多...
  • Excel百宝箱

    2012-10-27 17:09:21
    【合并到选区】:将一个单元格的值合到一个区域中去,可以插入到原字符之前也可以插入到原字符之后 【可还原的合并居中】:合并数据时可以保留所有数据,可以随心所欲定义分隔符。还可以随时取消合并,还原所有数据 ...
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    01015获取在Excel主窗口中一个窗口所能占有的最大高度和宽度 01016获取当前打印机名称 01017获取MicrosoftExcel剩余内存 01018获取MicrosoftExcel的总内存 01019获取计算机被Excel占用的内存 01020改变Excel窗口大小...
  • excel 工具箱

    2012-01-22 15:04:34
    【合并到选区】:将一个单元格的值合到一个区域中去,可以插入到原字符之前也可以插入到原字符之后 【可还原的合并居中】:合并数据时可以保留所有数据,可以随心所欲定义分隔符。还可以随时取消合并,还原所有数据 ...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【合并到选区】:将一个单元格的值合到一个区域中去,可以插入到原字符之前也可以插入到原字符之后 【可还原的合并居中】:合并数据时可以保留所有数据,可以随心所欲定义分隔符。还可以随时取消合并,还原所有数据 ...
  • Excel高级工具箱

    2012-01-03 22:15:22
    功能: 将多个具有相同格式的工作簿中所有工作表合并为一个工作簿的多工作表中,也可以将一个工作簿的所有工作表合并到一个工作表 特点: 1.多工作簿合并时,可以自由指定待合并工作簿的目录路径。 2.可以选择将多...
  • EXCEL百宝箱.rar

    2012-12-24 14:07:37
    【合并到选区】:将一个单元格的值合到一个区域中去,可以插入到原字符之前也可以插入到原字符之后 【可还原的合并居中】:合并数据时可以保留所有数据,可以随心所欲定义分隔符。还可以随时取消合并,还原所有数据 ...
  • 【合并到选区】将一个单元格的值合到一个区域中去,可以插入到原字符之前也可以插入到原字符之后 【可还原的合并居中】合并居中数据,可以保留合并前的所有数据。而且取消合并后可以还原数据,强过Excel自带的合并 ...
  • EXCEL百宝箱8.0终极版

    2011-11-05 16:48:02
    【合并到选区】:将一个单元格的值合到一个区域中去,可以插入到原字符之前也可以插入到原字符之后 【可还原的合并居中】:合并数据时可以保留所有数据,可以随心所欲定义分隔符。还可以随时取消合并,还原所有数据 ...
  • 【合并到选区】:将一个单元格的值合到一个区域中去,可以插入到原字符之前也可以插入到原字符之后 【可还原的合并居中】:合并数据时可以保留所有数据,可以随心所欲定义分隔符。还可以随时取消合并,还原所有数据 ...
  • 【合并到选区】:将一个单元格的值合到一个区域中去,可以插入到原字符之前也可以插入到原字符之后 【可还原的合并居中】:合并数据时可以保留所有数据,可以随心所欲定义分隔符。还可以随时取消合并,还原所有...
  • EXCEL函数功能整理版

    2010-05-30 15:56:24
    34 COUNTBLANK 该函数用于统计一个区域中空白单元格的个数 35 COUNTIF 计算区域中满足给定条件的单元格的个数 36 VLOOKUP 这个函数在表格左侧的标题中查找指定的内容 37 VLOOKUP 这个函数在...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    【工作表拆分】 将当前工作表的某列数据按指定条件拆分成工作表,可以用任意列的数据以及选定的数据做为拆分条件。 【行列奇偶选择】 可视化对当前工作表的与列进行快速的奇偶或奇偶列快速选定操作。 ...
  • 功能: 将多个具有相同格式的工作簿中所有工作表合并为一个工作簿的多工作表中,也可以将一个工作簿的所有工作表合并到一个工作表 特点: 1.多工作簿合并时,可以自由指定待合并工作簿的目录路径。 2.可以选择将多...
  • • 使用两个一维数组构造二维数组 • 部门评价等级转换 • 使用MMULT 函数计算产品结构指数 • 产生1-10 的自然数垂直序列和水平序列 • 等比例构造维循环数组 • SUMIF函数对产品产量进行逐行汇总 • 利用MMULT...
  • 【工作表拆分】 将当前工作表的某列数据按指定条件拆分成工作表,可以用任意列的数据以及选定的数据做为拆分条件。 【行列奇偶选择】 可视化对当前工作表的与列进行快速的奇偶或奇偶列快速选定操作。 ...
  • 【工作表拆分】 将当前工作表的某列数据按指定条件拆分成工作表,可以用任意列的数据以及选定的数据做为拆分条件。 【行列奇偶选择】 可视化对当前工作表的与列进行快速的奇偶或奇偶列快速选定操作。 ...
  • 支持中英文显示与繁简体操作系统,支持Wista/Win7系统及XP界面、拥有20多款华丽的皮肤界面,支持Excel2007全面隐藏选项卡,这个插件还模拟了一个Excel2003样式的菜单,目的就是方便那些从Excel2003转向使用2007或2010...
  • 【工作表拆分】 将当前工作表的某列数据按指定条件拆分成工作表,可以用任意列的数据以及选定的数据做为拆分条件。 【行列奇偶选择】 可视化对当前工作表的与列进行快速的奇偶或奇偶列快速选定操作。 ...
  • 【合并到选区】:将一个单元格的值合到一个区域中去,可以插入到原字符之前也可以插入到原字符之后 【可还原的合并居中】:合并数据时可以保留所有数据,可以随心所欲定义分隔符。还可以随时取消合并,还原所有数据 ...
  •  实例077 使用正则表达式验证一个月的31天 93  实例078 使用正则表达式验证数字输入 94  实例079 使用正则表达式验证密码长度 95  实例080 使用正则表达式验证非零的正整数 96  实例081 使用正则表达式验证...

空空如也

空空如也

1 2 3
收藏数 52
精华内容 20
关键字:

excel一个单元格拆分成两行