Excel VBA質問箱 IV

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

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


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

23305 / 76732

←次へ　｜　前へ→


	【58796】Re:セル内改行

Yuki - 08/11/10(月) 15:38 -


	引用なし

	パスワード

▼Upa さん：
こんにちは。
A列の値をB列に表示しています。

>にぃさんありがとうございます
>実データではセル内のスペースが半角全角混じっており
>数がランダムなので
>これでスペースの数だけ改行されるのを改善できればと思います
Sub TEST()
　　Dim v1　As Variant
　　Dim v2　As Variant
　　Dim i　 As Long
　　
　　v1 = Range("A1").CurrentRegion.Resize(, 1).Value　　'A列の場合
　　ReDim v2(1 To UBound(v1), 1 To 1)
　　For i = 1 To UBound(v1)
　　　　v2(i, 1) = Join(Split(Application.Trim(StrConv(v1(i, 1), vbNarrow)), " "), Chr(10))
　　Next
　　Range("B1").Resize(UBound(v2)).Value = v2　　　　　 'B列に張付け
End Sub

1 hits

▼

【58783】セル内改行 Upa 08/11/10(月) 11:27