[已解决]替代问题

fangniuji

用B列%以上资料取代A列%以上资料，结果放A列，A列结果如C列

最佳答案

月排行榜 / 总排行榜

suye1010

2012-12-12 08:39

1. Sub RePlaceValue()
   
2. Dim V1, V2, V3, arr
   
3. V1 = Join(Application.Transpose(Range("B1:B" & Cells(65536, 2).End(xlUp).Row)), "*")
   
4. V2 = Join(Application.Transpose(Range("A1:A" & Cells(65536, 1).End(xlUp).Row)), "*")
   
5. V3 = V1 & Mid(V2, InStr(V2, "%") + 1, 1000)
   
6. arr = Application.Transpose(Split(V3, "*"))
   
7. Cells(1, 3).Resize(UBound(arr), 1) = arr
   
8. End Sub

复制代码

跳转到最佳答案楼层

wayy

1. Sub wayy()
   
2. Dim i, n, ks, mrow As Long
   
3. Dim arr1, arr2
   
4. arr1 = Range("A1", [a65536].End(xlUp))
   
5. mrow = [b65536].End(xlUp).Row
   
6. ReDim arr2(1 To UBound(arr1), 1 To 1)
   
7. For i = 1 To UBound(arr1)
   
8.   If arr1(i, 1) = "%" Then
   
9.     ks = 1
   
10.   End If
    
11.   If ks = 1 Then
    
12.     n = n + 1
    
13.     arr2(n, 1) = arr1(i, 1)
    
14.   End If
    
15. Next
    
16. Range("C1:C" & mrow).Value = Range("B1:B" & mrow).Value
    
17. Cells(mrow, 3).Resize(n, 1) = arr2
    
18. End Sub

复制代码

suye1010

1. Sub RePlaceValue()
   
2. Dim V1, V2, V3, arr
   
3. V1 = Join(Application.Transpose(Range("B1:B" & Cells(65536, 2).End(xlUp).Row)), "*")
   
4. V2 = Join(Application.Transpose(Range("A1:A" & Cells(65536, 1).End(xlUp).Row)), "*")
   
5. V3 = V1 & Mid(V2, InStr(V2, "%") + 1, 1000)
   
6. arr = Application.Transpose(Split(V3, "*"))
   
7. Cells(1, 3).Resize(UBound(arr), 1) = arr
   
8. End Sub

复制代码

fangniuji

wayy 发表于 2012-12-12 08:35

谢谢，谢谢，谢谢！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！