
EXCEL表格中,一个字符串为123abc,如何转换为cba321。
如果说,我的数据量非常大,每个单元格里,都是二十四位的数字+字母。共有几千行,也能如此做吗?另外,这和宏的安全等级有没有什么关系?如果有,我怎样才能顺利的实施命令。我的电...
如果说,我的数据量非常大,每个单元格里,都是二十四位的数字+字母。共有几千行,也能如此做吗?
另外,这和宏的安全等级有没有什么关系?如果有,我怎样才能顺利的实施命令。
我的电子信箱:man7055@126.com ,哪位大大如果有时间,可以直接发给我一个OFFICE2003的电子表格,把函数直接嵌入的,多谢。 展开
另外,这和宏的安全等级有没有什么关系?如果有,我怎样才能顺利的实施命令。
我的电子信箱:man7055@126.com ,哪位大大如果有时间,可以直接发给我一个OFFICE2003的电子表格,把函数直接嵌入的,多谢。 展开
2个回答
展开全部
用VBA自定义函数吧,使用方便
按ALT+F11 打开代码窗口,
在左边的格(工程资源管理器)内,右键,
插入,模块,
将下面的代码复制到右边(模块1的代码窗口),
然后关闭代码窗口,返回sheet表
-----------
Option Explicit
Public Function daoxu(iRng As Range) As String
Application.Volatile
If iRng.Count <> 1 Then daoxu = "#错误": Exit Function
If iRng.Value = "" Then daoxu = "": Exit Function
Dim iStr1 As String, iStr2 As String, i
iStr1 = iRng.Value
For i = Len(iStr1) To 1 Step -1
iStr2 = iStr2 & Mid(iStr1, i, 1)
Next
daoxu = iStr2
End Function
----------------
现在就可以将这个 daoxu() 函数当做普通函数使用了
加入 A1 的值为:123abc
在其他单元格内输入公式:
=daoxu(A1)
显示结果:
cba321
-----------------
已发送到你的邮箱
按ALT+F11 打开代码窗口,
在左边的格(工程资源管理器)内,右键,
插入,模块,
将下面的代码复制到右边(模块1的代码窗口),
然后关闭代码窗口,返回sheet表
-----------
Option Explicit
Public Function daoxu(iRng As Range) As String
Application.Volatile
If iRng.Count <> 1 Then daoxu = "#错误": Exit Function
If iRng.Value = "" Then daoxu = "": Exit Function
Dim iStr1 As String, iStr2 As String, i
iStr1 = iRng.Value
For i = Len(iStr1) To 1 Step -1
iStr2 = iStr2 & Mid(iStr1, i, 1)
Next
daoxu = iStr2
End Function
----------------
现在就可以将这个 daoxu() 函数当做普通函数使用了
加入 A1 的值为:123abc
在其他单元格内输入公式:
=daoxu(A1)
显示结果:
cba321
-----------------
已发送到你的邮箱
展开全部
=RIGHT(A1,1) & MID(A1,23,1) & MID(A1,22,1) & MID(A1,21,1) & MID(A1,20,1) & MID(A1,19,1) & MID(A1,18,1) & MID(A1,17,1) & MID(A1,16,1) & MID(A1,15,1) & MID(A1,14,1) & MID(A1,13,1) & MID(A1,12,1) & MID(A1,11,1) & MID(A1,10,1) & MID(A1,9,1) & MID(A1,8,1) & MID(A1,7,1) & MID(A1,6,1) & MID(A1,5,1) & MID(A1,4,1) & MID(A1,3,1) & MID(A1,2,1) & LEFT(A1,1)
都是24位长的话,你可以在第一行单元格里输入上面的式子,A1为原始数据第一行的位置。其他的行拖下去就可以了。
都是24位长的话,你可以在第一行单元格里输入上面的式子,A1为原始数据第一行的位置。其他的行拖下去就可以了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询