[[20080123225140]]　『無数にあるコメントの文章を別のセルに移し変えれ』（ちゃりんこ）　ページの最後に飛ぶ

『無数にあるコメントの文章を別のセルに移し変えれますか???』（ちゃりんこ）

無数にあるコメントの文章を別のセルに移し変えたいんです…。
でも、コメントの状態でコピーするのではなくて、
セルに直接入力された状態にしたいんです…。
そんなことって可能なんですか???
やっぱり無理ですよね???
地道にコメントをコピーして、別のセルに貼り付けしていくしかないですよねぇ???
トホホ…。

 >コメントの状態でコピーするのではなくて、セルに直接入力された状態にしたいんです…。
 これって、どういう意味か、もう少し詳しくご説明していただいてよろしいでしょうか？
　
 なにぶん、σ(^o^;)は理解力が無いもので・・・
　
 （キリキ）（〃⌒o⌒)b

 コメントで書き込まれている内容をセルに書き出したいと言う事でしょうか？
 ちなみにマクロでもいいのですか？
 (じゅんじゅん)

すみません!!
説明するの下手くそで、本当に申し訳ないです!!

えぇ～っとですねぇ。
メモ代わりに、コメントにちょこまか書き込んでたんですけど、
そのちょこまかが、無数に広がってしまいまして…。
しかも、重要なこともコメントに書き込んであったりしてまして…。
そ、それをですね、セルに書き出したいんです…。
それでですね、願わくばオートフィルターに引っかかるようにしたいんです…。
マ、マクロ…。マクロとやらを使えば出来るのでございますか???
（ちゃりんこ）

 >マ、マクロ…。マクロとやらを使えば出来るのでございますか???
 ん～出来るには出来ますけど。

 シート１にコメントがあるとして、シート２のＡ列に列挙します。
 この場合、シート１の左上を基準に右（行）下（列）方向の順序で列挙されます。

  VBA体験
https://www.excel.studio-kazu.jp/lib/e1nw/e1nw.html
 （２）VBAの作成
 ツールメニュー：[マクロ(M)...]：[Visual Basic Editor(V)]を選択。
 ＶＢＥ画面が表示される。
 その画面の挿入メニュー：[標準モジュール]で表示された所に以下のコードをコピペ。
 ( Sub Test()～End Sub　）

 Sub Test()
   Dim c As Object
   Dim r As Range
   Set r = Worksheets("Sheet2").Range("A2")

   For Each c In Worksheets("Sheet1").Comments
       r.Value = c.Text
       Set r = r.Offset(1)
   Next
   r.EntireColumn.AutoFit
 End Sub

 ＶＢＥ画面を閉じる（右上の×でもいい：Ｅｘｃｅｌの×ではないですよ）

 「ツール」－「マクロ」－「マクロ」でマクロの画面が表示されたら、Testを選択して「実行」。
 シート２のセルＡ２より下に表示されるはず。
 Ａ１に項目名でもつければ、オートフィルタができる（はず）。

 シート名を変更しているのであれば、教えて下さい。
 では、健闘を祈ります。
 (じゅんじゅん)

で、できましたぁ～っ!!!!!
ありがとうございます!!!!!
どこのどなたか存じませんが、じゅんじゅんさんすごいです☆
それでは、本日はここらでご無礼致します。
ﾁﾘﾝﾁﾘﾝ♪（ちゃりんこ）

コメント返信：

[ 一覧(最新更新順) ]

[[20080123225140]] 『無数にあるコメントの文章を別のセルに移し変えれ』（ちゃりんこ） ページの最後に飛ぶ

[[20080123225140]]　『無数にあるコメントの文章を別のセルに移し変えれ』（ちゃりんこ）　ページの最後に飛ぶ