|
▼kanabun さん:
Try2_改定の実行しましたら、目的のとおりのものができました。
いろいろとお知恵をいただきありがとうございました。
>
>>一旦CSVファイルに保存してセルに書き出してみました。
>
>Yukiさんの考え方、おもしろい。
>まねをして、 連続するTAB+行末コード("\t+$") を改行コードに
>変換してみました。オン・メモリーで。
>
>Sub Try2_改定()
> Dim ss As String
> Dim v
> Dim regEx As Object
>
> Set regEx = CreateObject("VBScript.RegExp")
> regEx.Pattern = "\t+$"
> regEx.Global = True
> regEx.MultiLine = True
>
> Columns(1).ClearContents
> Range("B1").CurrentRegion.Copy
> With GetObject("new:1C3B4210-F441-11CE-B9EA-00AA006B1A69")
> .GetFromClipboard
> ss = regEx.Replace(.GetText, vbCr)
> ss = Replace(ss, vbTab, ",")
> v = Split(ss, vbCrLf)
> End With
> Application.CutCopyMode = True
> Range("A1").Resize(UBound(v)).Value = Application.Transpose(v)
>
>End Sub
|
|