Dim data As String = Clipboard.GetText()
Dim rows() As String = data.Split(ControlChars.Tab) For Each row As String In rows Dim cells() As String = Split(row, vbCrLf) For Each cell As String In cells Dim text As String = cell Next Next
For Each cell As String In cells Dim text As String = cell '「"」で始まる文字列だった場合は If text.StartsWith("""") Then '先頭の「"」と末尾の「"」を取り除き、 text = text.Substring(1, text.Length - 2) 'さらに文字列中の「""」を「"」に置換します。 text = text.Replace("""""", """") End If Next