excel 自动实现将筛选的字段移动到另一sheet页，并删除当前sheet选定的行

### 回答1：
可以使用宏来实现这个功能。首先，打开 Visual Basic 编辑器，创建一个新的模块。然后，编写以下代码：

Sub MoveFilteredRows()
Dim rng As Range
Dim lastRow As Long
Dim ws As Worksheet

'获取当前活动工作表
Set ws = ActiveSheet

'获取当前活动工作表的最后一行
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

'设置筛选范围
Set rng = ws.Range("A1:A" & lastRow)

'筛选数据
rng.AutoFilter Field:=1, Criteria1:="筛选条件"

'复制筛选结果到新的工作表
rng.SpecialCells(xlCellTypeVisible).EntireRow.Copy _
Destination:=Worksheets("目标工作表名称").Range("A1")

'删除筛选结果
ws.AutoFilterMode = False
rng.Offset(1, ).Resize(lastRow - 1, 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End Sub

其中，需要将代码中的 "筛选条件" 和 "目标工作表名称" 替换为实际的筛选条件和目标工作表名称。执行该宏后，将会自动将符合筛选条件的行复制到目标工作表，并删除当前工作表中符合筛选条件的行。

### 回答2：
在Excel中，可以使用宏或公式来实现将筛选的字段移动到另一个工作表，并删除当前工作表中选定的行。

使用宏的方法如下：
1. 首先，在Excel中按下Alt + F11，打开Visual Basic for Applications（VBA）编辑器。
2. 在VBA编辑器中，选择“插入”菜单下的“模块”选项，插入一个新的模块。
3. 在新的模块中，编写以下代码：

Sub MoveAndDeleteRows()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    
    '设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名")
    
    '筛选需要移动的字段，复制到目标工作表的下一行
    sourceSheet.Range("筛选范围").SpecialCells(xlCellTypeVisible).Copy _
        Destination:=targetSheet.Cells(targetSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1, 1)
    
    '删除源工作表中选定的行
    sourceSheet.Range("筛选范围").SpecialCells(xlCellTypeVisible).EntireRow.Delete
End Sub

4. 在代码中，需要替换“源工作表名”和“目标工作表名”为实际的工作表名称，替换“筛选范围”为实际需要筛选的字段的范围。

5. 在VBA编辑器中按下F5键，运行宏。
6. 执行完宏后，选定的行将会被删除，并且筛选的字段将会被移动到另一个工作表。

使用公式的方法如下：
1. 首先，在目标工作表中创建与源工作表相同的列。
2. 在目标工作表的对应列中使用以下公式：

=IF('源工作表名'!$A1="筛选条件", '源工作表名'!A1, "")

3. 将公式应用到目标工作表的其他单元格中。
4. 在目标工作表中，选择筛选条件列中的非空单元格，复制并粘贴到同一列中，以去除公式。
5. 在源工作表中，删除选定的行。

通过上述宏和公式的方法，可以方便地实现将筛选的字段移动到另一个工作表，并删除当前工作表中选定的行。

### 回答3：
在Excel中，我们可以通过宏来实现将筛选的字段移动到另一个工作表，并删除当前工作表选定的行。

首先，我们需要打开“开发人员”选项卡，然后点击“宏”按钮，输入宏的名称，例如“MoveAndDelete”。

然后，在弹出的宏编辑器中，我们可以编写以下代码来实现移动和删除的功能：

Sub MoveAndDelete()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    '设置源工作表和目标工作表
    Set sourceSheet = ActiveSheet
    Set targetSheet = Sheets("目标工作表名称")
    
    '获取源工作表中需要筛选字段的最后一行
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, 1).End(xlUp).Row
    
    '循环遍历源工作表，将筛选字段复制到目标工作表
    For i = lastRow To 1 Step -1
        If '根据筛选条件设置
           Then
            sourceSheet.Rows(i).Copy targetSheet.Rows(targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Row + 1)
            sourceSheet.Rows(i).Delete
        End If
    Next i
End Sub

在代码中，我们首先声明了一些变量，包括源工作表、目标工作表、最后一行和循环计数器。

然后，我们使用`Set`语句将源工作表设置为当前活动工作表，将目标工作表设置为指定的工作表。

接下来，我们使用`Cells`函数和`End(xlUp)`方法获取源工作表中筛选字段的最后一行。

之后，我们使用一个循环从最后一行开始逐行遍历源工作表。

在循环中，我们可以根据需要设置筛选条件。如果满足筛选条件，我们将该行复制到目标工作表，并将该行从源工作表中删除。

最后，我们可以保存并关闭宏编辑器。

在实际使用过程中，请根据您的具体需求修改代码中的工作表名称和筛选条件，以便正确地将筛选的字段移动到另一个工作表，并删除当前工作表选定的行。