按某列相同的值分到各工作表中备课讲稿.docVIP

按某列相同的值分到各工作表中 精品文档 精品文档 收集于网络，如有侵权请联系管理员删除 收集于网络，如有侵权请联系管理员删除 精品文档 收集于网络，如有侵权请联系管理员删除 这个是近期常遇见的一个问题题，大意是这样的： 有一个总表，总表中包含N行标题列与M行数据，要将其中一列数据（比如A列）中相同值对应的行，分配到新工作表中。 如果数据量少的话，我们可以用筛选，再将结果复制到新工作表来完成，但数据一多，我们还是用VBA来完成吧：）。 首先，选择标题最后一行与条件数据所在列的单元格，比如共有3行标题，按第二列分配数据，就选择B3格，然后运行下面的宏： Sub 按某列相同的值分到各工作表中() On Error Resume Next Dim I As Integer, N As Integer Dim SR As Integer, ER As Integer, FC As Integer Dim TS As String, SS As String Dim OS As Worksheet, NS As Worksheet, KS As Worksheet Set OS = ActiveSheet FC = ActiveCell.Column SR = ActiveCell.Row + 1 ER = ActiveCell.SpecialCells(xlCellTypeLastC