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

发布网友发布时间：2022-04-22 13:29

共2个回答

热心网友时间：2023-09-06 02:40

可以使用下边的宏,如果有疑问可以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

热心网友时间：2023-09-06 02:40

在H列对应数据的首行输入

=IF(SUMIF($A1:$E1,6)>0,A1," ")

注意把A1 E1 换成数据实际的单元格名称即可（我的例子是从A1开始放数据）

然后使用句柄往右拉到L列，然后再使用句柄拉到需要出结果的全部地方即可。