vb对excel操作，代码如何写？谢谢各位！

Question

请教大家，用vba对excel文件进行操作，完成两个功能：第一，去掉工作薄中所有单元格的首尾部空格；第二，改M2,M3……中数字部分为上标。现如果改成vb对excel进行操作，同样达到这两个功能，应该如何写代码呢？vba代码如下：
Sub test()
Dim s%, c As Range
For s = 1 To Sheets.Count
For Each c In Sheets(s).UsedRange
With c
.Value = Trim(.Value)
If .Value Like "m*" Then .Characters(2, 1).Font.Superscript = True
End With
Next
Next
End Sub

Answer 1

看看这个里面有没有
http://download.csdn.net/detail/veron_04/1627080

Answer 2

excel 操作东西很多的
不是短短一偏就讲的完的
建议 google 一下

Answer 3

下面的代码，你修改一下试试，看行不行。Sub 去除空格及设置上标()
    Dim Sht As Worksheet
    Dim rgUsed As Range
    
    Dim RowN As Long
    Dim ColN As Long
    Dim R As Long
    Dim C As Long
    
    Dim St As Long    '上标的起始位置
    Dim Ln As Long    '上标的长度
    
    Set Sht = Application.ActiveSheet
    Set rgUsed = Sht.UsedRange
    
    R = rgUsed.Rows.Count
    C = rgUsed.Columns.Count
    
    For RowN = 1 To R
        For ColN = 1 To C
            rgUsed.Cells(RowN, ColN).Select
            rgUsed.Cells(RowN, ColN) = Trim(rgUsed.Cells(RowN, ColN))   '去除每个单元格的空格
            '加入判断语句，你需要上标的起始位置
            St = 2
            Ln = 1
            With ActiveCell.Characters(Start:=St, Length:=1).Font
                .Superscript = True
            End With
        Next ColN
    Next RowN
End Sub