怎么把批注转为单元格 如何快速提取EXCEL表格中的批注?
如何快速提取EXCEL表格中的批注?
案例:
下图中的红色小箭头是注释。如何将注释文本批量提取到D列?
解决方案:
让我们将鼠标移动到任何红色小箭头并检查它。确实有注解。
1. 按ALT F11打开VBE,输入以下代码:用于自定义函数CMT,用于提取注释文本
函数CMT(x为范围)应用。挥发性True“用户定义函数自动刷新CMT=X单元格.Comment.Text保存后,退出VBE并返回excel。在单元格D2中输入以下公式:
=CMT(C2)
3。进入后,C2单元格的注释已被提出
4。向下拖动可复制公式,所有单元格的注释可在D列中快速提取
您可以将位置更改为sub pizhu()dimarr,I%,J%,C%,R%,X%,y%,brr(),带工作表(“sheet 3”)带工作表。使用范围C=。列r=。行x=。行。计数y=。列。计数对于i=1到x,j=1到y,在错误恢复下一个If单元格(ri-1,cj-1)时以ReDim brr(1到x)结束。注释.文本“”则如果错误编号=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转到0 Next NextEnd WithCells(r,c y)。Resize(x,1)=Application.WorksheetFunction.Transpose(BRR)结束Sub
很容易添加评论。问题是注释的位置与注释的位置相对应。这必须具体地做。我们先来谈谈“取”和“加”。例如,定义一个字符串变量,将单元格A1的注释指定给该变量。Dim Commentu1 as String Commentu1=范围(“A1”)。注释.文本如果您想获得工作表上的第n条注释,也可以这样做。假设您将第一条注释指定给comment1Commentu1=worksheets(“Sheet1”)。评论(1)。文本内容添加到SHEET2 d1sheets(“SHEET2”)。范围(“D1”)。Addcomment注释至于将范围(“”)放在哪里,需要建立相应的关系。
excel中如何将每行单元格的批注提取到该行新单元格?
兄弟,做个自定义函数。
公共功能Pz(xAsRange)
Pz=x。单元格.Comment.Text
Endfunction
然后在Excel中输入
=PZ(A1)返回A1的批注内容。当然,其他细胞也可以使用,只要它不是自己获取.CELL宏表函数可以,但是使用起来很麻烦
怎么把批注转为单元格 excel提取批注内容 excel批量导出批注到另一列
版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。