如何从sheet1复制满足条件的内容到sheet2

/ty/ty · 发表于 2017-10-19 17:59

当P列有日期时（不为空），我想提取A,B,D,E,F,G,J,L,P列到新的sheet页中。

/ty/ty · 发表于 2017-10-19 18:03

使用Excel宏实现

朱荣兴 · 发表于 2017-10-19 19:17

提示: 作者被禁止或删除内容自动屏蔽

lsc900707 · 发表于 2017-10-19 20:12

/ty/ty 发表于 2017-10-19 18:03
使用Excel宏实现

Excel home欢迎您的到来！您的问题清楚明白，又有附件，代码稍后上传，请稍等！

lsc900707 · 发表于 2017-10-19 20:24

/ty/ty 发表于 2017-10-19 18:03
使用Excel宏实现

代码放模块里，按钮在“目标”工作表：
Sub lqt()
arr = Sheet1.[a1].CurrentRegion
m = UBound(arr)
ReDim arb(1 To m, 1 To 9)
For i = 1 To m
      If arr(i, 16) <> "" Then
         k = k + 1
         arb(k, 1) = arr(i, 1)
         arb(k, 2) = arr(i, 2)
         arb(k, 3) = arr(i, 4)
         arb(k, 4) = arr(i, 5)
         arb(k, 5) = arr(i, 6)
         arb(k, 6) = arr(i, 7)
         arb(k, 7) = arr(i, 10)
         arb(k, 8) = arr(i, 12)
         arb(k, 9) = arr(i, 16)
      End If
Next
[a1].Resize(k, 9) = arb
[a1].Resize(k, 9).Borders.LineStyle = xlContinuous
End Sub

/ty/ty · 发表于 2017-10-20 09:52

lsc900707 发表于 2017-10-19 20:24
代码放模块里，按钮在“目标”工作表：
Sub lqt()
arr = Sheet1.[a1].CurrentRegion

多谢大神的帮助！

/ty/ty · 发表于 2017-10-20 10:19

lsc900707 发表于 2017-10-19 20:24
代码放模块里，按钮在“目标”工作表：
Sub lqt()
arr = Sheet1.[a1].CurrentRegion

判断为空的是哪段代码？如果我想筛选某一特定日期的相关数据要怎么修改呢？

/ty/ty · 发表于 2017-10-20 10:22

朱荣兴发表于 2017-10-19 19:17

判断为空的是哪段代码？如果我想筛选某一特定日期的相关数据要怎么修改呢？

Kaohsing · 发表于 2017-10-20 10:30

本帖最后由 Kaohsing 于 2017-10-20 10:52 编辑

这句判断为空：If arr(i, 16) <> "" Then。特定日期： If arr(i, 16)=#具体日期# then

/ty/ty · 发表于 2017-10-20 10:43

Kaohsing 发表于 2017-10-20 10:30
这句判断为空：If arr(i, 16) "" Then。特定日期： If arr(i, 16) ""and arr(i, 16)=#具体日期# ...

麻烦帮我看看3楼给出的代码怎么实现选择特定日期

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-10-19 19:17 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[已解决] 如何从sheet1复制满足条件的内容到sheet2