如何快速提取EXCEL表格中的批注？案例：下圖中的紅色小箭頭是注釋。如何將注釋文本批量提取到D列？解決方案：讓我們將鼠標(biāo)移動(dòng)到任何紅色小箭頭并檢查它。確實(shí)有注解。1. 按ALT F11打開VBE，輸入

如何快速提取EXCEL表格中的批注？

案例：

下圖中的紅色小箭頭是注釋。如何將注釋文本批量提取到D列？

解決方案：

讓我們將鼠標(biāo)移動(dòng)到任何紅色小箭頭并檢查它。確實(shí)有注解。

1. 按ALT F11打開VBE，輸入以下代碼：用于自定義函數(shù)CMT，用于提取注釋文本

函數(shù)CMT（x為范圍）應(yīng)用。揮發(fā)性True“用戶定義函數(shù)自動(dòng)刷新CMT=X單元格.Comment.Text保存后，退出VBE并返回excel。在單元格D2中輸入以下公式：

=CMT（C2）

3。進(jìn)入后，C2單元格的注釋已被提出

4。向下拖動(dòng)可復(fù)制公式，所有單元格的注釋可在D列中快速提取

您可以將位置更改為sub pizhu（）dimarr，I%，J%，C%，R%，X%，y%，brr（），帶工作表（“sheet 3”）帶工作表。使用范圍C=。列r=。行x=。行。計(jì)數(shù)y=。列。計(jì)數(shù)對(duì)于i=1到x，j=1到y(tǒng)，在錯(cuò)誤恢復(fù)下一個(gè)If單元格（ri-1，cj-1）時(shí)以ReDim brr（1到x）結(jié)束。注釋.文本“”則如果錯(cuò)誤編號(hào)=0，則如果brr（i）=“”則brr（i）=單元格（ri-1，cj-1）。注釋.文本否則brr（i）=brr（i）&Chr（10）&單元格（ri-1，cj-1）。注釋.文本End If End If On Error轉(zhuǎn)到0 Next NextEnd WithCells（r，c y）。Resize（x，1）=Application.WorksheetFunction.Transpose（BRR）結(jié)束Sub

很容易添加評(píng)論。問題是注釋的位置與注釋的位置相對(duì)應(yīng)。這必須具體地做。我們先來談?wù)劇叭　焙汀凹印?。例如，定義一個(gè)字符串變量，將單元格A1的注釋指定給該變量。Dim Commentu1 as String Commentu1=范圍（“A1”）。注釋.文本如果您想獲得工作表上的第n條注釋，也可以這樣做。假設(shè)您將第一條注釋指定給comment1Commentu1=worksheets（“Sheet1”）。評(píng)論（1）。文本內(nèi)容添加到SHEET2 d1sheets（“SHEET2”）。范圍（“D1”）。Addcomment注釋至于將范圍（“”）放在哪里，需要建立相應(yīng)的關(guān)系。

excel中如何將每行單元格的批注提取到該行新單元格？

兄弟，做個(gè)自定義函數(shù)。

公共功能Pz（xAsRange）

Pz=x。單元格.Comment.Text

Endfunction

然后在Excel中輸入

=PZ（A1）返回A1的批注內(nèi)容。當(dāng)然，其他細(xì)胞也可以使用，只要它不是自己獲取.CELL宏表函數(shù)可以，但是使用起來很麻煩