这篇博客介绍了如何利用VBA宏将Excel表格按姓名字段拆分为多个单独的工作簿，每个工作簿包含相应姓名的所有数据记录。通过选择标题行和拆分列标题，宏会自动运行并保存在工作簿同路径下，方便管理和查看个人数据。
1、首先来看一下原始数据，A列是日期，B列是姓名，后面是名称和数量。需要根据B列的姓名将每个人的数据记录存储为一个单独的工作簿文件。
2、按Alt+F11进入VBE界面。
3、选择【插入】-【模块】插入一个模块。
4、双击模块名称，在右侧的空白处粘贴下列代码：
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 titl
最低0.47元/天 解锁文章
扫一扫
2650
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
