[已解决]请教高手;如何用宏将C列的内容按要求提取到D列、E列，谢谢！

bipl607

请教高手;如何用宏将C列的内容按要求提取到D列、E列，谢谢！

详见附件。表中的D列、E列结果是我用手工得到的，实际应用时数据较多不可能用手工，谢谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2015-8-3 23:56

Sub Click()
    Application.ScreenUpdating = False
    Range("c:c").Copy [d1]
    Range("c:c").Copy [e1]

    With Columns(4)
        .Replace "地址: ", ""
        .Replace " 编号*", ""
        .AutoFit
    End With

    With Columns(5)
        .Replace " 编号", " ,编号"
        .Replace "*,", ""
        .AutoFit
    End With
End Sub

求助0802b.rar (10.22 KB, 下载次数: 17)

2015-8-3 23:56 上传

点击文件名下载附件

跳转到最佳答案楼层

baksy

附件

爱疯

Sub Click()
    Application.ScreenUpdating = False
    Range("c:c").Copy [d1]
    Range("c:c").Copy [e1]

    With Columns(4)
        .Replace "地址: ", ""
        .Replace " 编号*", ""
        .AutoFit
    End With

    With Columns(5)
        .Replace " 编号", " ,编号"
        .Replace "*,", ""
        .AutoFit
    End With
End Sub

求助0802b.rar (10.22 KB, 下载次数: 17)

2015-8-3 23:56 上传

点击文件名下载附件

bipl607

谢谢爱疯超级版主，谢谢！

bipl607

也谢谢baksy提供的公式，谢谢！