VB 字符串如何换行

s = Replace(s, "；", "。") //将所有被认为需要换行的符号转换为。 dim A() as string A=split(s,";") //A数组每个单元对应于一行

那是显示的问题，你报表的格式就是单行的。

function f(byval s as string) as string
    s = Replace(s, "；", "；" & vbCrLf)
    s = Replace(s, "。", "。" & vbCrLf)
    If Right$(s, 2) = vbCrLf Then '去掉末尾换行'
        s = Left$(s, Len(s) - 2)
    End If

    f = s
end function

    Dim s As String
    
    s = "1：abcd；2：adfg；3：asdvc。"
    Debug.Print s & "|" 
    
    s = Replace(s, "；", "；" & vbCrLf)
    s = Replace(s, "。", "。" & vbCrLf)
    If Right$(s, 2) = vbCrLf Then '去掉末尾换行'
        s = Left$(s, Len(s) - 2)
    End If
    
    Debug.Print s & "|"

1：abcd；2：adfg；3：asdvc。|
1：abcd；
2：adfg；
3：asdvc。|