佛山小老鼠带您走进VBA数组(菜鸟请进)

dyzhenggang · 发表于 2016-5-26 16:56

Sub 筛选()
Range("A1:C100").AutoFilter field:=3, Criteria1:="佛山小老鼠"
End Sub

criteria1或criteria2，不是L

ahpyapple · 发表于 2016-5-26 19:25

向老师学习，非常感谢。

dyzhenggang · 发表于 2016-5-27 09:43

佛山小老鼠发表于 2013-11-13 00:14
为什么要学习数组
1.为了提速,提高代码运行速度先我看看二段代码Option Explicit
Sub 读取对象求和1() ' ...

Sub 数组方法()
Dim arr1
arr1 = Sheets(1).[a1].CurrentRegion
[a1].Resize(1, UBound(arr1, 2)) = arr1
End Sub
Sub 复制粘贴的方法()
Dim LastColumn%
LastColumn = Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column
Sheets(1).[a1].Resize(1, LastColumn).Copy
[a1].PasteSpecial xlPasteAll
End Sub
Sub 删除表头()
[A1:F1] = ""
End Sub

黎颇 · 发表于 2016-6-17 11:48

mark，必须保留

相信自己VBA · 发表于 2016-8-13 17:46

谢谢老师分享

wely2003 · 发表于 2016-8-19 11:13

我是07年注册的~一直停留在公式~~~真的好后悔没有参加课程~~现在开始补学中

weiyingde · 发表于 2016-9-9 15:06

lhdcxz 发表于 2013-11-13 10:16
才拜读了佛大的“字典”的文章，有见“数组”（看佛主盖楼的架势，一定有大动作）。老好人！看了前言，有一 ...

了不起！！

weiyingde · 发表于 2016-9-9 15:13

banjinjiu 发表于 2013-11-14 20:35
第三题：left是字符串相连接，int应该是数值相加1+2+3

Sub 取左边的第一个数据再求和()
Dim a, b, c, s
a = 11
b = 21
c = 31
s = Val(Left(a, 1)) + Val(Left(b, 1)) + Val(Left(c, 1))
MsgBox "求和结果是: " & s
End Su

weiyingde · 发表于 2016-9-9 15:17

还可以：
Sub 取左边的第一个数据再求和()
Dim a, b, c, s
a = 11
b = 21
c = 31
s = 1 * Left(a, 1) + 1 * Left(b, 1) + 1 * Left(c, 1)
MsgBox "求和结果是: " & s
End Sub
还可以 - -Left(a, 1) ，Left(a, 1) /1,Left(a, 1) -0

weiyingde · 发表于 2016-9-9 15:19

思路只有一个：将每个文本型数据，转化为数值型数据，在进行运算

		自动登录	找回密码
密码			免费注册

[原创] 佛山小老鼠带您走进VBA数组(菜鸟请进)