求代码：备注字段分段精减后合并。

roych

是不是这样啊？

1. 
   
2. Sub test()
   
3. Dim rst As New ADODB.Recordset
   
4. Dim tt As String
   
5. Dim xx
   
6. rst.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
7. tt = rst(1)
   
8. rst.Close
   
9. xx = Split(tt, vbCrLf)
   
10. For i = 0 To UBound(xx)
    
11. Debug.Print Left(xx(i), 22) & "…"
    
12. Next
    
13. End Sub
    

复制代码