Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

15887 / 76734

←次へ　｜　前へ→


	【66321】Re:複数セルの文字を連結する

kanabun - 10/8/21(土) 20:00 -


	引用なし

	パスワード

▼Yuki さん：

>一旦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

2 hits

▼

【66312】複数セルの文字を連結する けい 10/8/20(金) 15:03