精华内容
下载资源
问答
  • excel如按某一列拆分成多个工作(支持多列),或多个Excel文件,或按某几列拆分成多个文件。 使用这个在线工具,无需vba,不用复杂的透视,地址:http://www.excelfb.com/,点击:(按指定列)拆分成多个表 ...

      excel如按某一列拆分成多个工作表(支持多列),或多个Excel文件,或按某几列拆分成多个文件。

     

      使用这个在线工具,无需vba,不用复杂的透视表,地址:http://www.excelfb.com/ ,点击: 拆分表--》(按指定列)拆分成多个表

     操作如下图:(如果是多列,例如A列和B列,在按第几列填入A,B  用‘,’隔开A和B)

     

       

    展开全文
  • 前言step 1 进入excel vba编程界面step 2 粘贴代码step 3 运行代码step 4 删除宏代码 前言 这两天接触到excel比较,才发现...如果我们要把这个表按照班级拆分为三个表,可能一般我们都是通过筛选后复制粘贴。但这...

    前言

    这两天接触到excel比较多,才发现使用excel不仅仅是简单的复制粘贴。
    excel vb代码是非常强大,学会使用一些常用的功能,可以大大减少工作量。
    废话不多少,来看
    如下表格学生成绩表
    在这里插入图片描述

    如果我们要把这个表按照班级拆分为三个表,可能一般我们都是通过筛选后复制粘贴。但这是最土的办法,并且如果分类很多,数据量又大的话,非常浪费时间。
    来看使用excel宏轻松搞定。excel宏代码如下:

    Option Explicit
    Option Base 1
     
    Sub 按指定列分组拆分数据()
     
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
     
        Dim self As Worksheet
        Set self = ActiveSheet
        
        Dim nLastRowNum As Long
        Dim nLastColumnNum As Long
        
        Dim i As Long
        
        ' 删除其他的sheet
        
        For i = Sheets.Count To 1 Step -1
            If Sheets(i).Name <> self.Name Then
                Sheets(i).Delete
            End If
        Next i 
        
        Application.DisplayAlerts = True
        Application.ScreenUpdating = True   
        
        '获取全部数据范围
        nLastRowNum = Cells(Rows.Count, 1).End(xlUp).Row
        nLastColumnNum = Cells(nLastRowNum, Columns.Count).End(xlToLeft).Column
        
        '获取标题
        Dim titleRange As Range
        Set titleRange = Application.InputBox(prompt:="请选择标题区域:将要当做标题行的每一个单元格", Type:=8)
         
        ' 有效数据开始行
        Dim nRowValidData As Long
        nRowValidData = titleRange.Row + titleRange.Rows.Count
     
        ' 获取拆分列的信息,只需要列号
        Dim splitColumnRange As Range
        Set splitColumnRange = Application.InputBox(prompt:="请选择拆分的列:选择任何一个该列的单元格即可", Type:=8)
        Dim columnNumToSplit As Long
        columnNumToSplit = splitColumnRange.Column
        
        ' 需要拆分的值字典
        Dim splitValueDict As Object
        ' 辅助字典用来保证顺序
        Dim splitValueDictReverse As Object
        Dim indexArray() As Long
        
        Set splitValueDict = CreateObject("Scripting.Dictionary")
        Set splitValueDictReverse = CreateObject("Scripting.Dictionary")
        
        Dim cellValue As String
        Dim ws As Worksheet
        
        For i = nRowValidData To nLastRowNum Step 1
            cellValue = Cells(i, columnNumToSplit).Text
            
            '1. 创建新的sheet;
            '2. 拷贝标题信息到新的sheet
            If Not splitValueDict.Exists(cellValue) Then
                splitValueDict(cellValue) = i
                splitValueDictReverse(i) = cellValue
                Set ws = Sheets.Add(After:=Worksheets(Worksheets.Count))
                ws.Name = cellValue
                self.Activate
                
                titleRange.Copy _
                    ws.Range(ws.Cells(titleRange.Row, titleRange.Column), ws.Cells(nRowValidData - 1, titleRange.Column))
                
            End If
            
            ' 拷贝其他内容
            
            Range(Cells(i, 1), Cells(i, nLastColumnNum)).Copy _
                GetLastPasteRangeBySheetName(cellValue, nLastColumnNum)
                    
        Next i
                
    End Sub
     
    Public Function GetLastPasteRangeBySheetName(ByRef SheetName As String, columnNum As Long) As Variant
        Dim wks As Worksheet
        Dim nLastRowNum As Long
     
        Set wks = ActiveWorkbook.Worksheets(SheetName)
        nLastRowNum = wks.Cells(wks.Rows.Count, 1).End(xlUp).Row
        
        Set GetLastPasteRangeBySheetName = wks.Range(wks.Cells(nLastRowNum + 1, 1), wks.Cells(nLastRowNum + 1, columnNum))
        
    End Function
    

    step 1 进入excel vba编程界面

    在excel工作表中标签处右键查看代码
    在这里插入图片描述

    进入如下界面
    在这里插入图片描述

    step 2 粘贴代码

    然后把代码粘贴窗口中如下图:
    在这里插入图片描述

    step 3 运行代码

    点击下图中红框按钮
    在这里插入图片描述
    出现下面弹框
    在这里插入图片描述
    选择需要拆分标题区域。只需要用鼠标拖动选择区域即可
    在这里插入图片描述
    确定后再选择拆分的单元格,即按照班级拆分,选择班级
    在这里插入图片描述
    确定,结果如下
    在这里插入图片描述

    step 4 删除宏代码

    如果为了保存方便,我们需要把宏代码删掉,不然保存需要保存为支持宏的格式。
    运行成功后删除宏
    找到工具 选择宏。
    在这里插入图片描述
    删除刚刚的宏即可,然后关闭代码,保存即可
    在这里插入图片描述

    展开全文
  • 如果想在一已经建好的中添加一列,可以用以下代码: alter table 表名 add column 列名 varchar(20) not null; 这条语句会向已有的中加入一列,这一列的最后一列位置。如果我们希望添加在指定的一列,...

    如果想在一个已经建好的表中添加一列,可以用以下代码:

    alter table 表名 add column 列名 varchar(20) not null;

    这条语句会向已有的表中加入一列,这一列在表的最后一列位置。如果我们希望添加在指定的一列,可以用:

    alter table 表名 add column 列名 varchar(20) not null after user1;

    注意,上面这个命令的意思是说添加addr列到user1这一列后面。如果想添加到第一列的话,可以用:

    alter table 表名 add column 列名 varchar(20) not null first;

    将表yusheng中,列名def改为unit

    alter table yusheng change def unit char;

    将表yusheng中,列名def的列删除

    alter table yusheng drop column def ;

    复制代码

    复制代码
    复制table表
    create table 新表名(
    select ID,name,number,numberid
    from 要复制的表名);

    查看表的各种数据类型
    describe student

    查看表的已存数据
    select * from 表名 (select id,name,number,numberid from 表名)

    添加数据
    insert into 表名 (ID,name,number,numberid) values(1,’Logic’,220,1),(2,’HTML’,160,1),(3,’Java OOP’,230,1);

    删除数据
    delete from 表名 where 条件;

    修改数据
    update 表名 set numberid=2 where 条件

    修改多个数据
    UPDATE table_name
    SET column1=value1,column2=value2,…
    WHERE some_column=some_value;

    降序排列
    select id,name,number,numberid from 表名 order by id desc;

    添加别名
    select id(列名) ‘别名’ ,(列名) as ‘别名’ from 表名;

    展开全文
  • mysql数据库删除某一列值重复的全部行和只留一条 原创 2013年10月16日 00:29:34 4473 (1)mysql 数据库中删除某一列值重复的全部行(一个笔试题) 如果要求是多个字段重复的...

    mysql数据库表中删除某一列值重复的全部行和只留一条

    原创 2013年10月16日 00:29:34


    (1)mysql 数据库中删除某一列值重复的全部行(一个笔试题)
    如果要求是多个字段重复的就在group后把所有要求重复的字段写上去
    表名:zp
    数据如下(都是int型的 sal:工资)

    要求删除sal列中重复的数据的全部行,即结果如下图:



    说下我的思路吧:
    主要分为3步:(1)select sal,count(sal) salcount from zp group by sal //按sal分组
    运行结果:
    +------+----------+
    | sal  | salcount |
    +------+----------+
    | 22.2 |        3 |
    | 88.8 |        1 |
    | 99.9 |        1 |
    +------+----------+
    (2)select t.sal from ((select sal,count(sal) salcount from zp group by sal) as t) where  t.salcount>1//找出分组后salcount大于1的sal值 
    运行结果:
    +----+
    | sal   |
    +----+
    |  22.2 |
    +-----+
    (3)delete from zp where sal in(select t.sal from ((select sal,count(sal) salcount from zp group by sal) as t) where  t.salcount>1);//从zp表中删除sal满足第二步结果的所有行
    ok:查询一下结果出现了哈哈
    mysql> select * from zp ;
    +----+------+
    | id | sal  |
    +----+------+
    |  4 | 88.8 |
    |  5 | 99.9 |
    +----+------+

    (2)只留一行
    表名:fatie 
    要求:删除name字段中值相同的重复行,且只留一行重复数据
     删除前(原表)如下:
    删除后:

    删除语句:delete from fatie where id not in(select t.id1 from ( (select max(a.id) id1 from fatie a group by a.name)as t));留下的是各组id号最大的,如果留的是最小的话换成min(a.id)就行了
    如果没有加上一个中间表t,即这句话 select t.id from去掉直接写成delete from fatie where id not in(select max(id) a.id1 from fatie a group by a.name);mysql会提示错误:You can't specify target table 'fatie' for update in FROM clause (不能先select出同一表中的某些值,再update这个表(在同一语句中)。这和文章上面的问题一样,也是加了个中间表才可以),网上是这样说的:也就是说将select出的结果再通过中间表select一遍,这样就规避了错误。注意,这个问题只出现于mysql,mssql和oracle不会出现此问题。
    这样感觉效率会很低的吧,请教大神高效率的sql

    展开全文
  • Delete From user WHERE ID in (SELECT MIN(ID) FROM user Group By userid having count(userid)>1 )
  •   linux uniq命令怎样将文件中某一列重复的行删除?     例如文件 number1.txt 中存储了你的电话簿信息,其中第一列是联系人,第二列是手机号码。电话簿中存在一个人有多个手机号码的情况,但你只想让每个人仅...
  • 根据某一列拆分Excel为多个表格

    万次阅读 2018-03-02 23:00:24
    选择任何一个的单元格即可", Type:=8) Dim columnNumToSplit As Long columnNumToSplit = splitColumnRange.Column ' 需要拆分的值字典 Dim splitValueDict As Object ' 辅助字典用来保证顺序 Dim ...
  • 首先,将需要拆分的sheet命名为“明细”,接下来运行此代码,按提示操作即可。 在这里插入代码片 Sub chaifen() '定义变量类型 Dim sht, sh1, sh2 As Worksheet ...'程序开始是要求输入按哪一列拆分数...
  • 用vi删除某一列

    千次阅读 2018-08-06 17:47:28
    vi 中如何一次删除多列?  如:  123aaaaa  !@#aaaaa  ABCaaaaa  +-/aaaaa  在 vi 中如何一次删除前 3 列呢? 最简单的方法: ...具体讲,光标先移动到第一行,第一列,然后按ctrl + v, 然后把...
  • 比如T:id name1 aa2 bb3 cc4 aa5 aa6 cc如何变成(保留最大的id或者最小...使用distinct关键字,导出无重复的数据到一个临时删除,再从临时导入数据:select distinct name into #temp from Tdrop
  • 所以就需要有多个DataTable相加的办法。但是,用datatable个个循环加,效率不可恭维。绞尽脑汁想出个办法,整个循环次,就将最终的Table取出。 具体功能效果、大致如下 根据ID匹配 ID相同...
  • Excel按某一列列合并行

    千次阅读 2017-09-22 10:32:52
    如果以某一列或者几列为基准,只要这一列或列的数据相同就合并这些行的数据,不管这些行的其他列的数据是否相同。例如下图: 比如按登录名和地区两列合并行。希望最终要得到的结果如下: (注,无需比对的...
  • 对于删除某一列满足条件的所有行操作暂不支持; 下面给大家介绍另外一方法,支持删除和筛选数据; data.name.isin([筛选元素]); data:原始数据集 name:列名称 筛选元素:该列满足的条件值; 操作示例 1、 删除...
  • influxdb删除某一列(tag或者field)

    千次阅读 2020-09-28 10:11:37
    influxdb目前不支持删除某一列的方法, 如果要这样做, 可以用建立临时的方法来曲线救国. 假设旧的measurement中有tag1, tag2, field1, field2, field3共5"列", 现在想删除field3这一"列". > select tag1, tag...
  • 增加一列 alter table 表名 add (字段名 数据类型);...删除一列 alter table 表名 drop column 字段名; 删除多列 alter table 表名 drop column (字段名1,字段名2,……); 重新定义列 ...
  • 中的数据是历史数据,ConsultorI列是人名的拼接,中原本没有存储对应人名的id列ConsultorID,现添加一列ConsultorID,如图所示 对应的人名的id是tblMember如图 现在问题来了,怎么用sqlserver把...
  • python—numpy二维矩阵删除某一列

    万次阅读 2019-08-12 17:54:45
    生成二维数组 word = np.zeros([2, 4])#生成一二维四列的矩阵 word[0, 0] = 0 #赋值 word[0, 1] = 1 word[0, 2] = 2 word[0, 3] = 3 word[1, 0] = 4 ...根据条件删除一列列数组 初学者...
  • (1)mysql 数据库中删除某一列值重复的全部行(一个笔试题) 如果要求是多个字段重复的就在group后把所有要求重复的字段写上去 表名:zp 数据如下(都是int型的 sal:工资) 要求删除sal列中重复的数据的全部...
  • 删除所有表格的哪一列?注意,删除后无法撤销。")If IsNumeric(intCol) Then for i=1 to Tables.Count Tables(i).Columns(intCol).Delete NextElse MsgBox("输入数据应为数值...
  • 如何删除excel某一列中某些字符

    万次阅读 2019-01-07 18:07:50
    1、打开excel表格,选中需要删除“只”字的对应。 2、使用键盘快捷键Ctrl+H,调出excel中的替换功能。 3、在查找内容中填上“只”,在替换为中不填任何内容,点击全部替换。 4、选中的单元格的所有“只”...
  • Mysql-某一列元素同时增加一

    千次阅读 2017-04-17 18:03:30
    python 进程之管道实例(模... MySQL数据插入、修改、删除... 解决mysql“Access denied for... mysql启动的四种方式 PostgreSQL安装详细步骤(wind... ...
  • pandas某一列中每一行拆分成多行的方法

    万次阅读 多人点赞 2018-11-29 12:24:11
    在处理数据过程中,常会遇到将条数据拆分成条,比如一个人的地址信息中,可能有条地址,既有家庭地址也有工作地址,还有电话信息等等类似的情况,实际使用数据的时候又需要分开处理,这时候就需要将这条...
  • vim 删除一列

    万次阅读 2013-06-05 11:03:17
    删除列的方法: 1. ctrl+v 这样会启动可视模式,按 j/k 可以发现它能够在一列上面选中字符 ...3. 按下 x 就会把这一列删掉 重复以上方法可以删列。 ps 有点山寨,谁有简单的命令可以 share 一下 :D
  • 假设我们有 “1” 这样一个数据,需要删除A的重复行,同时保留重复行中B最大值所在的行,即需要得到 “2” 的结果。 table = pd.DataFrame({"A":["甲", "乙", "甲", "甲"], "B":[2,2,3,4]}) table 1: ...
  • 【Python】DataFrame一列拆成列以及一行拆成多行

    万次阅读 多人点赞 2019-06-05 20:15:44
    在进行数据分析时,我们经常需要把DataFrame的一列拆成列或者根据列把一行拆成多行,这篇文章主要讲解这两目标的实现。 读取数据 将City列转成列(以‘|’为分隔符) 这里使用匿名函数lambda来讲City...
  • Python3 DataFrame删除某某列win10截屏快捷键创建一个DataFrame变量定义一个空的自定义数据代码:输出:读取excel文件数据代码:删除(方法:drop)文字说明:具体参数说明(用到部分说明)删除列方法:用列名举例...
  • winform datagridview控件 一列多个按钮

    千次阅读 2017-02-16 22:04:43
    基本思想:编写dataGridView的CellPainting事件,对dataGridView 指定的列进行N(N为一列中要存放的按钮数)等份,然后调用CellMouseClick来响应按钮的 单击事件。如果要换成图片,可以在CellPainting事件中,将e....
  • 无意中发现了Spire.XLS for Java这java操作excel的组件。它可以很方便的操作EXCEL文件, 官网地址:https://www.e-iceblue.cn/Downloads/Free-Spire-XLS-JAVA.html 同时他也有自己的帮...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 349,095
精华内容 139,638
关键字:

多个表的某一列删除