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

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2012-3-13 17:39 | 只看該作者

回復 9# a703130
這些也可試試看

Option Explicit
Sub Ex()
Dim AR(1), i As Integer, ii As Integer, s As String
With Range([B1], [B1].End(xlDown)) '資料範圍
AR(0) = .Value '資料置入陣列
.Replace "*x", "", LookAt = xlPart '不要的資料取代為""字串
AR(1) = .Value '整理後的資料置入陣列
.Value = AR(0) '還原原本資料
For i = 1 To UBound(AR(1)) '整理後的資料的陣列
s = "" '清空字串變數
For ii = Len(AR(1)(i, 1)) To 1 Step -2 '由字串尾端
s = s & "-" & Mid(AR(1)(i, 1), ii - 1, 2) '取二字元置入字串變數
Next
AR(1)(i, 1) = Mid(s, 2) '陣列的元素=字串變數
Next
.Offset(, 1) = AR(1) '資料範圍向右位移一欄範圍資料=AR(1)
End With
End Sub
Sub Ex1()
Dim AR, i As Integer, ii As Integer, xi As Variant, s As String
With Range([B1], [B1].End(xlDown)) '資料範圍
AR = .Value '資料置入陣列
For i = 1 To UBound(AR)
xi = InStr(AR(i, 1), "x") + 1 '陣列的元素中尋找"x"
xi = Mid(AR(i, 1), xi) '取得正確資料
s = "" '清空字串變數
For ii = Len(xi) To 1 Step -2 '由字串尾端
s = s & "-" & Mid(xi, ii - 1, 2) '取二字元置入字串變數
Next
AR(i, 1) = Mid(s, 2) '陣列的元素=字串變數
Next
.Offset(, 1) = AR '資料範圍向右位移一欄範圍資料=AR
End With
End Sub
Sub Ex2()
Dim AR, i As Integer, ii As Integer, s As String
With Range([B1], [B1].End(xlDown)) '資料範圍
AR = .Value '資料置入陣列
For i = 1 To .Cells.Count '資料範圍的第一個儲存格到最後一個儲存格
ii = Len(.Cells(i)) '計算儲存格的字元數
s = "" '清空字串變數
Do
s = s & "-" & Mid(.Cells(i), ii - 1, 2) '取二字元置入字串變數
ii = ii - 2 '由後往前推進2字元
Loop Until InStr(Mid(.Cells(i), ii - 1, 2), "x") '離開迴圈條件:找到不要的字串
AR(i, 1) = Mid(s, 2) '陣列的元素=字串變數
Next
.Offset(, 1) = AR '資料範圍向右位移一欄範圍資料=AR
End With
End Sub

複製代碼

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

9^#

發表於 2012-3-13 16:28 | 只看該作者

回復 6# oobird

跟 Hsieh 大大的方法有異曲同工之妙
讓我多學了一種
非常感激!!

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

8^#

發表於 2012-3-13 16:28 | 只看該作者

回復 7# Hsieh

了解您的意思了~非常謝謝

這功能還真方便

Hsieh

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

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

7^#

發表於 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"

學海無涯_不恥下問

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2012-3-13 12:23 | 只看該作者

經過測試
他會變成
0x1234 43-23

這是否有環節上有問題??
a703130 發表於 2012-3-13 11:55

修正一下

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

5^#

發表於 2012-3-13 11:57 | 只看該作者

回復 3# Hsieh

我想請問
Len(Split(a, "x")(1))

(1) 用意何在??
我將(1)拿掉後，會出現型態不符合~這是用來變更型態嗎??

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

4^#

發表於 2012-3-13 11:55 | 只看該作者

oobird 發表於 2012-3-12 21:30

經過測試
他會變成
0x1234 43-23

這是否有環節上有問題??

Hsieh