反向字符串在Excel VBA
下面我们就来看看在Excel VBA程序，可以扭转字符串。
现状：
将工作表上的一个命令按钮并添加以下代码行：
1.首先，我们声明四个变量。一个可变称为String类型的文本，一个可变称为reversedText也String类型，称为类型整数的长度一个变量，和一个可变称为类型整数i的影响。
Dim text As String, reversedText As String, length As Integer, i As Integer
2.我们初始化两个变量。我们使用InputBox函数来获取来自用户的文本字符串。我们使用Len函数在Excel VBA中得到一个字符串的长度。
text = InputBox("Enter the text you want to reverse")
length = Len(text)
3.我们开始为下一个循环。
For i = 0 To length - 1
4.现在到了简单的一招。我们从文本中采取的最后一个字符，并将其放置在ReversedText的前面。我们可以在Excel中使用VBA Mid函数从字符串中提取的字符。我们使用＆运算符来连接（连接）两个字符串。
reversedText = reversedText & Mid(text, (length - i), 1)
5.不要忘记关闭循环。
Next i
例如：文本=“驾驶”。文本的长度是3。对于i = 0至2，我们提取的文本的子起始于位置长度 – 用长度为1我因此，对于i = 0，MID（文本，3，1）等于R。我们将在[R的reversedText第一位置。对于i = 1，中（文本，2，1）等于一。我们添加到reversedText成为RA。对于i = 2，中（文本，1，1）等于C.追加C至reversedText成为RAC。
6.最后，我们使用一个MsgBox显示reversedText。
msgbox reversedText
7.测试程序。
结果：
