EXCEL 批量插入指标批注

=IF((ROW() <10),"T01060000",IF((ROW() <100),"T0106000","T010600"))
=IF((COLUMN() <10),"0000",IF((COLUMN() <100),"000","00"))

1.把批注放入单元格中

="[指标]
代码:"&IF((ROW() <10),"T01060000",IF((ROW() <100),"T0106000","T010600"))&""&ROW()&""&IF((COLUMN() <10),"0000",IF((COLUMN() <100),"000","00"))&""&COLUMN()&"
币种:1560001
属性:01
日期:
频度:
机构:
扩展1:
扩展2:
期数:1
可编辑:1
颜色:"

T0106 00050 00001

2.把单元格中的批量，改为批注

Sub 指标()
Dim tmpStr As String, m As Range
For Each m In Selection
tmpStr = m.Value
If tmpStr <> "" Then
'添加修改批注内容
If m.Comment Is Nothing Then
m.AddComment tmpStr
Else
m.Comment.Text Text:=tmpStr
End If
'对批注格式进行调整
m.Comment.Visible = True
m.Comment.Shape.Select True
With Selection
.Font.Name = "宋体"
.Font.Size = 9
.Width = 121 '这个数字大小还请LZ自行调整了
.Height = 150
End With
m.Comment.Visible = False
Else
'删除无内容单元格的批注。不需要清除的话，请删除下面一行代码
' If Not m.Comment Is Nothing Then m.Comment.Delete
End If
Next m
'清除选中区域所有单元格内容。不需要清除的话，请删除下面一行代码
Selection.ClearContents
End Sub

提取单元格指标信息
Sub 提取()
For Each ran In Range("D5:D" & Cells(Rows.Count, 3).End(xlUp).Row)
If Not ran.Comment Is Nothing Then
ran.Offset(, 1) = Replace(Mid(ran.Comment.Text, 4, Len(ran.Comment.Text)), Chr(10), " ")
End If
Next
End Sub

EXCEL 批量插入指标批注相关推荐

Excel批量插入多个空行-VBA实现
需求我们要向Excel表格中批量插入多行空白格时,原数据行数和要插入的空行数很多时,就非常麻烦.VBA是Excel(ofice)自带的编程环境.码.经验交流QQ群:613879714,有问题QQ群提 ...
Excel批量插入多个空白行（列）-Python实现（openpyxl库）
需求我们要向Excel表格中批量插入多行空白格时,原数据行数和要插入的空行数很多时,就非常麻烦.让Python帮你自动化办公.源码.经验交流QQ群:613879714,有问题QQ群提问,这里不能及时 ...
向Excel中插入图片批注，可批量插件图片，且图片不会变形
可单张图片插入到批注中,也可以批量插入图片到批注. 图片在批注中不会变形,而且会纠方向.
excel删除无尽空白行_全了！Excel批量插入空行、批量删除空行、隔行插入空行技巧...
Excel有很多批量操作技巧,如果掌握了这些技巧,工作效率会得到一定程度的提升. 下面介绍3个常用的批量操作技巧. 技巧1.批量插入空行当选中单元格区域后,按住Shift键,将鼠标移动到所选区域的右 ...
Excel批量插入多行空白行
如图1,A列是业务名称,有27个,需要在A列右侧增加一个字段省份,要把31省份都添加,生成结果部分内容截图如图2,就是从第2行开始每行插入30行,如何批量插入呢? 图 1 图 2 Step1:在B列插 ...
excel批量插入图片
使用EXCEL的VBA功能,在代码窗口输入如下代码,作相应的修改,然后执行就可以了: Sub 批量插入图片() On Error Resume Next Dim i As Integer Dim 末行 ...
Excel批量插入工作表
Excel:批量插入工作表,无论多少一次搞定这篇教程展示了如何通过简单的几个步骤自动批量插入多个页签并且自动命名,结果看似挺好. 但是存在一个缺陷,如果页签名称是中文,生成的页签是按照首字母拼音从A ...
php excel给excel批量插入图片
本人最近在药房网采集了3w多数据,结果药品的批准文号是图片格式,结果ocr解析完之后,准确率达不到100%,于是想到把图片插入到excel中,给产品人员人工校对.于是就写了个php程序,切入正题: 1 ...
excel批量插入图片（宏方式）
Sub 插入图片()Dim pic As String, n As LongDim picTemp As Picturepic = Dir("D:\pictures\*.*") ' ...
php批量添加图片,php excel给excel批量插入图片
本人最近在药房网采集了3w多数据,结果药品的批准文号是图片格式,结果ocr解析完之后,准确率达不到100%,于是想到把图片插入到excel中,给产品人员人工校对.于是就写了个php程序,切入正题: 1 ...

EXCEL 批量插入指标批注

EXCEL 批量插入指标批注相关推荐

最新文章

热门文章