求助VBA!有关根据已有表格按条件筛选生成新表格。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我希望将主表格（sheet1）中的数据，按照条件（科目代码一栏开头为110且科目代码长于8个字符，则将该行复制到新建表格中）复制到新生成的表格（sheet2）中。前面的程序都运行得很好，但是从红色部分开始，就无法运行。
不知道是哪里出了错，请各路大神救命！十分感谢！

这是是样表格式（后三列都是随意写的）


代码：
Sub New_worksheet()
    Sheets(1).Select ‘创建新的表格
Worksheets.Add
End Sub

Sub AutoInput()
Dim k, m, n, i, p, j, q As Long
Set mysheet1 = ThisWorkbook.Worksheets("sheet1")
Set mysheet2 = ThisWorkbook.Worksheets("sheet2")

For n = 1 To 11
mysheet2.Cells(1, n) = mysheet1.Cells(4, n)’复制表头
Next

q = mysheet1.UsedRange.Rows.Count
p = mysheet1.UsedRange.Rows(q).Row’取主表格最后一行行号，因为每次主表格的行数可能会不同，方便下面循环用

m = 5’主表格的数据从第五行开始
k = 2’从新建表格的第二行开始


For j = m To p ‘从主表格的第五行开始取，取到最后一行
If Len(mysheet1.Cells(j, 1)) > 8 And Left(mysheet1.Cells(j, 1), 3) = 110 Then’筛选条件为科目代码开头为110且科目代码长于8个字符
  For i = 1 To 11’此循环用于将主表格符合条件的行复制到新建表格中
  mysheet2.Cells(k, i) = mysheet2.Cells(j, i)
  Next
k = k + 1
Else
k = k + 1
End If
Next

End Sub

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：科目代码 个字符 运行。 法运行