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 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 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 数据库中删除某一列值重复的全部行（一个笔试题）

如果要求是多个字段重复的就在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