[算表] EXCEL:反轉字串
有鑑於有板友推荐VBA的好處
小小的練習一番
----------------
Public Function STRE(InString As String)
STRE = StrReverse(InString)
End Function
----------------
這樣是不是偷懶@@
假設在B1要反轉A1字串
B1
=STRE(A1)
對照一下公式解法好了
循環參照，啟用反覆運算
D1=IF(C1,D1+1,0)
B1=IF($C$1,IF($D$1<LEN(A1),B1&MID(A1,LEN(A1)-$D$1,1),B1),"")
C1輸入1後完成
這樣不公平，VBA有這個函數XD
假設沒有的話...
----------------------
Public Function STREV(InString As String)
Dim I As Integer
Dim OutString As String
OutString = ""
For I = 1 To Len(InString)
OutString = OutString + Mid(InString, Len(InString) - I + 1, 1)
Next
STREV = OutString
End Function
-----------------------
同樣假設在B1要反轉A1字串
B1
=STREV(A1)
以上參考Catbert大大的文章
3057 8/06 Catbert R: [算表] 如何用EXCEL公式函數挑字
------------------------
Public Function MidText(InString As String)
Dim i As Integer
Dim outString As String
outString = ""
For i = 1 To Len(InString)
If IsNumeric(Mid(InString, i, 1)) <> True Then
outString = outString & Mid(InString, i, 1)
End If
Next
MidText = outString
End Function
-------------------------
請各位不吝指教^^"
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.164.59.188
Office 近期熱門文章
PTT數位生活區 即時熱門文章
