判斷儲存格內有幾個字元，並以兩個為單位排列 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 判斷儲存格內有幾個字元，並以兩個為單位排列

返回列表下一主題上一主題發帖

[發問] 判斷儲存格內有幾個字元，並以兩個為單位排列

超級版主 Rank: 8 Rank: 8

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

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

1^# 跳轉到 »

發表於 2012-3-12 21:48 | 顯示全部帖子

回復 1# a703130

以x字元為分界

Sub nn()
Dim ar()
For Each a In Range([B1], [B1].End(xlDown))
For i = Len(Split(a, "x")(1)) - 1 To 1 Step -2
ReDim Preserve ar(s)
ar(s) = Mid(Split(a, "x")(1), i, 2)
s = s + 1
Next
a.Offset(, 1) = Join(ar, "-")
Erase ar
s = 0
Next
End Sub

複製代碼

學海無涯_不恥下問

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2012-3-13 15:48 | 顯示全部帖子

回復 5# a703130

Split(a, "x")會傳回一個字串陣列
例如:
a="01ax12345"
Split(a, "x")則傳回
array("01a","12345")這樣的陣列
所以，Split(a, "x")(0)="01a"
Split(a, "x")(1)="12345"

學海無涯_不恥下問

靜思自在 : 君子如水，隨方就圓，無處不自在。

返回列表下一主題上一主題