24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

lolo123

木虫 (小有名气)

应助: 1 (幼儿园)
金币: 2670.9
散金: 88
帖子: 221
在线: 112.5小时
虫号: 1454002
注册: 2011-10-21
性别: GG
专业: 机械结构强度学

[求助] 关于一个excel单元格用&合并的问题已有2人参与

用的excel2003，问题：比如单元格A1 为Gj，A2为Hu，其中j和u是下角标，在单元格A3内用=A1&A2的方式变为GjHu，但是原来的格式，特别是角标的格式被清除了，有什么办法在A3内保留他们的格式？当然，直接使用excel自带的连接函数也不行。
请高手赐教

回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

如何向Arcgis里导入带有时间的数据？已经有12人回复
Matlab 如何批量录入excel表格未分列的数据已经有5人回复
已知excel中单元格的内容，如何使用python来读取它所在的行和列已经有5人回复
求带有溶出相似性f1因子计算公式的电子表格已经有7人回复
如何正确的在Excel表格中插入化学结构式已经有7人回复
如何把excel中一横排的许多方格变成一个方格已经有7人回复
VB输出结果以文本文档或者excel表格形式已经有3人回复
正交设计数据的方差分析已经有15人回复
excel记账表格已经有35人回复

1楼 2013-08-11 00:34:56

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

万孝莉

新虫 (小有名气)

应助: 4 (幼儿园)
金币: 641.4
红花: 4
帖子: 119
在线: 81.5小时
虫号: 2246347
注册: 2013-01-17
性别: MM
专业: 细胞生物学研究中的新方法

【答案】应助回帖

'用函数连接完字符串
'选中要修改格式的区域，运行下面的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

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 10 个回答

王艳卉

金虫 (正式写手)

应助: 3 (幼儿园)
金币: 734
红花: 4
帖子: 477
在线: 58.8小时
虫号: 1292034
注册: 2011-05-11
性别: MM
专业: 化工系统工程

这个还真不知道，呵呵，期待得到答案，共同学习

赞一下

回复此楼

2楼2013-08-11 09:01:59

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

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.你的数据量大的话用程序很容易实现，
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单元格，在新的单元格位置点右键，选选择性粘贴，选数值，然后设置一下下标就可以了！

赞一下(1人)

回复此楼