| 查看: 1829 | 回复: 9 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
lolo123木虫 (小有名气)
|
[求助]
关于一个excel单元格用&合并的问题 已有2人参与
|
|
|
用的excel2003，问题：比如单元格A1 为Gj，A2为Hu，其中j和u是下角标，在单元格A3内用=A1&A2的方式变为GjHu，但是原来的格式，特别是角标的格式被清除了，有什么办法在A3内保留他们的格式？当然，直接使用excel自带的连接函数也不行。 请高手赐教  |
回复此楼» 猜你喜欢
材料与化工一志愿南昌大学327求调剂推荐
已经有6人回复
-
化学调剂0703
已经有7人回复
-
327求调剂
已经有11人回复
-
调剂
已经有8人回复
-
梁成伟老师课题组欢迎你的加入
已经有7人回复
-
伙伴们，祝我生日快乐吧
已经有24人回复
-
中科院材料273求调剂
已经有3人回复
-
材料工程专硕274一志愿211求调剂
已经有5人回复
-
本人考085602 化学工程 专硕
已经有8人回复
-
求老师收留调剂
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 如何向Arcgis里导入带有时间的数据？
已经有12人回复
- Matlab 如何批量录入excel表格未分列的数据
已经有5人回复
- 已知excel中单元格的内容，如何使用python来读取它所在的行和列
已经有5人回复
- 求带有溶出相似性f1因子计算公式的电子表格
已经有7人回复
- 如何正确的在Excel表格中插入化学结构式
已经有7人回复
- 如何把excel中 一横排的许多方格变成一个方格
已经有7人回复
- VB输出结果以文本文档或者excel表格形式
已经有3人回复
- 正交设计数据的方差分析
已经有15人回复
- excel记账表格
已经有35人回复
9楼2014-03-05 19:18:01
2楼2013-08-11 09:01:59
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
 |
4楼2013-08-13 00:13:05
20