经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。
请扫描分享到朋友圈温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
网络是一种新的工作环境,网络交流是一种新的方式。
无论是网上还是现实,都能够反映一个人的态度,我的博客的副标题就是我的态度。
LOFTER精选
在地址栏那里选中需要标注下标的数字（这里是2）（注意是地址栏里面选中，不是在单元格里面选中！），点击红色箭头所示的位置：
在弹出的窗口的红色方框的位置点选：
同样地，按照上述方法选择上标后操作，结果如下：
其余的都这样操作，得到完整的上下标式子如下：
这样的操作比插入文本框再插入公式的方法要简便快捷
大家有更为快捷方便的方法可以发表交流
阅读(724)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_',
blogTitle:'在Excel2013中如何快速输入上下标【船长原创】',
blogAbstract:'\r\nExcel2013是目前最新的表格软件，相对于大多数人习惯的excel2003有了较大的界面布局改变（实际上这个改变自office2007就开始了），我们偶尔使用的上下标在excel2013中隐藏的比较深，在这里我把它扒出来给需要使用上下标的人，告诉你怎么样象excel2003一样快速标注上下标： \r\n\r\n\r\n打开excel2013，按照正常方式输入内容： \r\n \r\n\r\n在地址栏那里选中需要标注下标的数字（这里是2）（注意是地址栏里面选中，不是在单元格里面选中！），点击红色箭头所示的位置： ',
blogTag:'',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:1,
publishTime:4,
permalink:'blog/static/',
commentCount:0,
mainCommentCount:0,
recommendCount:1,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'网络是一种新的工作环境,网络交流是一种新的方式。\r\n无论是网上还是现实,都能够反映一个人的态度,我的博客的副标题就是我的态度。',
hmcon:'1',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}查看: 186|回复: 7|
在线时间107 小时经验164 威望0 性别男最后登录注册时间阅读权限20UID2296355积分164帖子精华0分享0
EH初级, 积分 164, 距离下一级还需 186 积分
积分排行3000+帖子精华0微积分0
是用版主代码改的，改的有点乱
卡在第二个循环那了，我想到的都该了，还是不行
提示，运行错误9，下标越界
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)& &
If Target.Column = 10 Then GoTo 1& && && && && && && &
If Target.Column = 11 Then GoTo 2
If Target.Address && &$G$4& And Target.Address && &$H$4& Then Exit Sub& && &&&
Dim rng As Range, a&, Myr&
a = 7: b = &*& & Target.Value & &*&
Myr = Cells(Rows.Count, 1).End(xlUp).Row
Range(&g7:K3000&).ClearContents
If Target.Address = &$G$4& Then& && && && && && && &
For Each rng In Range(&a4:a& & Myr)
& & If rng.Text Like b Then
& && &&&Range(&g& & a) = rng.Text
& && &&&Range(&h& & a) = rng.Offset(0, 1).Text
& && &&&Range(&i& & a) = rng.Offset(0, 2).Text
& && &&&Range(&J& & a) = rng.Offset(0, 3).Text
& && && &a = a + 1
& & End If
Range(&J7&).Select
'--------------------------------------------------
ElseIf Target.Address = &$H$4& Then
For Each rng In Range(&a4:a& & Myr)
& & If rng.Text Like b Then
& && &&&Range(&g& & a) = rng.Text
& && &&&Range(&h& & a) = rng.Offset(0, 1).Text
& && &&&Range(&i& & a) = rng.Offset(0, 2).Text
& && &&&Range(&J& & a) = rng.Offset(0, 3).Text
& && &&&Range(&k& & a) = rng.Offset(0, 4).Text
& && && &a = a + 1
& & End If
Range(&k7&).Select
'---------------------------------------------------
If a = 7 Then MsgBox &没有匹配的数据。&
<font color="#:
AA = Target.Offset(, -3).Resize(, 3)
BB = [A4].Resize(Cells(Rows.Count, 1).End(xlUp).Row, 3)
For i = 1 To UBound(BB)
& & If BB(i, 1) = AA(1, 1) And BB(i, 2) = AA(1, 2) And BB(i, 3) = AA(1, 3) Then
& && &&&Cells(i + 3, &D&) = Target
& && &&&Range(&G4&).Select
& & End If
<font color="#:
& & KK = Target.Offset(, -4).Resize(, 3)
& & MM = [A4].Resize(Cells(Rows.Count, 1).End(xlUp).Row, 3)
For p = 1 To UBound(MM)
& & If MM(i, 1) = KK(1, 1) And MM(i, 2) = KK(1, 2) And MM(i, 3) = KK(1, 3) Then
& && &&&Cells(p + 3, &E&) = Target
& && && & Range(&H4&).Select
& && &&&End If
在线时间107 小时经验164 威望0 性别男最后登录注册时间阅读权限20UID2296355积分164帖子精华0分享0
EH初级, 积分 164, 距离下一级还需 186 积分
积分排行3000+帖子精华0微积分0
上文附件,有附件可能更好理解
10:22 上传
下载次数: 9
29.96 KB, 下载次数: 9
在线时间4442 小时经验10593 威望8 最后登录注册时间阅读权限100UID322926积分11643帖子精华0分享0
管理以下版块
积分排行60帖子精华0微积分0
see if help you
10:56 上传
下载次数: 5
23.13 KB, 下载次数: 5
本帖评分记录鲜花
KCFONG,Thank You
总评分:&鲜花 + 2&
在线时间188 小时经验103 威望0 性别男最后登录注册时间阅读权限20UID1970691积分103帖子精华0分享0
EH初级, 积分 103, 距离下一级还需 247 积分
积分排行3000+帖子精华0微积分0
第一，如果MM是单元格区域，你得用set赋值，
第二，如果你用set给MM赋值后，Ubound就不能用了吧 ？！可以考虑 MM.Count，或者其他
更改这两个地方后 我这边是能执行的 但是你要实现什么功能 我没仔细看 你自己再改改
在线时间107 小时经验164 威望0 性别男最后登录注册时间阅读权限20UID2296355积分164帖子精华0分享0
EH初级, 积分 164, 距离下一级还需 186 积分
积分排行3000+帖子精华0微积分0
KCFONG 发表于
see if help you
本来想是不是11列和10列判断对象和这两个循环不能对应，
看来Excel还是很强大的。
解决了，很高兴啊，呵呵
在线时间1620 小时经验2089 威望0 最后登录注册时间阅读权限70UID393697积分2089帖子精华0分享0
EH铁杆, 积分 2089, 距离下一级还需 1111 积分
积分排行492昵称飞扬帖子精华0微积分0
楼主只是变量写错了，I换成P就可以了
在线时间107 小时经验164 威望0 性别男最后登录注册时间阅读权限20UID2296355积分164帖子精华0分享0
EH初级, 积分 164, 距离下一级还需 186 积分
积分排行3000+帖子精华0微积分0
gdw831001 发表于
楼主只是变量写错了，I换成P就可以了
高手很多啊，谢谢帮助
在线时间107 小时经验164 威望0 性别男最后登录注册时间阅读权限20UID2296355积分164帖子精华0分享0
EH初级, 积分 164, 距离下一级还需 186 积分
积分排行3000+帖子精华0微积分0
cf7315752 发表于
第一，如果MM是单元格区域，你得用set赋值，
第二，如果你用set给MM赋值后，Ubound就不能用了吧 ？！可以考 ...
初学，很多地方不太懂，不过谢谢好心人
积分≥4700即可申请
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.1
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&Word和Excel角标文字批量替换 - 下载频道
- CSDN.NET
&&&&Word和Excel角标文字批量替换
Word和Excel角标文字批量替换
软件通过预设置角标文字（上标、下标）替换关系，利用VC操作Word、Excel，经过文字的两次替换（文字替换、角标替换），实现Word、Excel2003角标文字批量替换。
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
您可能还需要
开发技术下载排行