Excel表格中依据某一列的值,将这列中一样的数据放在一个文件中。

一需求:按照标题C的内容,一样的数据整理到一个文件中。

二.操作:

1.atl+F11弹出vb窗口

2.点击       插入===》模块   ,复制以下代码,注意这是一个表头为三行的函数(保存)

Sub 保留表头拆分数据为若干新工作簿()
    Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%
    
    ‘获取分割列的索引
    c = Application.InputBox("刘刚:请输入拆分列号", "刘刚:输入框", 1, , , , , 1)
    
    ‘如果分割列的索引是0退出程序
    If c = 0 Then Exit Sub
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ‘取a1附近所有的数据
    arr = [a1].CurrentRegion
    ‘取有多少列 可以将arr看做是数组,数组的第二个维度就是列的个数
    lc = UBound(arr, 2)
    
    ‘取标题(从a1开始取去几行几列)(如果是一行标题,就把下行的3改成1,几行标题就写几)
    Set rng = [a1].Resize(3, lc)
    Set d = CreateObject("scripting.dictionary")
    
    ‘从标题行之下开始循环遍历不同的值(i =  标题行+1    如三行标题就是 4)
    For i = 4 To UBound(arr)
        If Not d.Exists(arr(i, c)) Then
            Set d(arr(i, c)) = Cells(i, 1).Resize(1, lc)
        Else
            Set d(arr(i, c)) = Union(d(arr(i, c)), Cells(i, 1).Resize(1, lc))
        End If
    Next
    
    k = d.Keys
    t = d.Items
    
    For i = 1 To d.Count
        With Workbooks.Add(xlWBATWorksheet)
            ‘从哪个单元格开始复制内容
            rng.Copy .Sheets(1).[a1]
            
            ‘真正的内容从标题下开始复制(4   表示标题行+1,几行标题行就改成几+1)
            t(i - 1).Copy .Sheets(1).[a4]
            .SaveAs Filename:=ThisWorkbook.Path & "\" & k(i - 1) & "计算机学院2019年‘劳动节‘假期学生去向登记表" & ".xls"
            .Close
        End With
    Next
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    MsgBox "成功执行"
End Sub

3.点击Excel中的文件按钮。

4.点击选项

4.自定义功能区,勾选开发工具,点击确定

5.切换到开发工具选项卡

6.点击插入,选择图片指示控件

7.随便一个位置,拖动一下,选择刚才定义的宏,确定

8.点击按钮即可

9.效果,我们输入3

10.最后的效果(同文件目录下出现拆分文件)

原文地址:https://www.cnblogs.com/bandaobudaoweng/p/10776574.html

时间: 2024-10-13 23:02:33

Excel表格中依据某一列的值,将这列中一样的数据放在一个文件中。的相关文章

shiro配置参考(二)可以和mybatis的配置放在一个文件中(不建议这样,可以拆分开来,注意相关配置即可)

<?xml version="1.0" encoding="UTF-8"?> <beans xmlns="http://www.springframework.org/schema/beans" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:aop="http://www.springframework.org/schema/

剔除在另一个文件中出现的行

有两个文件A,B.我想要一个文件C,C中含有的是B文件中剔除与A相同行的数据. 用C++编写,用到fstream,ifstream,set以及vector. #include <fstream> #include <iostream> #include <vector> #include <set> using namespace std; struct strless : public std::binary_function<const char*

Java IO把一个文件中的内容以字符串的形式读出来

代码记录(备查): /** * 把一个文件中的内容以字符串的形式读出来 * * @author zhipengs * */ public class FileToString { public static void main(String[] args) { System.out.println(readFileToString()); } private static String readFileToString() { // new 一个空文件,用于获取路径 File dirs = ne

java中的文件读取和文件写出:如何从一个文件中获取内容以及如何向一个文件中写入内容

1 2 3 import java.io.BufferedReader; 4 import java.io.BufferedWriter; 5 import java.io.File; 6 import java.io.FileInputStream; 7 import java.io.FileNotFoundException; 8 import java.io.FileOutputStream; 9 import java.io.IOException; 10 import java.io.

Java学习(4):统计一个文件中的英文,中文,数字,其他字符以及字符总数

要求:统计一个文件中的英文,中文,数字,其他字符以及字符总数(此随笔以txt文件为例) import java.io.BufferedReader; import java.io.File; import java.io.FileInputStream; import java.io.FileNotFoundException; import java.io.IOException; import java.io.InputStreamReader; /** * 将一个文件中英文,中文,数字,其

黑马程序员——IO——读取一个文件中的文字输出到控制台上

读取一个文件中的文字输出到控制台上 import java.io.FileNotFoundException; import java.io.FileReader; import java.io.IOException; //读取一个文件中的文字 ,输出到控制台上 //读取的是字符文字,因此可以使用字符流来操作 public class FileReaderDemos { public static void main(String[] args) { // TODO Auto-generate

将函数实现放在头文件中

研究一个开源算法库,采用C++模板编程,所有函数实现都放在了头文件中,现在把模板去掉,链接时发生冲突,具体原因如下: 因为多个源文件包含了含有函数定义的头文件,在编译的时候,每个源文件都会包含一份函数定义,在链接时编译器不知道需要连接哪一份函数定义. 解决方法有三个: 1. inline关键字 可以用关键字inline修饰函数定义,例如: inline int add(int x, int y) { return x + y; } 使用inline关键字,编译器会在调用此函数的地方把函数的目标代

读取两文件,不同的内容存入另一个文件中

<?php /** * 从两个.csv 文件中读出数据 * 比较这两个文件不同的数据,并存入.csv 文件中 */ class Readfiledata { private function __construct() { } /** * 读文件并获取数据 */ private static function getdata($file) { $handle = fopen ( $file, 'r' ); $orderform = array (); $i=0; while ( false !=

统计一个文件中出现字符&#39;a&#39;的次数

# -*- coding: utf-8 -*- #python 27 #xiaodeng #统计一个文件中出现字符'a'的次数 #http://www.cnblogs.com/hongten/p/hongten_python_count.html import os number=0 def getNumber(filePath,c): 'c---->the word numbers' #统计一个文件中出现字符'a'的次数 if os.path.exists(filePath): global