■呼び出し元 Sub test() Dim originalString As String Dim modifiedString As String originalString = """A12345"",""山田太郎"",""5,000"",""s,a""" modifiedString = ReplaceCommaWithColon(originalString) MsgBox modifiedString End Sub ■部品：区切…