[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『英文社名を上手く記載したい』(TAKEYOU211)
駄目な例:AAAAAABBBBC CORPORATION OF AMERICA----->
AAAAAABBBBC COR
PORATION OF AME
RICA
理想例:AAAAAABBBBC CORPORATION OF AMERICA----->
AAAAAABBBBC
CORPORATION OF
AMERICA
宜しくお願いします。
セル内の改行は されましたか Alt+Enter (歩歩歩)
マクロであれば手が出せませんので 退散します・・・ m(_ _)m (歩歩歩)
Sub test() Range("a1").Value = multiLines(Range("a1").Value) End Sub
Function multiLines(txt As String) As String multiLines = Join(Split(txt), vbLf) End Function
とか... (seiya)
なるほど、マクロとはそのように書くものなんですね。 私のようなマクロ苦手が書くとこうなりました。 (自動記述したものに加工しただけです)
Sub test2() Range("A1:A10").Replace What:=" ", Replacement:=Chr(10) Range("A1:A10").Replace What:=Chr(10) & "OF" & Chr(10), Replacement:=" OF" & Chr(10) End Sub
一応、例題にあるような OF の前だけは改行しません。 他にも改行しない条件があればその条件を下に付け足していく必要があります。 うまく動くといいのですが。 (sato)
「勉強 参考 紹介 SUB」等のワードで全文検索で捜してみました。 [[20071230094515]]『行を選択・削除するマクロ』(年末年始) [[20070717060615]]『検索を一つに』(ちょいボケ親父) [[20050930211122]]『セルの書き込み後の変更不可』(りおん) [[20050115131721]]『条件式書式を6つやりたいんですが・・・』(sirouto) その他、ワードを変えて検索してみるとまだ見つかると思います。
個人的には↓のみやほりんさんのお言葉が好きです。 [[20070227164826]]『行を挿入すると前の行の数式をコピーするには』(ゆん)
(HANA)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.