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
發表於 2023-6-2 11:45
| 
