Excel 宏将工作表中的数据按照顺序分拆到本工作簿的其他工作表_office2016拆分工作表-程序员宅基地

（本文版本office2016）

1.需要打开“开发工具”选项

2.定义宏

3.代码（文档最后）

4.执行

5.拆分完成

Sub CF()
Dim myRange As Variant
Dim myArray
Dim titleRange As Range
Dim title As Variant
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

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.ACE.OLEDB.12.0;extended properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
Sql = "select * from [全司汇总$] where " & title & " = '" & k(i) & "'"
Worksheets.Add after:=Sheets(Sheets.Count)
With ActiveSheet
.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
Sheets(1).Select
Sheets(1).Cells.Select
Selection.Copy
Worksheets(Sheets.Count).Activate
ActiveSheet.Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Next i
conn.Close
Set conn = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

本文链接：https://blog.csdn.net/u014096024/article/details/90448676

原作者删帖不实内容删帖广告或垃圾文章投诉

智能推荐

AndroidStudio——入门1_androi studio讲解-程序员宅基地

文章浏览阅读225次。转自文章《Android Studio2.0 教程从入门到精通Windows版 - 入门篇》http://www.open-open.com/lib/view/open1468121363300.html开发第一应用可以开发属于自己的应用，是否有点小激动？好吧！让我们开始，首先点击Start a new Android Studio Project创建工程：接下来需要输入应用名称(第一个字母要大写..._androi studio讲解

实在没货，简历（软件测试）咋写？-程序员宅基地

文章浏览阅读856次，点赞21次，收藏15次。简历咋写？首先你要知道简历的作用。简历的作用是啥呢？如何让HR看你一眼，便相中你的简历，实现在众多简历中“脱颖而出”，这当然需要搞清楚简历的核心内容。所以本文的文章结构就出来了，一起看下：1）简历内容该该怎么写2）简历的素材该如何找3) 成功的简历模板分享【重要】4）简历投递和调整的建议一份完整的软测简历包括7大块，其中重点的三部分内容分别为：1）教育经历2）专业技能3）项目经验下面每项展开说明一下。基本信息主要是介绍个人真实的基础信息，方便HR初步了解你。

【Android】AndroidStudio实现图片的自动轮播ViewFlipper_android studio轮播图-程序员宅基地

文章浏览阅读7.3k次，点赞14次，收藏109次。AndroidStudio2.2实现图片的自动轮播ViewFlipper_android studio轮播图

使用Tesseract-OCR训练文字识别记录_tesseract ocr list-程序员宅基地

文章浏览阅读4.9k次。时间:2016-11-14 21:40 来源:清屏网作者:那一抹忧伤点击:133次Tesseract官方文档页面https://github.com/tesseract-ocr/tesseractjTessBoxEditor官方文档页面http://vietocr.sourceforge.net/training.html[root@doc_tesseract ocr list

网安快速入门（新人发稿，如有失误多多见谅）-程序员宅基地

文章浏览阅读962次，点赞18次，收藏16次。黑客分为三种，分别为白帽，灰帽和黑帽白帽黑客研究黑客技术，但研究目的不是为了攻击；这类人多为网络安全人员。灰帽黑客此类人员大多数是计算机爱好者，进行无目的的攻击计算机常用的进制转换有如下四种二进制：逢2进1；十进制：逢10进1；八进制：逢8进1；十六进制：逢16进1；

timescaledb源码安装_postgresql was built without openssl support, whic-程序员宅基地

文章浏览阅读3.1k次。因为postgresql是源码安装的，所以timescaledb也得源码安装。timescaledb 0.12.1版本，解压后如下[root@server4 timescaledb-0.12.1]# lsbootstrap build CMakeLists.txt docs NOTICE scripts src timescaledb..._postgresql was built without openssl support, which timescaledb needs for fu