[已解决]批量显示

张雄友

AB二列数据，在C列显示牌子（就是共同的文字）
在D列显示A商独有的文字，在E列显示B商独有的文字。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-5-23 22:32

1. Sub demo()
   
2.     Dim arr
   
3.     arr = Range("a2").CurrentRegion.Value
   
4.     Dim i&, j&
   
5.     For i = 2 To UBound(arr)
   
6.         If Len(arr(i, 1)) Then
   
7.             For j = 1 To Len(arr(i, 1))
   
8.                 If InStr(1, arr(i, 1), Left(arr(i, 2), j)) = 0 Then
   
9.                     Exit For
   
10.                 End If
    
11.             Next
    
12.             If j Then
    
13.                 arr(i, 3) = Left(arr(i, 1), j - 1)
    
14.                 arr(i, 4) = Mid(arr(i, 1), j)
    
15.                 arr(i, 5) = Mid(arr(i, 2), j)
    
16.             End If
    
17.         End If
    
18.     Next
    
19.     Range("a2").Resize(UBound(arr), UBound(arr, 2)).Value = arr
    
20. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub demo()
   
2.     Dim arr
   
3.     arr = Range("a2").CurrentRegion.Value
   
4.     Dim i&, j&
   
5.     For i = 2 To UBound(arr)
   
6.         If Len(arr(i, 1)) Then
   
7.             For j = 1 To Len(arr(i, 1))
   
8.                 If InStr(1, arr(i, 1), Left(arr(i, 2), j)) = 0 Then
   
9.                     Exit For
   
10.                 End If
    
11.             Next
    
12.             If j Then
    
13.                 arr(i, 3) = Left(arr(i, 1), j - 1)
    
14.                 arr(i, 4) = Mid(arr(i, 1), j)
    
15.                 arr(i, 5) = Mid(arr(i, 2), j)
    
16.             End If
    
17.         End If
    
18.     Next
    
19.     Range("a2").Resize(UBound(arr), UBound(arr, 2)).Value = arr
    
20. End Sub

复制代码

hwc2ycy

先把FG列内容清空吧。提取时就通过找两个字符串公共的做为分界符。
剩下的通过代码应该就能明白是怎么回事了。