peter95

帖子: 49
主題: 15
精華: 0
積分: 92
點名: 0
作業系統: win7
軟體版本: office2001
閱讀權限: 20
性別: 男
註冊時間: 2012-4-10
最後登錄: 2024-8-9

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2020-10-26 02:07 | 只看該作者

[發問] ➽➽請問如何刪除(前面三碼的數字)

如何刪除(數字的前面三碼)

我有一堆數字
刪除前面三碼的數字
請問我該怎麼處理

可以做成VBA做成嗎??
或是如何處理

非常感謝大家幫忙,謝謝

附上說明圖片

附上檔案

Q1.rar (22.27 KB)

樓主熱帖

學習學習一直學習

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

8^#

發表於 2023-6-2 11:45 | 只看該作者

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列,學習方案如下,請各位前輩指教

執行結果:

Option Explicit
Sub TEST_1()
Dim Brr, i&, j%, xA As Range
'↑宣告變數
Set xA = Range([D10], [O65536].End(3)): Brr = xA
'↑令xA變數是D~O欄儲存格,令Brr變數是二維陣列,以xA變數值帶入
For i = 1 To UBound(Brr)
'↑設陣列縱向迴圈
For j = 1 To UBound(Brr, 2)
'↑設陣列橫向迴圈
Brr(i, j) = Mid(Replace(Brr(i, j), "-", ""), 5)
'↑令陣列值去除"-"後,取第5字(含)後的字串
Next
Next
xA = Brr
'↑令xA變數值是 Brr陣列值
Set xA = Nothing: Erase Brr
'↑令釋放變數
End Sub

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

TOP

peter95

中學生 Rank: 2

帖子: 49
主題: 15
精華: 0
積分: 92
點名: 0
作業系統: win7
軟體版本: office2001
閱讀權限: 20
性別: 男
註冊時間: 2012-4-10
最後登錄: 2024-8-9

7^#

發表於 2020-11-12 14:09 | 只看該作者

感謝大家幫忙，已解決
感恩

學習學習一直學習

TOP

hcm19522

碩士班 Rank: 5 Rank: 5

帖子: 1800
主題: 186
精華: 0
積分: 1991
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 100
性別: 男
註冊時間: 2015-9-11
最後登錄: 2026-10-2

熱烈參與勳章

6^#

發表於 2020-11-1 10:42 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/589440040

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

5^#

發表於 2020-10-27 17:20 | 只看該作者

Sub TEST()
Dim Arr, R&, T$, C&, K%
With Range([D10], [O65536].End(3))
   Arr = .Value
   For C = 1 To .Columns.Count
   For R = 1 To .Rows.Count
      T = Arr(R, C)
      If T Like "*.*.*" Then Arr(R, C) = Mid(T, IIf(Left(T, 1) = "-", 6, 5)): K = 1
   Next R
   Next C
   If K = 1 Then .Value = Arr
End With
End Sub

TOP

samwang

大學生 Rank: 4

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

4^#

發表於 2020-10-27 16:28 | 只看該作者

回復 1# peter95

Sub tt()
Dim Arr, i&
Arr = Range("D10:O" & Range("D10").End(4).Row)
For i = 1 To UBound(Arr)
For j = 1 To UBound(Arr, 2)
If InStr(Arr(i, j), "-") > 0 Then
Arr(i, j) = Val(Trim(Mid(Arr(i, j), 6, 7)))
Else
Arr(i, j) = Val(Trim(Mid(Arr(i, j), 5, 7)))
End If
Next
Next
Range("D10").Resize(UBound(Arr), UBound(Arr, 2)) = Arr
End Sub

複製代碼

TOP

peter95

中學生 Rank: 2

帖子: 49
主題: 15
精華: 0
積分: 92
點名: 0
作業系統: win7
軟體版本: office2001
閱讀權限: 20
性別: 男
註冊時間: 2012-4-10
最後登錄: 2024-8-9

3^#

發表於 2020-10-26 13:22 | 只看該作者

回復 2# jcchiang

感謝大大幫忙
解決困擾我很久的問題

現在變得好輕鬆
感謝

學習學習一直學習

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

2^#

發表於 2020-10-26 12:30 | 只看該作者

回復 1# peter95

Sub ex()
Dim a As Object
Dim x%, QQ%
For Each a In Range([D10], [O10].End(4))
For x = 1 To Len(a)
If IsNumeric(Mid(a, x, 1)) = True Then QQ = QQ + 1
If QQ = 3 Then a.Value = WorksheetFunction.Replace(a, 1, x, ""): QQ = 0: Exit For
Next
Next

TOP