[已解决]请教一个简单宏，谢谢！

bipl607

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

A	B
http://abcd123.com.cn/cvbn/gsst/201105/13853.html	http://abcd123.com.cn/cvbn/Showabcown.asp?UrljlID=100&SoftID=13853
http://abcd123.com.cn/cvbn/gsst/201105/138514.html	http://abcd123.com.cn/cvbn/Showabcown.asp?UrljlID=100&SoftID=138514

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-5-25 23:42

bipl607 发表于 2013-5-25 23:33
那么的帅，若将一楼的A列换为下面的内容又怎么改上述代码呢？谢谢!我太菜，对不起了

1 如果不会修改代码，最好直接结合自己的实例提问
2 问题解决后，不要忘了设置最佳答案

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, 42)
   
10.         S2 = Right(S, Len(S) - 42)
    
11.         Arr11(I, 1) = S1 & "UrljlID=100&" & S2
    
12.     Next I
    
13.     Range("B1").Resize(UBound(Arr1), 1) = Arr11
    
14. End Sub

复制代码

跳转到最佳答案楼层

1032446692

啥意思  你B列的数据是怎么来的？

bipl607

由A列增减字符而来，谢谢你！

那么的帅

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.         SZ1 = InStr(Replace(S, "/", "#", , 5), "/")
   
10.         SZ2 = InStr(SZ1, S, ".")
    
11.         SZ = Mid(S, SZ1 + 1, SZ2 - SZ1 - 1)
    
12.         Arr11(I, 1) = Left(S, 27) & "Showabcown.asp?UrljlID=100&SoftID=" & SZ
    
13.     Next I
    
14.     Range("B1").Resize(UBound(Arr1), 1) = Arr11
    
15. End Sub

复制代码

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

2013-5-25 23:03 上传

点击文件名下载附件

bipl607

谢谢楼上朋友，谢谢那么的帅，谢谢!

bipl607

那么的帅，若将一楼的A列换为下面的内容又怎么改上述代码呢？谢谢!我太菜，对不起了

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/cvbn/Showabcown.asp?SoftID=138514	http://abcd123.com.cn/cvbn/Showabcown.asp?UrljlID=100&SoftID=138514
http://abcd123.com.cn/cvbn/Showabcown.asp?SoftID=13855	http://abcd123.com.cn/cvbn/Showabcown.asp?UrljlID=100&SoftID=13855

bipl607

对不起，忘记传6楼的附件了

那么的帅

bipl607 发表于 2013-5-25 23:33
那么的帅，若将一楼的A列换为下面的内容又怎么改上述代码呢？谢谢!我太菜，对不起了

1 如果不会修改代码，最好直接结合自己的实例提问
2 问题解决后，不要忘了设置最佳答案

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, 42)
   
10.         S2 = Right(S, Len(S) - 42)
    
11.         Arr11(I, 1) = S1 & "UrljlID=100&" & S2
    
12.     Next I
    
13.     Range("B1").Resize(UBound(Arr1), 1) = Arr11
    
14. End Sub

复制代码

bipl607

谢谢那么的帅！可惜不能有两个最佳答案。