[已解决]求助vba

faiki

Book1.rar (9.55 KB, 下载次数: 19)

2012-11-25 21:57 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

孤单无所谓

2012-11-26 03:00

Sub aa()
Dim x, y As String
        Dim j!, a!, b!
             For a = 16 To 18
        For b = 5 To 27
               x = "0123456789"
    y = Cells(a, b).Value
               If y <> "" Then
    For j = 1 To Len(y)
                     x = Replace(x, Mid(y, j, 1), "")
                Next j
            Cells(a + 6, b) = x
        End If
            Next
     Next
End Sub

跳转到最佳答案楼层

faiki

这个应该最简单吧,,,

孤单无所谓

Sub aa()
Dim x, y As String
        Dim j!, a!, b!
             For a = 16 To 18
        For b = 5 To 27
               x = "0123456789"
    y = Cells(a, b).Value
               If y <> "" Then
    For j = 1 To Len(y)
                     x = Replace(x, Mid(y, j, 1), "")
                Next j
            Cells(a + 6, b) = x
        End If
            Next
     Next
End Sub