Excel如何用函数自动复制指定条件的行

可以使用下边的宏,如果有疑问可以pm我

Sub ZNpaste()

Dim mCol, mRow, tarRow

startCol = 1 '原始数据起始列号

endCol = 5 '原始数据终止列号

startRow = 1 '原始数据起始行号

endRow = 5 '原始数据终止行号

tarRow = 1 '复制区起始行号

tarCol = 6 '复制区起始列号

mCondition = 6 '匹配条件,比如等于6

For mRow = startRow To endRow Step 1

For mCol = startCol To endCol Step 1

If Cells(mRow, mCol) = mCondition Then

Range(Cells(mRow, startRow).Address & ":" & Cells(mRow, endRow).Address).Select

Selection.Copy

Cells(tarRow, tarCol).Select

ActiveSheet.Paste

tarRow = tarRow + 1

Exit For

End If

Next mCol

Next mRow

End Sub