|
▼kanabun さん:
色々とお力をありがとうございます。
Try2_訂正の方でうまくいきそうな感じなのですが、
半角スペースの入っている文字がセルに入っている場合に
半角スペースの間にもカンマが入ってしまいました。
これを防ぐ方法がありますでしょうか?
後日でかまいませんので、もし何か案がありましたら
ご回答をお願いいたします。
>なんどもスミマセン m(_ _)m
>
>Try2() のほう、範囲設定がマズかったです。
>
>Sub Try2_訂正()
> Dim r As Range
> Dim ss As String
> Dim v, vv, i As Long
>
> Columns(1).ClearContents
> Range("B1").CurrentRegion.Copy
> With GetObject("new:1C3B4210-F441-11CE-B9EA-00AA006B1A69")
> .GetFromClipboard
> v = Split(Replace(.GetText, vbTab, " "), vbCrLf)
> End With
> Application.CutCopyMode = True
> ReDim vv(1 To UBound(v), 0)
> For i = 0 To UBound(v) - 1
> vv(i + 1, 0) = Replace(Application.Trim(v(i)), " ", ",")
> Next
> Range("A1").Resize(i).Value = vv
>
>End Sub
|
|