EXCEL工作表根据某列条件拆分为多个工作表
方法
首先,打开要操作的excel表,如图所示。
然后,点击界面上方的“开发工具”,再点击下方的“VB编辑器”,如图所示。
然后,点击界面上方的“插入”选项卡,再在弹出的框中点击“模块”,如图所示。
然后,复制粘贴下列代码在模块中,如图所示。
Sub CFGZB()
Dim myRange As Variant
Dim myArray
Dim titleRange As Range
Dim title As String
Dim columnNum As Integer
myRange = Application.InputBox(prompt:="请选择标题行:", Type:=8)
myArray = WorksheetFunction.Transpose(myRange)
Set titleRange = Application.InputBox(prompt:="请选择拆分的表头,必须是第一行,且为一个单元格,如:“姓名”", Type:=8)
title = titleRange.Value
columnNum = titleRange.Column
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim i&, Myr&, Arr, num&
Dim d, k
For i = Sheets.Count To 1 Step -1
If Sheets(i).Name <> "成绩单" Then
Sheets(i).Delete
End If
Next i
Set d = CreateObject("Scripting.Dictionary")
Myr = Worksheets("成绩单").UsedRange.Rows.Count
Arr = Worksheets("成绩单").Range(Cells(2, columnNum), Cells(Myr, columnNum))
For i = 1 To UBound(Arr)
d(Arr(i, 1)) = ""
Next
k = d.keys
For i = 0 To UBound(k)
Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select * from [成绩单$] where " & title & " = '" & k(i) & "'"
Dim Nowbook As Workbook
Set Nowbook = Workbooks.Add
With Nowbook
With .Sheets(1)
.Name = k(i)
For num = 1 To UBound(myArray)
.Cells(1, num) = myArray(num, 1)
Next num
.Range("A2").CopyFromRecordset conn.Execute(Sql)
End With
End With
ThisWorkbook.Activate
Sheets(1).Cells.Select
Selection.Copy
Workbooks(Nowbook.Name).Activate
ActiveSheet.Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Nowbook.SaveAs ThisWorkbook.Path & "" & k(i)
Nowbook.Close True
Set Nowbook = Nothing
Next i
conn.Close
Set conn = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
然后,按组合键“CTRAL+F”,点击替换,查找内容为“成绩单”,替换为文件sheet表的命名。
然后,点击界面上方的“运行”,再点击“运行子过程/用户窗体”。
然后,在弹出的窗口里选择,条件所在位置,再点击“确定”,如图所示。
然后,在弹出的对话框中,点选筛选条件,如图所示,再点击“确定”,如图所示。
这样,就将一个工作表根据条件拆分成多个工作表了。
-
怎么查看微博最近访客,如何查看微博最近访客
怎么查看微博最近访客:1、首先网页登录微博首页。2、然后点击右上角自己的头像。3、点击进去后点击管理中心。4、在管理中心里可以看到全部数据的概览。5、往下拉可以看到具体的详情信息。6、访客互动可以在互动分析里进行查看,也可以进行导出。...
-
微信个性签名的使用方法
1、点击打开微信,然后点击右下角的“我”图标,进入个人中心。2、然后直接点击自己的头像,进入“个人信息”。3、现在就可以看到在个人信息的最后一行就可以看到“个性签名”菜单,现在还没有设置个性签名,点击打开进行设置。4、输入你的个性签名,注意这里不能太长,有字...
-
怎么查看微信群在哪里
1、成功登陆微信后,点击微信通讯录选项卡,在微信通讯录里可以看到群聊,点击群聊。2、打开群聊后,在群聊这里什么都没有,点击群聊右上角的“+”图标。3、在发起群聊界面上,点击选择一个群。4、点击进入到选择群聊界面后,在选择群聊就里可以看到所有的微信群了。5、点击...
-
苹果6s没有插耳机却显示耳机模式怎么办
苹果6s显示耳机模式,有两大原因,一是手机硬件出了故障,硬件则是耳机插座进灰或进水等造成的接触不良;二是苹果手机系统设置方面要进行更改,系统在某些情况下有可能识别耳机模式出错。如果是苹果6s硬件出了问题,那可能是耳机插孔金属片走位,用笔芯拨一下耳机插孔,将里面...