学以致用——使用VBA逆序输出字符串的两种方法（函数法和子过程法）（Reverse string using function and sub procedure）

Excel中并没有提供现成的字符串逆序输出函数，需要通过自定义函数或者VBA程序的方式实现这一功能。

首先介绍简单的方式——函数法。

效果：

代码：

Function Reverse(ByVal rng As Range)

    Reverse = VBA.StrReverse(rng.Value)

End Function

再介绍VBA子程序法：

效果：

代码：

Sub reverseString()

Dim oStr As String
Dim oArr() As String
Dim rStr As String
Dim rArr() As String

oStr = "乡 ma 故 I 思头低 erofereht 月 kniht 明 I 望头举"
rStr = ""

ReDim oArr(1 To Len(oStr))
ReDim rArr(1 To Len(oStr))

For i = 1 To Len(oStr)
    oArr(i) = Mid(oStr, i, 1)
    rArr(Len(oStr) - i + 1) = oArr(i)
Next

For i = 1 To Len(oStr)
    rStr = rStr + rArr(i)
Next

Debug.Print "转换前的字符串：" & oStr & vbNewLine
Debug.Print "转换后的字符串：" & rStr & vbNewLine

End Sub

代码亮点：

1. 使用Redim语句为动态数组变量重新分配存储空间

2. 使用Mid函数提取字符串中的单个字符，保存在数组变量中，同时，完成数组的逆序操作（逆序访问数组下标）