Excel VBA質問箱 IV

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

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


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

69761 / 76738

←次へ　｜　前へ→


	【11492】Re:ある列の全てのデータの前後に括弧を付けたい

ichinose - 04/3/10(水) 8:04 -


	引用なし

	パスワード

▼kenji さん：
おはようございます。

>宜しくお願いします。
>書籍データベースの整形をしていますが、ある列にある全てのデータ（この場合は著者名）の前後を【】でくくりたいです。
>また、似たような方法ですが、書名の前だけに記号▽を付けたいです。
>データが多く毎日の仕事なので大変です。
>もし、VBAやマクロで出来るのなら、お知恵を貸してください。
>ちなみにExcel2000です。
>宜しくお願いします。
ある列がアクティブシートのＡ列だとして、前後を【】でくくるには・・・、
'=====================================================
Sub main()
　 Set rng = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
　 rng.Value = Application.Evaluate("=""【"" & " _
　　　　　　　 & rng.Address & " & ""】""")
End Sub

▽の場合も上記を応用すれば可能かと思います。
確認して下さい。

0 hits

▼

【11489】ある列の全てのデータの前後に括弧を付けたい kenji 04/3/9(火) 21:26