在一个工作簿中,想对某一列做筛选,并且拆分到后面的工作表里,通用代码如下: Sub chaifenshuju()
Dim sht As Worksheet Dim k, i, j As Integer Dim irow As Integer 这个说的是一共多少行 Dim l As Integer Dim sht0 As Worksheet
Set sht0 ActiveSheet
l InputBox(“请输…
http://www.cnblogs.com/jaxu/archive/2009/04/30/1446619.html 目录 AutoFilter Binding Cell Comments Cell Copy Cell Format Cell Number Format Cell Value Cell AutoFilter
1. 确认当前工作表是否开启了自动筛选功能 Sub filter () If ActiveShe…