vba字符串求助

qwerty0012300

请问如何把一个字符串的第一个字母移动最后一位？
假设输入hello会出现elloh
十分感谢各路大神！！！

duquancai

写一个自定函数mid+left

shenjianrong163

1. Sub test()
   
2.     Dim s$
   
3.     s = "hello"
   
4.     s = move(s)
   
5.     MsgBox s
   
6. End Sub
   
7. 
   
8. Private Function move(ByVal str As String)
   
9.     str = Right(str, Len(str) - 1) & Left(str, 1)
   
10.     move = str
    
11. End Function

复制代码

astupig

Sub Test2()

    myStr = "hello"
   
    inputS = InputBox("Please input a string", , myStr)
   
    MsgBox Mid(inputS, 2, Len(inputS)) & Left(inputS, 1)
   
End Sub