作者：乔山办公网日期：
返回目录：excel表格制作
sub test()
mrow=worksheets("Sheet1").cells(rows.count,1).end(3).row
workSheets("Sheet2").rows(3).copy workSheets("Sheet1").cells(mrow+1,1)
end sub
在sheet2工作表中插入以下VBA代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, j, k As Long
If Target.Address <> "$A$1" Or IsEmpty(Target) Then Exit Sub
Range("A3:D65536").ClearContents
i = Worksheets("Sheet1").Range("B65536").End(xlUp).Row
If i = 1 Then i = 2
st = Target.Value
k = 3
With Worksheets("Sheet1")
For j = 2 To i
If VBA.InStr(1, .Cells(j, 2), st, vbTextCompare) > 0 Then
Cells(k, 1) = .Cells(j, 1)
Cells(k, 2) = .Cells(j, 2)
Cells(k, 3) = .Cells(j, 3)
Cells(k, 4) = .Cells(j, 4)
k = k + 1
End If
Next
End With
End Sub
以上代码实现在 sheet2 的 A1 中输入字符e79fa5e98193e4b893e5b19e332后会自动去 sheet1 中找相符的行填入 sheet2 第三行开始的行。
【excel】怎么用宏将一个表格的某一列复制到另一个表格中去的方法。
如下参考：
1．Excel选项点击常用，勾选功能区显示开发工具，可以在Excel选项卡中看到“开发工具”选项。
2．选择“开发工具”在Excel选项卡开始宏记录。选择B3单元的文本［百度网页］，点击“录制宏”。
3．这时，会弹出一个“录制新宏”的对话框，我们想内要将【百度网页】进行加e69da5e887aae799bee5baa6e79fa5e98193361粗和变红的操作，因此，将宏的名称命名为“加粗变红”，同时设定快捷键便于快速调用，建议大家使用大写字母的快捷键，最后点击“容确定”按钮开始录制。
4．按照我们录制宏的目的，选择“开始”选项卡，对于【百度网页】进行加粗和变红的操作。
5．完成后，切换到“开发工具”选项卡，点击“停止录制”按钮。因此，将记录名为“从粗体到红色”的宏。
注意事项：
1．所有的公式都必须以等号开始；
2．函数名（如SUM）是从源代码写入的。在等号后面加上括号，如SUM（）；
3．公式的函数名和单元格的列号，都不区分大小写；
4．在Excel公式嵌套中，只使用圆括号。在嵌套时，把新嵌套的100公式，也要写在函数名的第一个，括号后；
5．当度公式引用的单元格发生变化时，该公式将自动重新计算结果并显示在单元格输入公式中；
6．About＄：如果在公式中的行号或列号之前添加了＄，这意味着在复制这个单元格的公式时，行号或列号应该保持不变；
7．关于循环引用：在Excel选项中，只有在循环引用发生并启用了迭代操作选项的情况下，才能进行循环引用公式的计算。否则，返回0。
【通知单】往【工单】复制，你希望输入多少行（例如83）复制到【工单】的始终是84行，对不对，这样可以把代码里面的后一个,i)修改为,84)