Excel 如何根据单元格的值将整行移动到另一个工作表中

如果您经常使用大型数据集或需要高效组织数据，本课程将向您展示如何根据特定条件自动转移行。Excel是一个有效的组织和分析数据的工具，通过利用其功能和特性，我们可以自动化耗时的操作，节省时间和精力。例如，通常需要在筛选和分类数据的同时，根据单元格的值将整行移动到另一个工作表。

根据单元格的值将整行移动到另一个工作表

在这里，我们首先需要创建一个VBA模块，然后运行它以完成任务。让我们看一个简单的流程，了解如何在Excel中根据单元格的值将整行移动到另一个工作表。

步骤1

考虑一个Excel工作表，其中的数据与下面的图像类似。

Excel 如何根据单元格的值将整行移动到另一个工作表中

首先，右键单击工作表名称，选择“查看代码”来打开VBA应用程序。

右键单击 > 查看代码

步骤2

然后单击“插入”并选择“模块”，然后将下面的代码复制到文本框中。

插入 > 模块 > 复制

代码

Sub Cheezy()
   Dim xRg As Range
   Dim xCell As Range
   Dim I As Long
   Dim J As Long
   Dim K As Long
   I = Worksheets("Sheet1").UsedRange.Rows.Count
   J = Worksheets("Sheet2").UsedRange.Rows.Count
   If J = 1 Then
      If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
   End If
   Set xRg = Worksheets("Sheet1").Range("C:C" & I)
   On Error Resume Next
   Application.ScreenUpdating = False
   For K = 1 To xRg.Count
      If CStr(xRg(K).Value) = "Done" Then
         xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
         xRg(K).EntireRow.Delete
         If CStr(xRg(K).Value) = "Done" Then
             K = K - 1
         End If
         J = J + 1
      End If
   Next
   Application.ScreenUpdating = True
End Sub

在代码中，Sheet1是包含要移动的行的工作表。Sheet2是你要把行定位到的目标工作表。”C:C”是包含特定值的列，”Done”是你要根据移动行的特定值。请根据需要更改它们。

Excel 如何根据单元格的值将整行移动到另一个工作表中

步骤3

然后点击F5完成任务。

Excel 如何根据单元格的值将整行移动到另一个工作表中

这是你如何在Excel中根据单元格值将整行移动到另一个工作表的方法。

注意

如果你想要复制基于单元格值的数据，请使用下面的代码。

代码

Sub MoveRowBasedOnCellValue()
   Dim xRg As Range
   Dim xCell As Range
   Dim I As Long
   Dim J As Long
   Dim K As Long
   I = Worksheets("Sheet1").UsedRange.Rows.Count
   J = Worksheets("Sheet2").UsedRange.Rows.Count
   If J = 1 Then
   If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
   End If
   Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
   On Error Resume Next
   Application.ScreenUpdating = False
   For K = 1 To xRg.Count
      If CStr(xRg(K).Value) = "Done" Then
         xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
         J = J + 1
      End If
   Next
   Application.ScreenUpdating = True
End Sub