Sub chaifenshuju()
Dim sht As Worksheet
Dim k, i, j As Integer
Dim irow As Integer
Dim l As Integer
l = InputBox("请输入你要按哪列分")
'删除无意义的表
Application.DisplayAlerts =
VBA根据某列内容创建工作表
最新推荐文章于 2024-07-15 11:07:06 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)
Sub chaifenshuju()
Dim sht As Worksheet
Dim k, i, j As Integer
Dim irow As Integer
Dim l As Integer
l = InputBox("请输入你要按哪列分")
'删除无意义的表
Application.DisplayAlerts =