1、关于“出生医学证明”与“分娩”信息在共享平台应用中的处理方法在宜昌市人口计生委的艰苦努力下，在宜昌市卫生局的大力支持下，我们获得了由卫生系统提供的“出生医学证明”与“分娩”信息，并将这些信息导入湖北省人口基础信息共享平台，取得了很好的效果。现整理出数据处理方法，供大家参考。一、原始资料及准备1、关于 BirthCertificate（出生医学证明，表 1） 。此表由生育对象在办理出生医学证明时，提供的夫妻双方姓名、身份证号码、女方户籍地、新生儿姓名、出生时间、性别等信息。在办理出生医学证明的过程中，办证人员录入的信息，都由生育对象逐一核实，信息准确率很高。2、关于 Labor（分娩，表 2）
2、。此表由助产技术服务机构在生产过程中，对生育对象的各项信息进入录入。但部分信息项目不全，录入信息未经核对，信息准确度不高。3、将新建工作薄“当阳市 8 月” ，包含上述表 1 和表 2，再复制表 2，更名表 3。此工作薄包含 3 个工作表。二、查找及替换要求以母亲姓名作为比对依据，如果表 1 中的某条记录母亲姓名与表 2 中的母亲姓名完全相同，则用表 1 中的该条记录替换表 2 中的对应记录，并作红色标记。三、操作步骤1、打开工作薄“当阳市 8 月” ，选择表 3，选择“工具”-“宏”- “宏” ，打开对话框，输入宏名“TH” ，在“位置”处单击下拉框选择 “当阳市 8 月” ，单击“创建”
3、，打开 VB 编辑工具，在 Sub TH() 和 End Sub 中间粘贴以下代码：Dim i, j As IntegerDim nr As IntegerDim str1, str2, rng As StringApplication.DisplayAlerts = FalseSheets(“表 2“).SelectCells.SelectSelection.CopyRange(“A4“).SelectSheets(“表 3“).SelectRange(“A1:P1“).SelectActiveSheet.PasteRange(“A4“).SelectWith Sheets(“表 1“)nr
4、 = .a65536.End(xlUp).Rowi = 4Do Until Cells(i, 1) = “str2 = Cells(i, “A“) & Cells(i, “F“)For j = 4 To nrIf Cells(i, “A“) = .Cells(j, “A“) Thenstr1 = (.Cells(j, “A“) & (.Cells(j, “F“)Exit ForEnd IfNext jIf str1 = str2 ThenCells(i, “B“) = .Cells(j, “B“)Cells(i, “C“) = .Cells(j, “C“)Cells(i, “D“) = .Ce
5、lls(j, “D“)Cells(i, “G“) = .Cells(j, “G“)Cells(i, “H“) = .Cells(j, “H“)Cells(i, “I“) = .Cells(j, “I“)Cells(i, “J“) = .Cells(j, “J“)Cells(i, “K“) = .Cells(j, “K“)Cells(i, “M“) = .Cells(j, “M“)Cells(i, “O“) = .Cells(j, “O“)Cells(i, “p“) = .Cells(j, “P“)rng = “A“ & Trim(Str(i) & “:P“ & Trim(Str(i)Range
6、(rng).SelectSelection.Font.ColorIndex = 3End Ifi = i + 1LoopEnd WithApplication.DisplayAlerts = True关闭对话框，关闭 VB 编辑器。2、选择“工具”-“宏”-“宏” ，打开对话框，单击“执行 ”。EXCEL 将会执行宏命令，按照要求进行查找和替换。看看结果，是不是你所希望的？3、说明：首先，因为表 1 中的 E、L、N 三列无数据，所以保留表 3 中的这三列数据不作替换。其次，查找的列名是女方姓名，如果产妇中有姓名安全相同的两个对象，则可能会被替换为一个对象。第三，如果某产妇生了双胞胎，替换后则需要核实新生儿性别等信息，特别是双卵双胎，即“龙凤胎”要核实并修改新生儿性别。4、后续处理。因为表中的婴儿出生时间是采用的“YYYY-MM-DD HH-MM-SS”格式，需要按要求替换为“YYYY-MM-DD”格式。可以采用 LEFT 函数截取字符串，方法如下：在表 3 后面选择对应列的单位格，输入公式left(I4,10),执行公式，选择单元格的公式，复制到整列，获取数据。然后复制得到的数据，粘贴到 I4 列，注意粘贴时使用 “选择性粘贴”“数值”5、导入数据。按助产机构名称分割成单独工作表，导入湖北省基础信息共享平台。
