Sub 复制粘贴系列 () Dim LastRow As Long, a As Long Dim b As Integer, c As Integer d = Sheets.Count e = 1 ＂ 表循环 For b = 1 To s Sheets(b).Select ＂ 单元格查找 For e = 1 To 100 LastRow = ActiveSheet.UsedRange.Rows.Count ＂ 判断第五行复制 If Cells(x, 1) = 5 Then Rows(x).Copy End If ＂ 判断第六行粘贴 If Cells(x, 1) = 6 Then Rows(x).Paste End If Next Next End Sub