求助各位大神给一个VBA代码可以实现以下简单的功能

夜无魂0715

Excel用VBA把相邻单元格合并到一个单元格中，合并的内容要用空格隔开，而且要忽略其中空白单元格。。。。。求大神帮忙

liulang0808

建议楼主上传附件吧，
结合附件内容进一步说明问题

夜无魂0715

liulang0808 发表于 2018-9-19 21:10
建议楼主上传附件吧，
结合附件内容进一步说明问题

你好 已经上传

夜无魂0715

朱荣兴 发表于 2018-9-19 21:11
附件呢？？没有附件的贴子很难得到帮助

您好 已经上传

liulang0808

1. Sub 按钮1_Click()
   
2.     arr = Application.Intersect(Columns(1), ActiveSheet.UsedRange)
   
3.     On Error Resume Next
   
4.     str1 = Replace(Join(WorksheetFunction.Transpose(arr), " "), "  ", " ")
   
5.     [c2] = str1
   
6. End Sub

复制代码

liulang0808

附件内容供参考。。。。。。

lsdongjh

1. Sub Test()
   
2.     Dim arr As Variant
   
3.     Dim strTemp As String
   
4.    
   
5.     arr = Sheet1.Range("A1:A14")
   
6. 
   
7.     Sheet1.Range("C1") = GetStr(arr)
   
8. End Sub
   
9. 
   
10. 
    
11. Function GetStr(arr As Variant) As String
    
12.     Dim strTemp As String
    
13.     Dim brr As Variant
    
14.    
    
15.     brr = Application.WorksheetFunction.Transpose(arr)
    
16.     strTemp = Join(brr, Space(1))
    
17.     Do Until InStr(strTemp, Space(2)) < 1
    
18.         strTemp = Replace(strTemp, Space(2), Space(1))
    
19.     Loop
    
20.     GetStr = Trim(strTemp)
    
21. End Function
    

复制代码

夜无魂0715

lsdongjh 发表于 2018-9-20 11:26

请问怎么运行？我复制到模块里没有反应