Skip to main content
Sub mySplit ' on Muck Rack

Sub mySplit '

Is this you? As a journalist, you can create a free Muck Rack account to customize your profile, list your contact preferences, and upload a portfolio of your best work. Claim your profile

Get in touch with Sub mySplit

Contact Sub mySplit, search articles and posts on X, monitor coverage, and track replies from one place.

Learn more about Muck Rack

Actions

Share this page

Is this you?

As a journalist, you can create a free Muck Rack account to customize your profile, list your contact preferences, and upload a portfolio of your best work.
Claim your profile

Articles

【代码】工作表拆分，保持原格式，两种思路：按学校、年级、班级导出相关数据

|
By ws As Worksheet, LastRow As Long, rng As Range, Sub mySplit '
| 360doc.com
内容提要 工作表拆分，保持原格式|完整代码 1、在模块myModule里，mySplit过程，拆分工作表 Sub mySplit() '//整体复制，删除不符合条件的记录 Dim wb As Workbook, ws As Worksheet, lastRow As Long Dim wsTarget As Worksheet Dim dic As Object, dKey As String Dim saveFolder As String Set ws = ThisWorkbook.Sheets("成绩") Set dic = CreateObject("Scripting.Dictionary") Application.ScreenUpdating = False saveFolder = FolderSelected If Not IsFolderExists(saveFolder) Then MsgBox "未正确选择保存路径，将保存到当前文件夹下！" saveFolder = ThisWorkbook.Path End If...
Open in Who Shared Issue with article?
See all 1 articles