[已解决]如何复制粘贴到最后空白表中

ls · 发表于 2012-4-1 15:41

如何复制粘贴到最后空白表中.rar (8.44 KB, 下载次数: 21)

那么的帅 · 发表于 2012-4-1 15:53

分不清哪些是原始数据，哪些是结果数据？

ls · 发表于 2012-4-1 16:20

那么的帅发表于 2012-4-1 15:53
分不清哪些是原始数据，哪些是结果数据？

都是数据区域,结果放在最后空白表中

zjdh · 发表于 2012-4-1 16:21

查找复制.rar (14.13 KB, 下载次数: 10)

ls · 发表于 2012-4-1 16:33

zjdh 发表于 2012-4-1 16:21

十分感谢,
后面现金表部分没有体现

ls · 发表于 2012-4-1 16:43

zjdh 发表于 2012-4-1 16:21

在c,i,o列(项目)列查询

zjdh · 发表于 2012-4-1 16:57

查找复制2.rar (14.44 KB, 下载次数: 4)

ls · 发表于 2012-4-1 18:20

Sub 提取()
Dim m
Sheets("结果").Range("A3:F65500").Clear
For I = 1 To Range("B65536").End(3).Row
m = Application.InputBox("请输入查找内容", "查找")
      If Range("C" & I) Like "*" & m & "*" Then Range("A" & I & ":F" & I).Copy Sheets("结果").Range("B65536").End(3).Offset(1, -1)
      If Range("i" & I) Like "*" & m & "*" Then Range("g" & I & ":l" & I).Copy Sheets("结果").Range("B65536").End(3).Offset(1, -1)
      If Range("o" & I) Like "*" & m & "*" Then Range("m" & I & ":r" & I).Copy Sheets("结果").Range("B65536").End(3).Offset(1, -1)

Next
End Sub

语句一直运行

?

ls · 发表于 2012-4-1 18:22

zjdh 发表于 2012-4-1 16:57

请看下8楼的语句有什么问题

ls · 发表于 2012-4-1 18:29

zjdh 发表于 2012-4-1 16:57

If Cells(I, J) = "提现金"

提现金能换成变量, 能用通配符最好

		自动登录	找回密码
密码			注册