[已解决]字符串代码为何不能实现效果

hhaa999

10BisJjU.rar (12.07 KB, 下载次数: 3)

2010-2-26 22:19 上传

点击文件名下载附件
字符串代码为何不能实现效果

最佳答案

月排行榜 / 总排行榜

枯禅

2010-2-26 22:30

Sub zzzff() '导出数据
   irow = Worksheets(1).[B65536].End(xlUp).Row
    For ii = 2 To irow
    r = CStr(Sheets(1).Name)
    W = Sheets(1).Cells(ii, 2).Value
      ' 判断单元格数字存在否
       n = Len(W)
       For j = 1 To n
        r = Replace(r, Mid(W, j, 1), "")
      Next
      Sheets(1).Cells(ii, 5) = "'" & r
     Next
End Sub

[此贴子已经被作者于2010-2-26 22:30:39编辑过]

跳转到最佳答案楼层

枯禅

Sub zzzff() '导出数据
   irow = Worksheets(1).[B65536].End(xlUp).Row
    For ii = 2 To irow
    r = CStr(Sheets(1).Name)
    W = Sheets(1).Cells(ii, 2).Value
      ' 判断单元格数字存在否
       n = Len(W)
       For j = 1 To n
        r = Replace(r, Mid(W, j, 1), "")
      Next
      Sheets(1).Cells(ii, 5) = "'" & r
     Next
End Sub

[此贴子已经被作者于2010-2-26 22:30:39编辑过]

喜多多

Sub zzzff() '导出数据
   r = str(Sheets(1).Name)
   irow = Worksheets(1).[B65536].End(xlUp).Row
    For ii = 2 To irow
    W = Sheets(1).Cells(ii, 2).Value
      ' 判断单元格数字存在否
       n = Len(W)
       s = r
       For j = 1 To n
        s = Replace(s, Mid(W, j, 1), "")
      Next
      Sheets(1).Cells(ii, 4) = s
     Next
End Sub