有条件的合并单元格

追梦竹叶青

【求助】
在A列有一列数字，想通过合并单元格，在B2单元格中合并内容，要求连续的数字中间用加“~”代替，非连续的用空格隔开。见下图：

多谢！

TomingTang

上传附件。
用函数就不会了，vba倒是可以实现的。

追梦竹叶青

TomingTang 发表于 2015-1-19 12:40
上传附件。
用函数就不会了，vba倒是可以实现的。

用VBA改输入什么式子呢！多谢。

追梦竹叶青

追梦竹叶青 发表于 2015-1-19 12:51
用VBA改输入什么式子呢！多谢。

合并单元格.rar (6.79 KB, 下载次数: 9)

2015-1-19 12:59 上传

点击文件名下载附件

已上传，多谢！

TomingTang

1. Sub 合并()
   
2.     Dim Arr, drow%, tmp As String, brow%, erow%
   
3.     drow = Range("a65536").End(3).Row
   
4.     Arr = Range("a2:a" & drow + 1)
   
5.     brow = 1
   
6.     erow = 1
   
7.     For i = 1 To UBound(Arr) - 1
   
8.         'Debug.Print i & "   " & brow & "  erow=  " & erow
   
9.         '  erow = i
   
10.         If Arr(i + 1, 1) - Arr(i, 1) = 1 Then
    
11.             erow = i + 1
    
12.         Else
    
13.             If brow = erow Then
    
14.                 tmp = tmp & " " & Arr(brow, 1)
    
15.             Else
    
16.                 tmp = tmp & " " & Arr(brow, 1) & "~" & Arr(erow, 1)
    
17.             End If
    
18.             brow = i + 1
    
19.             erow = i + 1
    
20.         End If
    
21.     Next
    
22.     Range("b2") = Trim(tmp)
    
23. End Sub
    

复制代码

TomingTang

请查看附件。

追梦竹叶青

TomingTang 发表于 2015-1-19 13:55

太牛了，多谢！

追梦竹叶青

TomingTang 发表于 2015-1-19 13:56
请查看附件。

十分感谢，已经测试过，一切OK！

追梦竹叶青

@TomingTang老师，如果将上面的逆过来，可以实现吗？见1楼图，我是已知B1单元格的内容，想得到A列的内容，不知能实现否？