[已解决]代码优化

hezhiyee

请给修改下

最佳答案

月排行榜 / 总排行榜

爱疯

2015-7-15 11:46

(, 下载次数: 5)

上传

点击文件名下载附件

AS列没做。
因为没规律，你就自己添加吧，一个个直接赋值好了。

跳转到最佳答案楼层

爱疯

建议直接说明题意

hezhiyee

爱疯 发表于 2015-7-15 09:49
建议直接说明题意

就是把AR和AS列的数据提取出来。

hezhiyee

hezhiyee 发表于 2015-7-15 09:51
就是把AR和AS列的数据提取出来。

把表中的数据提取出来，存放在AR和AS列，请你重点给看下提取AS列的代码优化。

hezhiyee

hezhiyee 发表于 2015-7-15 09:57
把表中的数据提取出来，存放在AR和AS列，请你重点给看下提取AS列的代码优化。

For ii = 4 To UBound(brr)
        If Cells(4, ii) = "单位名称" Then
            Cells(13, 45) = Cells(4, ii + 3)
        End If

        If Cells(4, ii) = "姓  名" Then
            Cells(14, 45) = Cells(4, ii + 3)
        End If

        If Cells(4, ii) = "个人编码" Then
            Cells(15, 45) = Cells(4, ii + 3)
        Else
            '       Cells(15, 45) = Cells(4, 30)
        End If

        If Cells(5, ii) = "身份证号" Then
            Cells(16, 45) = Cells(5, ii + 3)
        End If

        If Cells(5, ii) = "出生日期" Then
            Cells(17, 45) = Cells(5, ii + 3)
        Else
            Cells(17, 45) = Cells(5, 19)
        End If

        If Cells(5, ii) = "性  别" Then
            Cells(18, 45) = Cells(5, ii + 3)
        End If

        If Cells(6, ii) = "视同缴费月数" Then
            Cells(19, 45) = Cells(6, ii + 3)
        End If

        If Cells(6, ii) = "个人身份" Then
            Cells(20, 45) = Cells(6, ii + 3)
        End If

        If Cells(7, ii) = "参加工作时间" Then
            Cells(21, 45) = Cells(7, ii + 3)
        End If

        If Cells(7, ii) = "欠缴月数" Then
            Cells(22, 45) = Cells(7, ii + 3)
        Else
            '       Cells(22, 45) = Cells(7, 30)
        End If

    Next

爱疯

1）AL的右边，能放到其他工作表中去吗？放在一起，感觉有点乱

2）aq12:a32，是先输好的内容吗？

3）E31=31810，AR31=38172，这是对的吗？

hezhiyee

爱疯 发表于 2015-7-15 10:06
1）AL的右边，能放到其他工作表中去吗？放在一起，感觉有点乱

2）aq12:a32，是先输好的内容吗？

摄取出来的数据是临时存放下，
aq12:a32，是先输好的内容，不用考虑他，
E31=31810，AR31=38172，这是对的，是变成年后数据

爱疯

hezhiyee 发表于 2015-7-15 09:51
就是把AR和AS列的数据提取出来。

这么说，只是说明把提取的结果放在AR和AS列。

提取的规则是什么？

hezhiyee

爱疯 发表于 2015-7-15 10:36
这么说，只是说明把提取的结果放在AR和AS列。

提取的规则是什么？

AR列是按年份提取，如有间断年份的提取数据为“0”
AS列只要把“表”中第4行和第7行的10组数据提取出来就行，不用考虑存放顺序问题。

hezhiyee

hezhiyee 发表于 2015-7-15 10:47
AR列是按年份提取，如有间断年份的提取数据为“0”
AS列只要把“表”中第4行和第7行的10组数据提取出来就 ...

AS列的10组要提取的数据是
1、单位名称
2、姓  名
3、个人编码
4、身份证号
5、出生日期
6、性  别
7、视同缴费月数
8、个人身份
9、参加工作时间
10、欠缴月数