配列から不要文字を削除して返す
関数を書くほどでもないかもしれないが、使用頻度はそこそこあるので作ってみた。
使用例
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" となる。