把指定字符当中非空数据连成字符串

chjnchen

我准备使用access将姓名这一字段的所有数据使用逗号连接起来，同时遇到没有数据的地方跳过。
如：
姓名
张1
张2
张3

李1
李2
其中张3下面空了一个，连接成功之后显示：张1，张2，张3，李1，李2
数据量有点多，多达20万条左右，如果有一个能解决，而且速度又快的方法就好了

麻烦各位了！，关键是时间快，速度快完成连接任务

lsdongjh

需要ACCESS？？ 如果只是EXCEL中的一列数据，可以用简单的方法：

1. Sub test()
   
2.     Dim arr As Variant, brr As Variant
   
3.     Dim strTemp As String
   
4.     arr = Sheet1.Range("A1:A52")
   
5.     arr = Application.WorksheetFunction.Transpose(arr)
   
6.     strTemp = Join(arr, ",")
   
7.    
   
8.    
   
9.     Do Until InStr(strTemp, ",,") < 1
   
10.         strTemp = Replace(strTemp, ",,", ",")
    
11.     Loop
    
12.    
    
13.     MsgBox strTemp
    
14. End Sub
    

复制代码

chjnchen

必须用access ,在excel当中，我现在已经能解决我的要求了，但是我并不是在excel当中使用。

解0人

Recordset.GetString

chjnchen

谢谢你，辛苦了