按某列相同的值分到各工作表中.doc
《按某列相同的值分到各工作表中.doc》由会员分享,可在线阅读,更多相关《按某列相同的值分到各工作表中.doc(3页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、如有侵权,请联系网站删除,仅供学习与交流按某列相同的值分到各工作表中【精品文档】第 3 页这个是近期常遇见的一个问题题,大意是这样的:有一个总表,总表中包含N行标题列与M行数据,要将其中一列数据(比如A列)中相同值对应的行,分配到新工作表中。如果数据量少的话,我们可以用筛选,再将结果复制到新工作表来完成,但数据一多,我们还是用VBA来完成吧:)。首先,选择标题最后一行与条件数据所在列的单元格,比如共有3行标题,按第二列分配数据,就选择B3格,然后运行下面的宏:Sub 按某列相同的值分到各工作表中()On Error Resume NextDim I As Integer, N As Integ
2、erDim SR As Integer, ER As Integer, FC As IntegerDim TS As String, SS As StringDim OS As Worksheet, NS As Worksheet, KS As WorksheetSet OS = ActiveSheetFC = ActiveCell.ColumnSR = ActiveCell.Row + 1ER = ActiveCell.SpecialCells(xlCellTypeLastCell).RowApplication.ScreenUpdating = FalseFor I = SR To ER
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 按某列 相同 分到 工作
限制150内