主题：[求助]单元格文字排版

去编写drawcell事件

If e.Col.name = "第二列"
    Dim str As String = ""
    For Each s As String In e.text
        If Asc(s) >= asc("A") AndAlso ASC(s) <= asc("Z") Then
            str &=  chr(10) & s
        Else
            str &= s
        End If
    Next
    e.text = str.trim(chr(10))
End If