Excel自动化，如果category = X，然后复制行并粘贴到选项卡X中

我想创build一个Excel文档，其中包含1个选项卡（所有任务）和选项卡供应商＃1，供应商＃2，供应商＃3的完整任务列表。

我有以下几列：

任务| 类别（供应商）| 行动| 参考编号|

我怎样才能自动化一个类别匹配相同的名称作为一个选项卡它会自动复制整个行，并将其插入供应商选项卡？

提前致谢，

Answer 1

以下为我工作：

Sub CopyRowIfMatchesTab() Dim category As String Dim lastTasksRow, lastPasteRow, rowCnt As Long Dim taskSheet As Worksheet, pasteSheet As Worksheet Set taskSheet = Sheets("Tasks") lastTasksRow = taskSheet.Cells(taskSheet.Rows.Count, 1).End(xlUp).Row For rowCnt = 2 To lastTasksRow category = taskSheet.Cells(rowCnt, 2).Value Set pasteSheet = Nothing On Error Resume Next Set pasteSheet = Sheets(category) On Error GoTo 0 If Not pasteSheet Is Nothing Then lastPasteRow = pasteSheet.Cells(pasteSheet.Rows.Count, 1).End(xlUp).Row taskSheet.Rows(rowCnt).Copy pasteSheet.Select If lastPasteRow = 1 Then pasteSheet.Rows(lastPasteRow).Select Else pasteSheet.Rows(lastPasteRow + 1).Select End If pasteSheet.Paste End If Next End Sub