<em>Excel</em> <em>VBA</em>关于数组的问题-e

将A列所百有度数据，问都变为答100，显示回在答B列？
Sub a()
Dim brr(1 To 5000, 1 To 1)
arr = Range("a1:a" & Range("a65536").End(xlUp).Row)
For i = 1 To UBound(arr)
brr(i, 1) = 100
Next
[b1].Resize(i, 1) = brr
End Sub

从数组i(1 to 6)中查来找：1 和27 这两个数值是否存在这个数组中吗？

如果是的话自：
先看楼主的思路：百要定义一个函数来执行两次，每次都只找一度个数问值。
这样一来一个数组就要扫描两次了。

试下先定义两个 Boolean 变量，用来记录是否答遇到1 和27
dim b1 as Boolean, b27 as Boolean
for i = 0 to 5
b1 = b1 or (jihe(i)=1)
b27 = b27 or (jihe(i) = 27)
next

最后
if b1 and b27 then goto line1 else goto line2

VBA数组赋值方式：百

1. 字符串数组的定义：

   Dim arr(1 to 3) as string

   如此定义，但是不能直接度给数组赋值

2. 如果想直接给数组直接赋值，需要如下操作：问

   Dim arr() as Variant

   arr=Array("a","b","c")

3. 赋值格式：

   例如，给变量答a赋值一个数为12，则格式为：a = 12 [注意：变量（即版a）只能是一字母，而赋予的值可以是一个式子，当它是式子时，a的值就是这个式子的结果权。

'动态数组的一个例子。
Private Sub Command1_Click()
Dim a() As Integer'定义一个可变的数e5a48de588b6e799bee5baa6e79fa5e98193362组
Dim n As Integer
n = 10
ReDim a(n) As Integer'重新定义大小
For i = LBound(a) To UBound(a)'用这两函数获得数据的上标和下标
a(i) = i + 1
Print i
Next
Print "-------------------"
ReDim Preserve a(n + 2) As Integer'加Preserve维持原始数据不变，如果没有这个关键词，所有元素都将变成0
a(n + 1) = 11
a(n + 2) = 12
For i = LBound(a) To UBound(a)
a(i) = i + 1
Print i
Next
End Sub
打开数据表后的行列数可以用下面两句得到：
ActiveSheet.UsedRange.Rows.Count
ActiveSheet.UsedRange.Columns.Count