作者:乔山办公网日期:
返回目录:excel表格制作
如果格式都与题目中一致,用辅助列,公式:
=IF(LEFT(A1,1)>RIGHT(A1,1),A1,RIGHT(A1,1)&"-"&LEFT(A1,1))
按辅助列排序就行了
将单元格中的内容排序的方法,用VB也比较简单的:对指定单元格的内容按字符ascii码大小进行排序(对汉字来说就是按声母的顺序排序)。
在工作表页面按ALT+F11 进入VBA编辑窗口,点菜单“插入”->“模块”,粘贴以下代码到光标位置,保存并关闭代码窗口。
该代码是一个自定义函数, 用法跟excel函数基本相同,比如要排序A1单元格的内容就在A2单元格输入=px01(A1)。
以后在打开e68a84e799bee5baa6e79fa5e98193338文件时要将宏的安全性设置为中(菜单“工具”->“宏”->“安全性”)并启用宏。
代码如下:
Function px01(str As String)
ReDim arr(Len(str) - 1)
For i = 1 To Len(str)
arr(i - 1) = Mid(str, i, 1)
Next
For i = LBound(arr) To UBound(arr) - 1
For ii = i + 1 To UBound(arr)
If Asc(arr(i)) > Asc(arr(ii)) Then
temp = arr(ii)
arr(ii) = arr(i)
arr(i) = temp
End If
Next ii
Next i
px01 = Replace(Join(arr), " ", "")
End Function
可以用VLOOKUP。
1、电来脑打开Excel表格自。
2、打开Excel表格后,输入公式=VLOOKUP(B3,A3:A6,1,0)。
3、输入公式回车确认后百,如果没有相同的就会显示错度误。知
4、下拉复制,如果有相同的,就会显示名字。道
将单元格中的内容排序的方法,用VB也比较简单的:对指定单元格的e799bee5baa6e78988e69d83361内容按字符ascii码大小进行排序(对汉字来说就是按声母的顺序排序)。
在工作表页面按ALT+F11 进入VBA编辑窗口,点菜单“插入”->“模块”,粘贴以下代码到光标位置,保存并关闭代码窗口。
该代码是一个自定义函数, 用法跟excel函数基本相同,比如要排序A1单元格的内容就在A2单元格输入=px01(A1)。
以后在打开文件时要将宏的安全性设置为中(菜单“工具”->“宏”->“安全性”)并启用宏。
代码如下:
Function px01(str As String)
ReDim arr(Len(str) - 1)
For i = 1 To Len(str)
arr(i - 1) = Mid(str, i, 1)
Next
For i = LBound(arr) To UBound(arr) - 1
For ii = i + 1 To UBound(arr)
If Asc(arr(i)) > Asc(arr(ii)) Then
temp = arr(ii)
arr(ii) = arr(i)
arr(i) = temp
End If
Next ii
Next i
px01 = Replace(Join(arr), " ", "")
End Function