[已解决]替换问题，原来的宏不能用了，请帮忙看看，谢谢！

bipl607

请教：如何用宏将A列内容变为B列内容，谢谢！

A	B
http://abcd123.com.cn/cvbn/Showabcown.asp?SoftID=13853	http://abcd123.com.cn/cvbn/Showabcown.asp?UrljlID=100&SoftID=13853
http://abcd123.com.cn/asdfr/Showabcown.asp?SoftID=138514	http://abcd123.com.cn/asdfr/Showabcown.asp?UrljlID=100&SoftID=138514
http://abcd123.com.cn/qazxswed/Showabcown.asp?SoftID=13855	http://abcd123.com.cn/qazxswed/Showabcown.asp?UrljlID=100&SoftID=13855
http://abcd123.com.cn/cvbn/Showabcown.asp?SoftID=13856	http://abcd123.com.cn/cvbn/Showabcown.asp?UrljlID=100&SoftID=13856

原来的宏是这样的，现在不能用了，应该怎么改，谢谢！
Sub 替换()
    Dim Arr1, Arr11()
    Dim Row1, I, S, SZ1, SZ2, SZ
    Row1 = Range("A65536").End(xlUp).Row
    Arr1 = Range("A1:A" & Row1)
    ReDim Arr11(1 To UBound(Arr1), 1 To 1)
    For I = 1 To UBound(Arr1)
        S = Arr1(I, 1)
        SZ1 = InStr(Replace(S, "/", "#", , 5), "/")
        SZ2 = InStr(SZ1, S, ".")
        SZ = Mid(S, SZ1 + 1, SZ2 - SZ1 - 1)
        Arr11(I, 1) = Left(S, 27) & "Showabcown.asp?UrljlID=100&SoftID=" & SZ
    Next I
    Range("B1").Resize(UBound(Arr1), 1) = Arr11
End Sub

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-5-26 00:45

bipl607 发表于 2013-5-26 00:19
刚才附件不能上传，现在可以了，谢谢！

1. Sub 替换()
   
2.     Dim Arr1, Arr11()
   
3.     Dim Row1, I, S, SZ1, SZ2, SZ
   
4.     Row1 = Range("A65536").End(xlUp).Row
   
5.     Arr1 = Range("A1:A" & Row1)
   
6.     ReDim Arr11(1 To UBound(Arr1), 1 To 1)
   
7.     For I = 1 To UBound(Arr1)
   
8.         S = Arr1(I, 1)
   
9.         S1 = Left(S, InStr(S, "?"))
   
10.         S2 = Right(S, Len(S) - InStr(S, "?"))
    
11.         Arr11(I, 1) = S1 & "UrljlID=100&" & S2
    
12.     Next I
    
13.     Range("B1").Resize(UBound(Arr1), 1) = Arr11
    
14. End Sub

复制代码

301599-VBA-替换字符-如何用宏将A列内容变为B列.rar (9.26 KB, 下载次数: 7)

2013-5-26 00:46 上传

点击文件名下载附件

跳转到最佳答案楼层

bipl607

刚才附件不能上传，现在可以了，谢谢！

那么的帅

bipl607 发表于 2013-5-26 00:19
刚才附件不能上传，现在可以了，谢谢！

1. Sub 替换()
   
2.     Dim Arr1, Arr11()
   
3.     Dim Row1, I, S, SZ1, SZ2, SZ
   
4.     Row1 = Range("A65536").End(xlUp).Row
   
5.     Arr1 = Range("A1:A" & Row1)
   
6.     ReDim Arr11(1 To UBound(Arr1), 1 To 1)
   
7.     For I = 1 To UBound(Arr1)
   
8.         S = Arr1(I, 1)
   
9.         S1 = Left(S, InStr(S, "?"))
   
10.         S2 = Right(S, Len(S) - InStr(S, "?"))
    
11.         Arr11(I, 1) = S1 & "UrljlID=100&" & S2
    
12.     Next I
    
13.     Range("B1").Resize(UBound(Arr1), 1) = Arr11
    
14. End Sub

复制代码

301599-VBA-替换字符-如何用宏将A列内容变为B列.rar (9.26 KB, 下载次数: 7)

2013-5-26 00:46 上传

点击文件名下载附件

bipl607

帅哥，还在线哩，谢谢你，谢谢！

1032446692

1. Sub 替换()
   
2.     Dim Arr1, Arr11()
   
3.     Dim Row1, I, S, SZ1, SZ2, SZ
   
4.     Row1 = Range("A65536").End(xlUp).Row
   
5.     Arr1 = Range("A1:A" & Row1)
   
6.     ReDim Arr11(1 To UBound(Arr1), 1 To 1)
   
7.     For I = 1 To UBound(Arr1)
   
8.         S = Arr1(I, 1)
   
9.          Arr11(I, 1) = Replace(S, "?S", "?UrljlID=100&")
   
10.     Next I
    
11.     Range("A1").Resize(UBound(Arr1), 1) = Arr11
    
12. End Sub
    

复制代码