返回列表 上一主題 發帖

[發問] 符合所需代碼 前兩碼為 56、57、59，才能列入參考金額...

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
1# 跳轉到 »
發表於 2023-12-27 07:53 | 顯示全部帖子
謝謝論壇,謝謝各位前輩
後學藉此帖練習VBA,學習方案如下,請各位前輩指教
執行前:


執行結果:


Option Explicit
Sub TEST()
Dim 資料陣列, i&, 字元位置_備註%, 字元位置_科目%
資料陣列 = Range([F2], [D65536].End(xlUp))
For i = 1 To UBound(資料陣列)
   字元位置_備註 = InStr("|65|75|95|", "|" & Right(Val(StrReverse(資料陣列(i, 2))), 2) & "|")
   字元位置_科目 = InStr("|65|75|95|", "|" & Right(Val(StrReverse(資料陣列(i, 3))), 2) & "|")
   If 字元位置_備註 + 字元位置_科目 = 0 Then 資料陣列(i, 1) = ""
Next
[B2].Resize(UBound(資料陣列)) = 資料陣列
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題