把符合两条件的单元格的整行复制到另一个表中的VBA

更新时间：2022-05-06 15:44:15 167次访问

代码如下：

Sub mycopy() Dim x, k As Integer, rg As Range With Sheet1    For x = 1 To 14        If .Cells(x, 1) > 10 And .Cells(x, 1) < 14 Then            k = k + 1            If k = 1 Then Set rg = .Cells(x, 1)            Set rg = Union(rg, .Cells(x, 1))        End If    Next x End With rg.***.copy ***.range("a1") ***.activate End Sub

代码是意图是把本表第一列中大于10并且小于14的单元格所在的行复制到sheet2工作表中

可以用循环进行判断，然后把符合条件的单元格写入到另一个表就行了