-
excel vba教程之数组赋值及取不重复值
1. 数组赋值及取不重复值 By:山菊花
Private Sub CommandButton1_Click()‘http://club.excelhome.net/dispbbs.asp?boardid=2&replyid=569457&id=196095&page=1&skin=0&Star=2
‘数组入门11.xls
Dim xm() As String, Arr() As String, Temp() As String '声明变量
Dim s%, r% '声明单值变量
On Error Resume Next '启动一个错误处理程序
xm = Split(Range("a1"), ",") '用A1单元格的数据创建数组
r = 0 '初值
s = UBound(xm) '最大下标
For i = 0 To s '循环,数组中取不重复值
Temp = Filter(Arr, xm(i)) '搜索数组
If UBound(Temp) = -1 Then '如果未找到(数组的上限=-1,说明该数组为空,即没有元素)
r = r + 1 '序号,自增1
ReDim Preserve Arr(1 To r) '定义动态数组大小
Arr(r) = xm(i) '把姓名复制到数组Arr()中。
End If
Next
Range("a2").Resize(1, r) = Arr '填充到工作表的一行之中
'Range("a2") = Join(Arr, ",") '填充到工作表的A2之中
End Sub
By:Unarthur
取工作表区域的绝对引用公式到数组:arr=[a1:c5].Formula
2,取工作表区域的相对引用公式到数组:arr=[a1:c5].Formular1c1
3,取工作表区域的转置到数组:arr=Application.Transpose([a1:c5]) 数组间也可以转置:arr1=Application.Transpose(arr)
4,取数组arr的第n列赋值到某列区域:[e1:e5]=Application.Index(arr, , n) 或者赋值产生一个新数组:arr1=Application.Index(arr, , n)
5,同理,取数组arr的第n行赋值到某行区域:[a6:c6]=Application.Index(arr,n ) 或者赋值产生一个新数组:arr1=Application.Index(arr, n )
数组技巧.xls
Private Sub CommandButton1_Click()
arr = [a4:c8].Formula '将公式保存到数组
[e4:g8] = arr
End Sub
Private Sub CommandButton2_Click()
arr = [a13:c17].FormulaR1C1 '将公式保存到数组
[e13:g17] = arr
End Sub
Private Sub CommandButton3_Click()
arr = Application.Transpose([a22:c26])
[e22:i24] = arr
End Sub
Private Sub CommandButton4_Click()
arr = [e22:i24]
[k22:m26] = Application.Transpose(arr)
End Sub
Private Sub CommandButton5_Click()
arr = [a32:c36]
[e32:e36] = Application.Index(arr, , 3)
End Sub
Private Sub CommandButton6_Click()
arr = [a42:c46]
[e42:g42] = Application.Index(arr, 3)
End Sub
最新更新
nodejs爬虫
Python正则表达式完全指南
爬取豆瓣Top250图书数据
shp 地图文件批量添加字段
爬虫小试牛刀(爬取学校通知公告)
【python基础】函数-初识函数
【python基础】函数-返回值
HTTP请求:requests模块基础使用必知必会
Python初学者友好丨详解参数传递类型
如何有效管理爬虫流量?
2个场景实例讲解GaussDB(DWS)基表统计信息估
常用的 SQL Server 关键字及其含义
动手分析SQL Server中的事务中使用的锁
openGauss内核分析:SQL by pass & 经典执行
一招教你如何高效批量导入与更新数据
天天写SQL,这些神奇的特性你知道吗?
openGauss内核分析:执行计划生成
[IM002]Navicat ODBC驱动器管理器 未发现数据
初入Sql Server 之 存储过程的简单使用
SQL Server -- 解决存储过程传入参数作为s
JavaScript判断两个数组相等的四类方法
js如何操作video标签
React实战--利用甘特图和看板,强化Paas平
【记录】正则替换的偏方
前端下载 Blob 类型整理
抽象语法树AST必知必会
关于JS定时器的整理
JS中使用Promise.all控制所有的异步请求都完
js中字符串的方法
import-local执行流程与node模块路径解析流程