Excel VBA自定义序列排序

最新推荐文章于 2024-07-09 23:42:22 发布

snail一路向前

最新推荐文章于 2024-07-09 23:42:22 发布

阅读量6.3k

点赞数 3

分类专栏： Excel VBA实例

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.csdn.net/qq389445046/article/details/104449256

版权

本文介绍了如何使用Excel VBA的AddCustomList方法添加自定义序列，并通过Sort方法进行排序。通过示例代码详细解释了AddCustomList和Sort方法的用法，以及DeleteCustomList方法用于删除自定义序列。内容包括自定义序列的添加、排序和删除操作，适用于Excel VBA的学习者。

摘要由CSDN通过智能技术生成

在这里插入图片描述
图1 待排序数据集
在图1中所示的数据集中，如果希望按单元格区域E2:E6所列序列进行排序，需要先使用AddCustomList方法为应用程序添加自定义序列，示例代码如下。

Sub SortByLists()
     Dim avntList As Variant, lngNum As Long
     avntList = Range("E2:E6")
     Application.AddCustomList avntList
     lngNum = Application.GetCustomListNum(avntList

最低0.47元/天解锁文章

snail一路向前

关注

3
点赞
踩
14

收藏

觉得还不错? 一键收藏
0
评论
Excel VBA自定义序列排序

图1 待排序数据集在图1中所示的数据集中，如果希望按单元格区域E2:E6所列序列进行排序，需要先使用AddCustomList方法为应用程序添加自定义序列，示例代码如下。Sub SortByLists() Dim avntList As Variant, lngNum As Long avntList = Range("E2:E6") Application.A...
复制链接

扫一扫

专栏目录

snail一路向前 CSDN认证博客专家 CSDN认证企业博客

码龄10年

32: 原创

6万+: 周排名

192万+: 总排名

12万+: 访问

: 等级

1501: 积分

70: 粉丝

68: 获赞

6: 评论

574: 收藏

私信

关注

热门文章

分类专栏

最新评论

ExcelVBA使用删除重复项获取不重复记录
HjStudy666: python 里面用 [1,2,3]
ExcelVBA批量添加PDF文件
cyjxj: Left:=ws.Cells(insertRow, "B").Left, Top:=ws.Cells(insertRow, "B").Top, _ Width:=100, Height:=100) Else MsgBox "文件 " & fileName & " 不存在！" End If End If Next cell End Sub
ExcelVBA批量添加PDF文件
cyjxj: Private Sub CommandButton1_Click() Dim ws As Worksheet Dim rngA As Range, cell As Range Dim photoFolder As String Dim fileName As String Dim filePath As String Dim objOLE As OLEObject Dim insertRow As Integer ' 设置工作表和相片文件夹路径 Set ws = ThisWorkbook.Sheets("Sheet1") ' 更改工作表名称为实际使用的名称 photoFolder = "D:\pdf文件\" ' 更改为实际的相片文件夹路径 ' 获取A列范围 Set rngA = ws.Range("A5:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row) ' 遍历每个非空单元格 For Each cell In rngA If cell.Value <> "" Then ' 获取文件名 fileName = cell.Value ' 构建文件路径 filePath = photoFolder & fileName & ".pdf" ' 检查文件是否存在 If Dir(filePath) <> "" Then ' 确定要插入的行数，这里假设B列中有空行可用 insertRow = cell.Row ' 插入OLE对象 Set objOLE = ws.OLEObjects.Add(fileName:=filePath, Link:=False, DisplayAsIcon:=False, _
ExcelVBA使用删除重复项获取不重复记录
MjpDm: 当有多列时，可以使用Array(1,2)的形式表示这个array(1,2)如何作为变量传入？我试过 arr = array(1,2) arr = split("1,2",",") redim arr(1) arr(0)= 1 arr(1) = 2 这些方法都不行
ExcelVBA Workbook工作簿对象介绍
ctotalk: good.

最新文章

目录

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。