excelvba 文字列の変更 削除
| Message#2 2015年2月5日(木)11時44分 From: cybo |
| こんな感じですか？ ■VBAコード Sub sumple() Dim myRng As Range Dim myStr As String Dim i As Long For Each myRng In Range("A2:A7") myStr = myRng.Value i = 1 Do i = InStr(i, myStr, Chr(10)) If i = 0 Then Exit Do Select Case Mid(myStr, i - 1, 1) Case "、", "。", ",", "." myStr = Left(myStr, i - 1) & Right(myStr, Len(myStr) - i) Case Else myStr = Left(myStr, i - 1) & "、" & Right(myStr, Len(myStr) - i) i = i + 1 End Select myRng.Offset(0, 1).Value = myStr Loop Next myRng End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
