操作方法
对于如图所示的表格，如果我们希望将其中的奇数行与偶数行分开存放，而且只对“业绩”大于80的员工进行操作，此时对于这种多条件筛选操作，我们就需要借用VBA编辑来实现。
首先，我们创建两个工作表，并分别命名为“奇数行”和“偶数行”，然后按键盘上的组合键“Alt+F11”进入VBA编辑模式。
右击“Excel对象”，从弹出的右键菜单中选择“插入”->“模式”项。
然后输入如图所示的代码： Sub 拆分工作表() Dim i, cols As Integer Dim odd, even As Integer cols = 7 odd = 0 even = 0 For i = 3 To 12 If Sheets("员工基础报表").Cells(i, 7) > 80 Then If i Mod 2 = 0 Then odd = odd + 1 For j = 1 To cols Sheets("偶数行").Cells(odd, j) = Sheets("员工基础报表").Cells(i, j) Next j Else even = even + 1 For j = 1 To cols Sheets("奇数行").Cells(even, j) = Sheets("员工基础报表").Cells(i, j) Next j End If End If Next i End Sub
点击工具栏上方的“调试运行”按钮。
运行完成后，就可以查看一下效果啦。