提取字串內數字比大小 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 提取字串內數字比大小

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

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

大學生 Rank: 4

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

1^# 跳轉到 »

發表於 2021-6-18 16:23 | 顯示全部帖子

回復 1# wayne0303

請測試看看，謝謝

取數字.zip (50.98 KB)

大學生 Rank: 4

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

2^#

發表於 2021-6-18 19:37 | 顯示全部帖子

回復 3# wayne0303

公式不太會寫只能寫到這樣了，程式也有小修改，請再測試看看，謝謝。

取數字.1.zip (51.86 KB)

大學生 Rank: 4

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

3^#

發表於 2021-6-20 07:59 | 顯示全部帖子

h大的公式真的好厲害，學起來了，感謝分享。

大學生 Rank: 4

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

4^#

發表於 2021-6-21 14:26 | 顯示全部帖子

回復 11# 准提部林

准大，請教一下 Like "#" 是取數字，我是用ASCII判斷，那如果是只取英文，要如何寫 Like ...
另外這種寫法要如何查到所有相關資訊(如特殊符號、英文大寫...)，
因為ASCII有相關資訊，只要找到就可以擷取相關字，謝謝

大學生 Rank: 4

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

5^#

發表於 2021-6-21 15:57 | 顯示全部帖子

回復 13# 准提部林

感謝准大指導，另外剛剛google 一下，分享多一個中文寫法，謝謝。

MsgBox "中" Like "[一-籲]" '中文字

大學生 Rank: 4

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

6^#

發表於 2021-6-22 09:33 | 顯示全部帖子

回復 17# 准提部林

中文...沒多去測試--特殊字/簡體/日本中文--會不會有判錯
>> 經過測試，真的有問題，謝謝

大學生 Rank: 4

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

7^#

發表於 2021-9-2 10:43 | 顯示全部帖子

回復 21# wayne0303

我拿了你之前的檔案來試，我移動了來源資料的位置執行會出現
>>可否附上檔案，謝謝

大學生 Rank: 4

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

8^#

發表於 2021-9-2 11:18 | 顯示全部帖子

回復 23# wayne0303

更改如下，謝謝
Arr = Range([u3], [u65536].End(3))

大學生 Rank: 4

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

9^#

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

靜思自在 : 自己害自己，莫過於亂發脾氣。

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