Excel VBA質問箱 IV

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

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


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

23364 / 76782

←次へ　｜　前へ→


	【58787】Re:セル内改行

Jaka - 08/11/10(月) 11:49 -


	引用なし

	パスワード

半角、全角スペースを１つ単位というかにするにはエクセル関数を使うと便利です。

MsgBox Application.Trim("aa　 bbb　　　　cc　dd　　")

それをこんな感じにvariant型の変数にSplitで、半角スペースごとに１次元配列に入れる。
その配列をセルに代入するわけだけど、１次元配列だから縦方法に入らないので、
エクセル関数のTransposeで入れ替えて入れる。
尚エクセル関数で扱える配列の大きさは５千なんぼぐらいなので注意。
（2002以降は、まだ確認を取ってない。）

Dim tb As Variant
st = "aa bbb cc dd"
tb = Split(st, " ")
Range("A1").Resize(UBound(tb)).Value = Application.Transpose(tb)

7 hits

▼

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