[Excel VBA]如何使用VBA按行拆分Excel工作表

如何使用VBA按行拆分Excel工作表

在Excel中,按行拆分工作表并生成多个新工作表是一项实用的技能,尤其在处理大量数据时。以下是一个VBA代码示例,能帮助你轻松实现这一功能。

1. 代码说明

本代码会根据源工作表中每个姓名创建一个新工作表,工作表名称为姓名。

原始表格:

按姓名拆分后:

2. VBA代码

复制代码
Sub SplitSheetByRow()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim lastRow As Long
    Dim i As Long

    ' 获取当前工作表
    Set ws = ThisWorkbook.Sheets("姓名清单")
    
    ' 找到最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' 循环每一行,从第二行开始
    For i = 2 To lastRow
        ' 创建新工作表
        Set newWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        newWs.Name = ws.Cells(i, 1)
        
        ' 将当前行复制到新工作表
        ws.Rows(i).Copy Destination:=newWs.Rows(1)
    Next i
    
    MsgBox "拆分完成!", vbInformation
End Sub

3. 如何使用

  1. 打开Excel:启动Excel并打开你的工作簿。
  2. 打开VBA编辑器:按 ALT + F11 进入VBA编辑器。
  3. 插入模块:右键点击你的工作簿,选择"插入" > "模块"。
  4. 粘贴代码:将上述代码粘贴到模块窗口中。
  5. 运行代码:按 F5 或从菜单选择"运行"。

4. 注意事项

  • 确保原始工作表名称为"姓名清单"或根据需要进行修改。
  • 此代码会在工作簿中添加多个新工作表,请注意名称的唯一性。

5. 总结

使用VBA按行拆分Excel工作表,可以大大提高数据处理的效率。通过上述简单的代码,你可以快速生成所需的新工作表,节省了大量的手动操作时间。希望这篇文章能帮助你更好地利用Excel的功能!

相关推荐
Coding_Doggy17 小时前
苍穹外卖Day12 | Apache POI、导出Excel报表、HttpServletResponse、工作台
excel
l1t1 天前
张泽鹏先生手搓的纯ANSI处理UTF-8与美团龙猫调用expat库读取Excel xml对比测试
xml·人工智能·excel·utf8·expat
Source.Liu2 天前
【Python自动化】 21 Pandas Excel 操作完整指南
python·excel·pandas
会飞的小菠菜2 天前
如何根据Excel数据表生成多个合同、工作证、录取通知书等word文件?
word·excel·模板·数据表·生成文件
Access开发易登软件2 天前
Access开发导出PDF的N种姿势,你get了吗?
后端·低代码·pdf·excel·vba·access·access开发
課代表2 天前
VBA 中的 Excel 工作表函数
excel·vba·函数·对象·属性·range·静态变量
UrbanJazzerati3 天前
掌握 xlwings 的 used_range:高效处理 Excel 数据区域
python·面试·excel
m0_555762903 天前
Excel ——INDEX + MATCH 组合
excel
焚 城3 天前
Excel数据导出小记二: [大数据示例]
大数据·excel
偷心伊普西隆3 天前
Python EXCEL 小技巧:最快重新排列dataframe函数
python·excel