[已解决](求助)如何使用代码一键清除单元格中的无用信息？

阿瑛

如附件 一键清除无用信息附件.rar (4.48 KB, 下载次数: 5)

2012-11-19 11:04 上传

点击文件名下载附件

谢谢各位老师！

最佳答案

月排行榜 / 总排行榜

爱疯

2012-11-19 11:53

Sub 按钮1_单击()
    Dim a, i, j
    a = Range("a1").CurrentRegion
    For i = 1 To UBound(a)
        For j = 1 To UBound(a, 2)
            If InStr(a(i, j), "$") Then a(i, j) = Split(a(i, j), "$")(1)
        Next j
    Next
    [a1].Resize(i - 1, j - 1) = a
End Sub
一键清除无用信息附件2.rar (8.43 KB, 下载次数: 9)

2012-11-19 11:53 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

Sub 按钮1_单击()
    Dim a, i, j
    a = Range("a1").CurrentRegion
    For i = 1 To UBound(a)
        For j = 1 To UBound(a, 2)
            If InStr(a(i, j), "$") Then a(i, j) = Split(a(i, j), "$")(1)
        Next j
    Next
    [a1].Resize(i - 1, j - 1) = a
End Sub
一键清除无用信息附件2.rar (8.43 KB, 下载次数: 9)

2012-11-19 11:53 上传

点击文件名下载附件