| 查看: 1837 | 回复: 9 | ||
lolo123木虫 (小有名气)
|
[求助]
关于一个excel单元格用&合并的问题 已有2人参与
|
|
|
用的excel2003，问题：比如单元格A1 为Gj，A2为Hu，其中j和u是下角标，在单元格A3内用=A1&A2的方式变为GjHu，但是原来的格式，特别是角标的格式被清除了，有什么办法在A3内保留他们的格式？当然，直接使用excel自带的连接函数也不行。 请高手赐教  |
回复此楼» 猜你喜欢
308求调剂
已经有4人回复
-
NSFC申报书里申请人简历中代表性论著还需要在申报书最后的附件里面再上传一遍吗
已经有14人回复
-
材料与化工一志愿南昌大学327求调剂推荐
已经有6人回复
-
化学调剂0703
已经有7人回复
-
327求调剂
已经有11人回复
-
调剂
已经有8人回复
-
梁成伟老师课题组欢迎你的加入
已经有7人回复
-
伙伴们，祝我生日快乐吧
已经有24人回复
-
中科院材料273求调剂
已经有3人回复
-
材料工程专硕274一志愿211求调剂
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 如何向Arcgis里导入带有时间的数据？
已经有12人回复
- Matlab 如何批量录入excel表格未分列的数据
已经有5人回复
- 已知excel中单元格的内容，如何使用python来读取它所在的行和列
已经有5人回复
- 求带有溶出相似性f1因子计算公式的电子表格
已经有7人回复
- 如何正确的在Excel表格中插入化学结构式
已经有7人回复
- 如何把excel中 一横排的许多方格变成一个方格
已经有7人回复
- VB输出结果以文本文档或者excel表格形式
已经有3人回复
- 正交设计数据的方差分析
已经有15人回复
- excel记账表格
已经有35人回复
rockrocker
木虫 (正式写手)
- 应助: 1 (幼儿园)
- 金币: 1742.7
- 红花: 1
- 帖子: 624
- 在线: 107.8小时
- 虫号: 222607
- 注册: 2006-03-21
- 性别: GG
- 专业: 动力学与控制
【答案】应助回帖
★
感谢参与，应助指数 +1
xzhdty: 金币+1, 感谢参与 2013-08-16 07:11:55
lolo123: 回帖置顶 2014-03-11 23:45:44
感谢参与，应助指数 +1
xzhdty: 金币+1, 感谢参与 2013-08-16 07:11:55
lolo123: 回帖置顶 2014-03-11 23:45:44
|
1.你的数据量大的话用程序很容易实现， Sub test() For i = 9 To 17 Cells(i, 9).Select ActiveCell.FormulaR1C1 = Cells(i, 9).Text With ActiveCell.Characters(Start:=1, Length:=1).Font .Name = "宋体" .FontStyle = "常规" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With With ActiveCell.Characters(Start:=2, Length:=1).Font .Name = "宋体" .FontStyle = "常规" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = True .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With With ActiveCell.Characters(Start:=3, Length:=1).Font .Name = "宋体" .FontStyle = "常规" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With With ActiveCell.Characters(Start:=4, Length:=1).Font .Name = "宋体" .FontStyle = "常规" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = True .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Next i End Sub 2.如果数据量不大的话，直接拷贝你的AU & hu单元格，在新的单元格位置点右键，选选择性粘贴，选数值，然后设置一下下标就可以了！ |
» 本帖已获得的红花（最新10朵）
lolo1233楼2013-08-12 22:28:02
2楼2013-08-11 09:01:59
 |
4楼2013-08-13 00:13:05
lolo123
木虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 2670.9
- 散金: 88
- 帖子: 221
- 在线: 112.5小时
- 虫号: 1454002
- 注册: 2011-10-21
- 性别: GG
- 专业: 机械结构强度学
5楼2013-08-13 08:21:23
【答案】应助回帖
|
'用函数连接完字符串 '选中要修改格式的区域，运行下面的vba代码 '下面代码作用是，是选中区域每个单元格的第2，4个字符变成下标 Sub FormatStr() '获取选中的区域的行数 Dim SelRowCon As Integer SelRowCon = Selection.Rows.Count '依次修改每个单元格的字符串 For i = 1 To SelRowCon '单元格中的第2个字符的字体下标样式为真 Cells(i, 1).Characters(Start:=2, Length:=1).Font.Subscript = True Cells(i, 1).Characters(Start:=4, Length:=1).Font.Subscript = True Next i End Sub |
6楼2013-08-24 18:51:30
xueyuanlang
新虫 (初入文坛)
- 应助: 0 (幼儿园)
- 金币: 237.5
- 帖子: 10
- 在线: 3.9小时
- 虫号: 2038222
- 注册: 2012-09-30
- 性别: MM
- 专业: 计算机网络
7楼2013-08-25 00:17:10
8楼2013-08-25 14:50:53
9楼2014-03-05 19:18:01
10楼2014-03-28 16:29:55
