Excel执行宏命令实现“在现有数据表中以某条件筛选后建立一个新表” 5
这个表的数据很多,这只是其中小部分。我设想以某天的时间筛选后建立了个新的工作表,用一个宏命令来实现,可行吗?比如,我要筛选出科目一时间“2013/3/15"的数据,建立一...
这个表的数据很多,这只是其中小部分。我设想以某天的时间筛选后建立了个新的工作表,用一个宏命令来实现,可行吗?比如,我要筛选出科目一时间“2013/3/15"的数据,建立一个新工作表,只列出”F:M"列的数据。
展开
4个回答
展开全部
如果只是筛选时间,用宏完全可行,不过宏效率低下,你这完全可以筛选出来直接复制出来就好了,现在版本的excel,筛选后复制并不会复制到已经被筛选隐藏的数据,不用宏,当然宏也可以做筛选,不过我不大会
Sub S()
Dim i As Integer
Dim a As Integer
Dim sht1 As Object
Dim sht2 As Object
a = 1
Set sht1 = ActiveSheet
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "新表"
Set sht2 = Sheets("新表")
For i = 1 To sh1.UsedRange.Rows.Count
If i = 1 Or sh1.Range("D" & "i") = "2013/3/15" Then
sh1.Rows(i & ":" & "i").Copy
sh2.Select
Cells(a, 1).Select
ActiveSheet.Paste
a = a + 1
End If
Next i
sh2.Columns("A:E").Delete
sh2.Columns("N:Z").Delete
End Sub
Sub S()
Dim i As Integer
Dim a As Integer
Dim sht1 As Object
Dim sht2 As Object
a = 1
Set sht1 = ActiveSheet
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "新表"
Set sht2 = Sheets("新表")
For i = 1 To sh1.UsedRange.Rows.Count
If i = 1 Or sh1.Range("D" & "i") = "2013/3/15" Then
sh1.Rows(i & ":" & "i").Copy
sh2.Select
Cells(a, 1).Select
ActiveSheet.Paste
a = a + 1
End If
Next i
sh2.Columns("A:E").Delete
sh2.Columns("N:Z").Delete
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
就是按时间分成若干个新表
格式一样 是不
推荐下载“excel工具箱“
格式一样 是不
推荐下载“excel工具箱“
追问
是,而且只保留指定列数据。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询