帖子: 6
主題: 3
精華: 0
積分: 9
點名: 0
作業系統: WINDOW 2007
軟體版本: OFFICE 2003
閱讀權限: 10
性別: 男
註冊時間: 2012-3-26
最後登錄: 2014-8-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-6-4 22:57 | 只看該作者

字串問題

請問各位有甚麼方法張字串 123456789 倒轉變成 987654321 。
我只係識以下方法，還有沒有其他方法將以下公式省略一點呢??
CONCATENATE(MID(儲存格,9,1),MID(儲存格,8,1),MID(儲存格,7,1),MID(儲存格,6,1),MID(儲存格,5,1),MID(儲存格,4,1),MID(儲存格,3,1),MID(儲存格,2,1),MID(儲存格,1,1))

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 248
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-16

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2014-6-5 09:40 | 只看該作者

本帖最後由 Hsieh 於 2014-6-5 09:48 編輯

回復 1# ONT

純數字可用
=SUMPRODUCT(--MID(A1,LEN(A1)-ROW(INDIRECT("A1:A"&LEN(A1)))+1,1),10^(LEN(A1)-ROW(INDIRECT("A1:A"&LEN(A1)))))
若包含非數字字串則必須使用VBA自定義函數

Function TranStr(mystr As Variant) As String
Dim i%
For i = Len(mystr) To 1 Step -1
TranStr = IIf(TranStr = "", Mid(mystr, i, 1), TranStr & Mid(mystr, i, 1))
Next
End Function

複製代碼

學海無涯_不恥下問

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

3^#

發表於 2014-6-5 10:11 | 只看該作者

本帖最後由 owen06 於 2014-6-5 10:13 編輯

回復 1# ONT

在VBA裡面新增一個模組，然後貼上下列內容

Public Function STRE(InString As String)
STRE = StrReverse(InString)
End Function

複製代碼

回到工作表，在你要反轉的那格輸入=STRE(目標儲存格代號)
就可以了，但僅限於有此模組的excel檔，
Function就等於是你用vba自己寫一個excel函數的意思

TOP

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

4^#

發表於 2014-6-5 10:41 | 只看該作者

本帖最後由 sunnyso 於 2014-6-5 10:43 編輯

Sub ReverseText()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "SonnyToolforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xValue = Rng.Value
xLen = VBA.Len(xValue)
xOut = ""
For i = 1 To xLen
getChar = VBA.Right(xValue, 1)
xValue = VBA.Left(xValue, xLen - i)
xOut = xOut & getChar
Next
Rng.Value = xOut
Next
End Sub

ss

TOP

ML089