[發問] 如何刪除指定欄位數字後再回填未刪除數字

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2021-6-8 12:26 | 只看該作者

回復 1# BV7BW

好久沒上來這裡了，上來晃一晃

試看看是不是你要的

Sub A車藍號清除()
藍號清除 "A車"
End Sub

Sub 所有車藍號清除()
藍號清除
End Sub

Sub 自選藍號清除()
車編$ = InputBox("請輸入車編，Ex:A車", Excel詢問, "A車")
藍號清除車編
End Sub

Sub 藍號清除(Optional 車號 As String)
'此函數用'選擇性引數'，不輸入車號即表示全部清除
Arr = Range([B1], [F1].End(4))
If 車號 = "" Then 清除 = True
For R = 2 To UBound(Arr)
  If Arr(R, 5) = 車號 Or 清除 Then
   Arr(R, 1) = Replace(Arr(R, 1), "S", "")          '去掉'S'
   Arr(R, 1) = Left(Arr(R, 1), Len(Arr(R, 1)) - 2) '去掉後兩位
  End If
Next R
[B1].Resize(UBound(Arr), UBound(Arr, 2)) = Arr
End Sub

籃號清除-A.rar (29.72 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

帖子: 199
主題: 22
精華: 0
積分: 233
點名: 229
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

3^#

發表於 2021-6-8 12:48 | 只看該作者

回復 2# n7822123

謝謝龍大大指點
我先測試.再回報謝謝你

敏而好學,不恥下問

帖子: 199
主題: 22
精華: 0
積分: 233
點名: 229
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

4^#

發表於 2021-6-12 06:10 | 只看該作者

回復 2# n7822123
龍  大大你好
抱歉延宕測試回報抱歉
經測試有1問題請問.因無法配合"籃號重整"運用
請問能否刪除數字後加上00
例  A車  00-籃A01刪除01後加上00....="00-籃A00"
   B車  00-籃B01刪除01後加上00....="00-籃B00"
   C車  00-籃C01刪除01後加上00....="00-籃C00" 等等類推
  又A車  00-籃AS11S刪除11S後加上00...="00-籃AS00"
   B車  00-籃BS11S刪除11S後加上00...="00-籃BS00"
   C車  00-籃CS11S刪除11S後加上00...="00-籃CS00"等等類推
  感謝你

敏而好學,不恥下問

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

5^#

發表於 2021-6-12 10:50 | 只看該作者

多幾個處理方案:

Xl0000553.rar (22.07 KB)

帖子: 199
主題: 22
精華: 0
積分: 233
點名: 229
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

6^#

發表於 2021-6-12 12:32 | 只看該作者

回復 5# 准提部林
感謝准提部林老師指導

准提部林老師你好好久不見很高興再見老師手筆
剛測試完全正吻合所需.如增列車主.編號.順位刪除多方面完全操作

老師一出手筆.什麼都有
再次感謝老師謝謝

敏而好學,不恥下問

n7822123

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

7^#

發表於 2021-6-12 14:33 | 只看該作者

回復 4# BV7BW

我的程式加一行就行了~

最近發現準大在Excel Home 也很活躍

Sub 藍號清除(Optional 車號 As String)
'此函數用'選擇性引數'，不輸入車號即表示全部清除
Arr = Range([B1], [F1].End(4))
If 車號 = "" Then 清除 = True
For R = 2 To UBound(Arr)
  If Arr(R, 5) = 車號 Or 清除 Then
   Arr(R, 1) = Replace(Arr(R, 1), "S", "")          '去掉'S'
   Arr(R, 1) = Left(Arr(R, 1), Len(Arr(R, 1)) - 2) '去掉後兩位
   Arr(R, 1) = Arr(R, 1) & "00"
  End If
Next R
[B1].Resize(UBound(Arr), UBound(Arr, 2)) = Arr
End Sub

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助