読者です 読者をやめる 読者になる 読者になる

Learning Note

できるようになったことを記録しています

配列から不要文字を削除して返す

関数を書くほどでもないかもしれないが、使用頻度はそこそこあるので作ってみた。


使用例

Sub Main()
    Dim testAry() As Variant: ReDim testAry(2)
    
    testAry(0) = "1,1"
    testAry(1) = "2,2"
    testAry(2) = "3,3"

    testAry = RemoveChar(testAry, ",")
End Sub

配列内のデータからカンマを削除して返す処理。

処理後は testAry(o) = "11", testAry(1) = "22", testAry(2) = "33" となる。