vb怎么控制excel单元格自动换行，用宏录制的代码没用..急~

Question

vb怎么控制excel单元格自动换行？
用宏录制的代码没用，显示没有可用项~麻烦各位大虾教我下同问，怎样使excel按列降序排序。。录制宏的代码同样没用

Answer 1

单元格自动换行
xlsheet.Range("A1").WrapText = True

Answer 2

按列降序排序
    Columns("A:C").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal

Answer 3

谁说录制宏没有用？
Sub Macro1()
'
' Macro1 Macro
' 宏由 xxxx 录制，时间: 2010-7-30
''
    With Selection
        .WrapText = True
    End With
End SubSub Macro2()
'
' Macro2 Macro
' 宏由 xxx 录制，时间: 2010-7-30
'
    Range("A1:A10").Sort Key1:=Range("A1"), Order1:=2, Header:=2
End Sub