年末数据比较标记调整

APPLE123

如题：主要业务如工作簿内的几个工作表，涉及新增、转入、转出、取消、单位变化。

平时“基本表”内数据约有几千条，其他表格各有几百条数据。

年末根据“新增”、“转入”、“转出”、“取消”、“单位变化”的数据调整、标记“基本表”中对应数据。但工作量较大，涉及模拟业务如表格，希望大神发力帮助！

一、表格基本情况

1、每个工作表的数据基本格式不变，详见几个工作表。

2、数据量大，个别人员同名同姓。

3、手工录入证号极个别有错。

基于上述因素，在比较数据时，关键字采用姓名加证号模式。

4、“基本表”未调整前数据区域在A1：K121，黑色字。现有“基本表”区域扩大了，为调整后的效果。

二、数据调整要求

（一）新增

1、在“新增”表内设置vba按钮，将“新增”表内数据添加到“基本表”内。

2、添加原则，将新数据续接在“基本表”原有数据的尾巴。如“基本表”的122-131行。

3、在“基本表”的L列标记新增数据的原位置，如L124单元格“新增3”，表示这条数据来自在“新增”表B列序号3所在行。

4、在“新增”表E列标记新增数据是否调整，如E4单元格“已添加123”，表示这条数据已在“基本表”表添加，添加在B列序号123所在行。

（二）转入

类似新增，比照即可。在“基本表”的N列标记“转入1”；在“转入”的H列标记“已添加131”.

（三）转出

1、在“转出”表内设置vba按钮。

2、比较“转出”表E、F列与“基本表”D、E列的姓名与证号，如果均一致，那么在“基本表”M列对应位置标注，如M5标注“转出18”，表示这条数据来自在“转出”表A列序号18所在行。

3、比较“转出”表E、F列与“基本表”D、E列的姓名与证号，如果均一致，那么在“转出”G列对应位置标注，如G19标注“已调整3”，表示这条数据已在“基本表”B列序号3所在行。

4、如果“转出”表E、F列的姓名与证号在“基本表”D、E列的姓名与证号找不到数据，那么在G列对应位置标注“表1无该条数据”，如G18标注“表1无该条数据”。

（四）取消

1、在“取消”表内设置vba按钮。

2、比较“取消”表B、C列与“基本表”D、E列的姓名与证号，如果均一致，那么在“基本表”O列对应位置标注，如O8标注“取消3”，表示这条数据来自在“取消3”表A列序号3所在行。

3、比较“取消”表B、C列与“基本表”D、E列的姓名与证号，如果均一致，那么在“取消”D列对应位置标注，如D5标注“已调整7”，表示这条数据已在“基本表”B列序号7所在行。

4、如果“取消”表B、C列的姓名与证号在“基本表”D、E列的姓名与证号找不到数据，那么在D列对应位置标注“表1无该条数据”，如D11标注“表1无该条数据”。

（五）单位变化

1、在“单位变化”表内设置vba按钮。

2、在“基本表”中复制F列到K列，标题除外。复制数据时，涉及“转出”、“取消”的、可以复制，也可以不复制。

3、比较“单位变化”表E、G列与“基本表”D、E列的姓名与证号，如果均一致，那么复制“单位变化”表H列对应数据到“基本表”K列相应位置替换原有数据，如K6。同时在“基本表”P列对应位置标注，如P6标注“变化1”，表示这条数据来自在“单位变化”表A列序号1所在行。

4、比较“单位变化”表E、G列与“基本表”D、E列的姓名与证号，如果均一致，那么在“单位变化”E列对应位置标注，如E3标注“已调整5”，表示这条数据已在“基本表”表B列序号5所在行。

5、如果“单位变化”表E、G列的姓名与证号在“基本表”D、E列的姓名与证号找不到数据，那么在E列对应位置标注“表1无该条数据”，如E4标注“表1无该条数据”。

                                                                                                                                                     

描述比较繁琐，希望大神不要一看就烦，谢谢！

可以按照调整事项逐个编写vba，

也可以在“基本表”中弄一个一键搞定，太难了。

xinlan6

一、二应当不太难
后面的均是比较2表同时2边标记、复制调整，有点难！
如果能一键搞定，那真是太难了！

APPLE123

求关注，自己先顶一个
麻烦各位大神瞧一瞧，谢谢

APPLE123

走过路过的，稍微停顿一下您的匆匆脚步，帮帮忙。谢谢！

APPLE123

我是小白，初学vba不久，模拟类似问题vba自解如下：
Sub test1()
Dim Myr&, m&
Sheets("基本表").Activate
Myr = Sheets("新增").Cells(Sheets("新增").Rows.Count, 1).End(xlUp).Row
m = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(m, 4).Resize(Myr) = Sheets("新增").[D2].Resize(Myr).Value
Cells(m, 5).Resize(Myr) = Sheets("新增").[C2].Resize(Myr).Value  
Cells(m, 6).Resize(Myr) = Sheets("新增").[J2].Resize(Myr).Value
Cells(m, 11).Resize(Myr) = Sheets("新增").[J2].Resize(Myr).Value
Cells(m, 12).Resize(Myr) = Sheets("新增").[B2].Resize(Myr).Value  
MsgBox "新增人员追加数据完成"
MsgBox "审核确认后请及时调整基本表B列序号！切记！！！以免数据被覆盖！"
End Sub

但是仅是部分达到题目要求，求大神关注、发力、帮忙、修正。谢谢！
不足：
此vba未能同时在2表进行标记，以便后续的检测
在基本表B列未能及时续写编码，导致可能被后续操作覆盖的危险。
代码似乎不够精炼。

APPLE123

Sub test2()
Dim Myr&, m&
Sheets("基本表").Activate
Myr = Sheets("转入").Cells(Sheets("转入").Rows.Count, 1).End(xlUp).Row
m = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(m, 4).Resize(Myr) = Sheets("转入").[E2].Resize(Myr).Value
Cells(m, 5).Resize(Myr) = Sheets("转入").[F2].Resize(Myr).Value
Cells(m, 6).Resize(Myr) = Sheets("转入").[G2].Resize(Myr).Value
Cells(m, 11).Resize(Myr) = Sheets("转入").[G2].Resize(Myr).Value
Cells(m, 12).Resize(Myr) = Sheets("转入").[A2].Resize(Myr).Value  
MsgBox "转入人员追加数据完成"
MsgBox "审核确认后请及时调整基本表B列序号！切记！！！以免数据被覆盖！"
End Sub

jiminyanyan

APPLE123 发表于 2017-3-18 08:11
Sub test2()
Dim Myr&, m&
Sheets("基本表").Activate

工程有点大，把人吓走了。嘿嘿