返回目录：excel表格制作
1.这里示例了一copy个最简单的实操过程。
2.首先，要录制新的宏，简单而言就是把我们要重复操作的步骤录制起来！
方法是：点击工具—百—宏——录制新的宏。点击后，就开始进入宏的录制了，把步骤一步度步录起来！
3.如果步骤已经录好了，点击停止按钮知，表示结束录制。
4.使用宏的方法：点击工具——宏——宏——选择录制好的宏的名字——选择当前工作薄——执行。如果只需要宏的一步操作，也可以点击单步执行。如果懂编码，可以点击编辑，就不用录道制了，直接写代码。
5.一步就完成了的效果图是这样的。
比如百楼层一在 100行，楼层二度在300行
在A1选择回1，就跳到答100行，选择2就跳到300行
If Range("A1") = 1 Then
Range("A100").Activate
End If
If Range("A1") = 2 Then
Range("A300").Activate
End If
请看实例：copy
Sub sr()
Dim arr, h, l ' h 行号 l 列号
arr = [b1:d2] ' 令数组zhidao arr = B1:D2
h = 4: l = 3 ' 假设将数组 arr 写入 第4行 第3列
Cells(4, 3).Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub
举例说明。
有数据表A列及B列，要求将A列数据排除B列后写入zhidao到D列。
表格初始数据如图：专
编制代码如下：
Sub 数据排除()
Dim mys As String
Dim I, J As Integer
Dim b As Object
mys = "数据排除"
Set b = CreateObject("Scripting.Dictionary")
Sheets(mys).Select
I = 2
Do While Cells(I, 2) <> "" '将名单放入字典
m_key = Cells(I, 2)
M_ITEM = I - 1
If Not b.Exists(m_key) Then
b.Add m_key, M_ITEM
End If
I = I + 1
Loop
J = 2 '记录C列写入数据的最新行号
I = 2
Do While Cells(I, 1) <> "" '将A列数据排除B列后存入C列
m_key = Cells(I, 1)
If Not b.Exists(m_key) Then
Cells(J, 3) = m_key
J = J + 1
End If
I = I + 1
Loop
End Sub
运行该宏后，结果属如图：