主题：VBA的语句如何改成狐表的？

以下几句代码如何改成狐表的？

Dim excelApp As New MSExcel.Application
Dim excelRange As MSExcel.Range
Dim Wb As MSExcel.WorkBook=excelApp.WorkBooks.open("C:\test\1.xls")

Dim c As Range, a As Integer
For Each c In ActiveSheet.UsedRange
If c.MergeCells Then
a = UBound(Split(c.Value, Chr(10)))
If a >= 0 Then Rows(c.Row).RowHeight = 14.25 * (a + 1)
End If
Next