求助：将一列数据通过某些判断分成两列。

TxyzT

求助：
一列数据中含N的放到一列，对应的后面不含N（个数不定）的合并起来放到另一列中，最好能有对应关系。例子如下：

N5631
3
2
8
N7886
2
8
N9874
8
7
5
4
N5586
2
N8878
1
8

处理后为

N5631	328
N7886	28
N9874	8754
N5586	2
N8878	18

请高手赐教！！！

TxyzT

石沉大海？{:soso_e109:}

antlia

TxyzT 发表于 2013-11-22 14:30
石沉大海？

假设将源数据放在Sheet1 表A列，目标数据放在C,D 列。
代码如下：

1. 
   
2. Sub test()
   
3.     Dim str As String, i As Integer, j As Integer
   
4.     [c1].CurrentRegion.ClearContents
   
5.     j = 1
   
6.     Cells(j, "c") = [a1]
   
7.     For i = 2 To [a1].CurrentRegion.Rows.Count
   
8.         If InStr(Cells(i, 1), "N") <> 0 Then
   
9.              Cells(j, "d") = str
   
10.              j = j + 1
    
11.              Cells(j, "c") = Cells(i, "a")
    
12.              str = ""
    
13.         Else
    
14.              str = str & Cells(i, "a")
    
15.         End If
    
16.     Next
    
17.     Cells(j, "d") = str
    
18. End Sub
    

复制代码

antlia

参考附件效果

TxyzT

antlia 发表于 2013-11-22 18:03
参考附件效果

貌似附件挂错了，金属查询……
用代码试了一下，达到想要的效果了！{:soso_e179:}太感谢了！{:soso_e183:}