如何实现excel宏把判断某一个单元格是数字的行复制到另一个表格中

一张excel表中连着有很多很多这样的表格，如何用excel宏把表格中的内同复制到另外一张表格中（入下图）

自己编写的宏，先假设处理前50行数据，判断序号字段是否数字实现整行复制，但是一直报错，请大虾帮忙啊，帮忙改改或者有什么更好的实现方式
Dim i As Integer
For i = 1 To 50
If IsNumeric(Worksheets("book1").cells(1, i)) = True Then
Rows("1:i").Select
Selection.Copy
Windows("Book2").Activate
Rows("1:i").Select
ActiveSheet.Paste
End If
Next

从你代码看，应该是在两个工作簿中复制数据，而不是同一工作簿的两个工作表，所以给你写一段代码，放在Book2.xls工作簿的用户模块中。

Sub abc()
Sheets("sheet1").Select
With Workbooks("Book1.xls").Sheets("sheet1")
x = 1
For i = 1 To 20
    If IsNumeric(.Cells(i, 1)) = True And .Cells(i, 1) <> "" Then
        Range("a" & x & ":c" & x) = .Range("a" & i & ":c" & i).Value
        x = x + 1
    End If
Next
End With
End Sub

试试吧

追问

非常感谢大虾，问题解决了一大半了
还有一半问题就是如上的表一、表二有二三十个分别在一个工作簿的sheet1,sheet2……sheet20中，如何将需要的数据复制到表三这样的

追答

想将同一工作簿中多个工作表内容复制到一个工作表中？那就到我百度空间去参考文章《将同一工作簿中的所有工作表合并到一个新建的工作表中》吧，里面有代码可以直接使用。

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/24272qf2f.html