VBA_操作单元格02

最新推荐文章于 2024-09-05 17:21:52 发布

liYandia

最新推荐文章于 2024-09-05 17:21:52 发布

阅读量339

点赞数

分类专栏： VBA

本文链接：https://blog.youkuaiyun.com/qq_29976097/article/details/106168344

版权

VBA 专栏收录该内容

13 篇文章

订阅专栏

本文介绍了一段使用VBA实现的Excel宏代码，该代码能够将一张表的数据根据特定条件拆分到多个不同的工作表中。首先，通过调用qingchu子程序清除目标工作表的内容，然后遍历源工作表的每一行数据，根据第四列的值判断目标工作表，并将数据复制到相应的工作表中指定位置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'将表数据分别拆分到其他表中

Sub chaifenbiao()
Dim j, i As Integer
Call qingchu '调用清除表内容函数
For i = 2 To Sheet1.Range("a56433").End(xlUp).Row '数据行
j = Sheets(Sheet1.Range("d" & i).Value).Range("a56433").End(xlUp).Row + 1
Sheet1.Range("d" & i).EntireRow.Copy Sheets(Sheet1.Range("d" & i).Value).Range("a" & j) ’复制表数据到其他表
Next
End Sub

Sub qingchu()
Dim i As Integer
For i = 2 To Sheets.Count
Sheets(i).Range("a2:f10000").ClearContents '清除内容
Next
End Sub

Sub shaixuan()
'Dim i As Integer
'For i = 2 To Sheets.Count
Sheet1.Range("A1:F1048").AutoFilter Field:=4, Criteria1:=Sheet2.Name '筛选
Sheet1.Range("A2:F1048").Copy Sheet2.Range("a2")
Sheet1.Range("A1:F1048").AutoFilter '取消筛选
'Next
End Sub