今日知识分享筛选后再写入excel（excel筛选后填写,数据变动）

今日知识分享筛选后再写入excel（excel筛选后填写,数据变动）

随着科技的不断发展，我们已经进入了信息化时代。在日常工作中，电脑成为我们最重要的助手之一，而Excel更是我们必备的工具。Excel不仅可以充分发挥数据的价值，同时也可以减少工作量并提高工作效率。本文将介绍如何将筛选后的数据写入Excel表格，以期提高我们的工作效率。

一、筛选数据

首先，打开数据所在的Excel表格，选定需要筛选的数据列。在菜单栏中找到“数据”选项卡，点击“筛选”功能，就会出现一个筛选面板。

二、编辑写入代码

在筛选后数据的基础上，需要编写VBA（Visual Basic for Applications）代码，将数据批量写入Excel表格中。打开VBA编辑器（按ALT+F11键），在新建的模块中编写下列代码：

Sub WriteToExcel()

Dim wbk As Workbook

Dim wsh As Worksheet

Dim rng1 As Range

Dim cell As Range

Dim r As Long

Set wbk = Workbooks.Open("C:\Users\user\Desktop\test.xlsx") '表格的路径

Set wsh = wbk.Worksheets("Sheet1") '表格中的工作表名字

Set rng1 = wsh.Range("A2:A" & wsh.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row) '数据所在列

r = 2 '写入起始行数

For Each cell In rng1

If cell.Value > 80 Then '筛选条件，此处为值大于80的情况

wsh.Cells(r, 2).Value = cell.Value '将数据写入第二列中

r = r + 1

End If

Next cell

wbk.Close SaveChanges:=True '保存并关闭表格

End Sub

三、执行运行代码

按下F5键，执行VBA代码。此时，我们会发现在Excel表格中多出了一列，且该列只显示原数据中符合条件的信息。

四、总结

通过以上步骤，我们成功地将筛选后的数据写入了Excel表格中。相对于手动填写Excel表格，该方法节约了时间，提高了准确性，并且能够批量处理较大数据。作为Excel的忠实用户，我们需要不断发掘其强大的功能，以提升我们的工作效率。

本文地址： ：，，。以上内容关于筛选后再写入excel（excel筛选后填写,数据变动）