☰

MS Excel でコメントを新しい列に移動する

tag-icon • tag-icon microsoft-excel
MS Excel でコメントを新しい列に移動する

テーブルに 1 つの列があり、その列の (ほぼ) 各セルにコメント (赤い三角形) があります。すべてのコメントを新しい列に移動したいと思います。

私が持っているものの例:

コラム1
MIT (コメント: MA)
ハーバード (コメント: MA)
イェール (コメント: CT)
NYU (コメントなし)

私が欲しいもの:

列1、列2
MIT、MA
ハーバード、MA
イェール、CT
NYU、?

答え1

これは VBA でのみ可能だと思います。ff. ユーザー定義関数を試してください:

Public Function GetComment(c As Range) As String
    If c.Comment Is Nothing Then
        GetComment = "?"
    Else
        GetComment = Replace(c.Comment.Text, c.Comment.Author & ":", "")
    End If
End Function

UDFを作成するには:

  1. CTRL+ を押しますF11。
  2. 上記のコードを貼り付けます。
  3. VBA エディターを閉じます。

注:
コメントの投稿者の名前も表示したい場合は、5 行目を次のように置き換えます。
GetComment = c.Comment.Text

機能を使用するにはコメントを配置する列のセル内に ff. を入力して、下にコピーします。

=GetComment(B1)

ここで：
B1取得したいコメントを含むセル

使用方法の例を次に示します。

ここに画像の説明を入力してください

関連情報