Question

如何用VBA获取sheet中的某一列包含的行，并复制到新表中。

如下图：我需要将“垫江”所在的行，复制到新的book中，同时sheet名称为汇总。

Answer 1

Sub ddkjkjk()

Dim I%
For I = 2 To Range("a65536").End(xlUp).Row
If Cells(I, 1) = "垫江" Then
Rows(I).Copy
Workbooks.Add
With ActiveSheet
.Name = "汇总"
.[a1].PasteSpecial xlPasteAll
End With
End If
Next
End Sub

是这样吗?