[發問] 提取字串內數字比大小

當藍色框小於等於390，紅色框小於等於90的時候為1
當藍色框小於等於390，紅色框大於90小於等於180的時候為2

否則則為空白

謝謝

※藍色框內數字為3-4位數不等

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

29^#

發表於 2023-12-1 11:34 | 只看該作者

本帖最後由 Andy2483 於 2023-12-1 15:14 編輯

謝謝論壇,謝謝各位前輩
後學藉此帖練習字串反向與陣列,學習方案如下,請各位前輩指教
執行前:

執行結果:

Option Explicit
Sub TEST()
Dim Brr, S, i&, V1, Ve
'↑宣告變數
Brr = Range([B1], [B65536].End(xlUp))
'↑令Brr變數是以指定的儲存格範圍值的二維陣列
For i = 2 To UBound(Brr)
'↑設順迴圈!i從2到Brr陣列縱向最大索引列號
S = Split(Trim(Brr(i, 1)) & "-", "-")
'↑令S變數是分割字串的一維陣列
V1 = Val(StrReverse(Mid(Val("1" & StrReverse(S(0))), 2)))
'↑令V1變數是將0索引號陣列值字串反轉後,在前方連接字串"1"成為新字串,
'再此新字串轉為數值,取第2字之後的字,接著將此字串反轉回來,最後轉為數值
Ve = Val(S(UBound(S) - 1))
'↑令Ve變數是倒數第2個陣列值轉為數值
If V1 > 390 Or UBound(S) - 1 = 0 Then Brr(i - 1, 1) = "": GoTo i01
'↑如果藍色區域數值大於390 或 Brr(i, 1)字串裡沒有"-",
'就令陣列放結果的陣列值清除,跳到標示的位置繼續執行
Brr(i - 1, 1) = Switch((Ve <= 180) * (Ve > 90), 2, Ve <= 90, 1)
'↑令陣列放結果的陣列值寫入正確值
i01: Next
[D2].Resize(UBound(Brr) - 1) = Brr
'↑令[D2]儲存格擴展所需範圍儲存格值以 Brr陣列值帶入
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

wayne0303

中學生 Rank: 2

帖子: 96
主題: 17
精華: 0
積分: 160
點名: 178
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2024-12-20

28^#

發表於 2021-9-2 19:54 | 只看該作者

回復 27# samwang

謝謝samwang大~

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-12-18

27^#

發表於 2021-9-2 14:10 | 只看該作者

本帖最後由 samwang 於 2021-9-2 14:11 編輯

回復 26# wayne0303

Arr = Range([a11], [a65536].End(3)), 修改如下紅字
Arr = Range([a11], [a11].End(4))

End(3) = End(xlUp)
End(4) = End(xlDown)

TOP

wayne0303