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

dyzhenggang

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

criteria1或criteria2，不是L

ahpyapple

向老师学习，非常感谢。

dyzhenggang

佛山小老鼠 发表于 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

黎颇

mark，必须保留

相信自己VBA

谢谢老师分享

wely2003

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

weiyingde

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

了不起！！

weiyingde

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

还可以：
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

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