返回列表 上一主題 發帖

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

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)
收藏 分享
學習 學習 一直學習

jcchiang

帖子
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

peter95

帖子
49 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
win7 
軟體版本
office2001 
閱讀權限
20 
性別
男 
註冊時間
2012-4-10 
最後登錄
2024-8-9 
3#
發表於 2020-10-26 13:22 | 只看該作者
回復 2# jcchiang


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

現在變得好輕鬆
感謝
學習 學習 一直學習

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-12-18 
4#
發表於 2020-10-27 16:28 | 只看該作者
回復 1# peter95
  1. Sub tt()
  2. Dim Arr, i&
  3.     Arr = Range("D10:O" & Range("D10").End(4).Row)
  4.     For i = 1 To UBound(Arr)
  5.         For j = 1 To UBound(Arr, 2)
  6.             If InStr(Arr(i, j), "-") > 0 Then
  7.                 Arr(i, j) = Val(Trim(Mid(Arr(i, j), 6, 7)))
  8.             Else
  9.                 Arr(i, j) = Val(Trim(Mid(Arr(i, j), 5, 7)))
  10.             End If
  11.         Next
  12.     Next
  13.     Range("D10").Resize(UBound(Arr), UBound(Arr, 2)) = Arr
  14. End Sub
複製代碼

TOP

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-12-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

hcm19522

帖子
1392 
主題
4 
精華
0 
積分
1402 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-12-25 

熱烈參與勳章
6#
發表於 2020-11-1 10:42 | 只看該作者
https://blog.xuite.net/hcm19522/twblog/589440040
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

peter95

帖子
49 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
win7 
軟體版本
office2001 
閱讀權限
20 
性別
男 
註冊時間
2012-4-10 
最後登錄
2024-8-9 
7#
發表於 2020-11-12 14:09 | 只看該作者
感謝大家幫忙，已解決
感恩
學習 學習 一直學習

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

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

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題