[已解决]行非空的单元格区域相对的首列进行合并？

gwfzh

各位老师：

    怎样将Range(E2:H10)区域中非空行相对应的首列“单位”进行合并，并放在一个单元格中？

    如果该行有多个非空单元格，其单位合并，只按一个‘非空行’进行合并计算（像上面I2的结果，而K2是不正确的）。
行非空的单元格区域相对的首列进行合并（正）？.rar (7.14 KB, 下载次数: 7)

2014-3-13 16:37 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

sliang28

2014-3-13 16:53

1. Sub sliang28()
   
2.     Dim arr
   
3.     Dim i&, j&
   
4.     Dim temp As String
   
5.         arr = Sheets(1).Range("a2:h10")
   
6.             For i = 1 To UBound(arr)
   
7.                 For j = 5 To UBound(arr, 2)
   
8.                     If arr(i, j) <> "" Then
   
9.                         temp = temp & arr(i, 1) & ","
   
10.                         Exit For
    
11.                     End If
    
12.                 Next
    
13.             Next
    
14.         Sheets(1).Range("I2") = Left(temp, Len(temp) - 1)
    
15. End Sub

复制代码

跳转到最佳答案楼层

sliang28

1. Sub sliang28()
   
2.     Dim arr
   
3.     Dim i&, j&
   
4.     Dim temp As String
   
5.         arr = Sheets(1).Range("a2:h10")
   
6.             For i = 1 To UBound(arr)
   
7.                 For j = 5 To UBound(arr, 2)
   
8.                     If arr(i, j) <> "" Then
   
9.                         temp = temp & arr(i, 1) & ","
   
10.                         Exit For
    
11.                     End If
    
12.                 Next
    
13.             Next
    
14.         Sheets(1).Range("I2") = Left(temp, Len(temp) - 1)
    
15. End Sub

复制代码

810126769

请测试：
行非空的单元格区域相对的首列进行合并？.rar (12.42 KB, 下载次数: 6)

2014-3-13 17:07 上传

点击文件名下载附件