| 查看: 1865 | 回复: 9 | ||
lolo123木虫 (小有名气)
|
[求助]
关于一个excel单元格用&合并的问题 已有2人参与
|
|
|
用的excel2003，问题：比如单元格A1 为Gj，A2为Hu，其中j和u是下角标，在单元格A3内用=A1&A2的方式变为GjHu，但是原来的格式，特别是角标的格式被清除了，有什么办法在A3内保留他们的格式？当然，直接使用excel自带的连接函数也不行。 请高手赐教  |
回复此楼» 猜你喜欢
化工求调剂！
已经有9人回复
-
301求调剂
已经有13人回复
-
308求调剂
已经有13人回复
-
材料工程310专硕调剂
已经有15人回复
-
304求调剂
已经有9人回复
-
081700，311，求调剂
已经有16人回复
-
080500求调剂
已经有3人回复
-
312求调剂
已经有10人回复
-
070300化学279求调剂
已经有19人回复
-
求调剂 一志愿西南交通大学085701环境工程 282分
已经有9人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 如何向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
