[已解决]自动筛选资料

lkk0063 · 发表于 2020-11-26 16:32

本帖最后由 lkk0063 于 2020-11-28 16:12 编辑

当按下筛选资料后, K2 & L2 栏位会自动带出数值(图一),
并自动将数值复制到 Sheet1 的 B2 & C2 栏位内(图二) (注:Sheet1 的 B2 & C2 栏位有资料需累计下去)
图一

图二

最佳答案

月排行榜 / 总排行榜

zjdh

2020-11-28 13:40

test.rar (29.15 KB, 下载次数: 4)

zjdh · 发表于 2020-11-28 13:40

test.rar (29.15 KB, 下载次数: 4)

lkk0063 · 发表于 2020-11-28 15:23

zjdh 发表于 2020-11-28 13:40

谢谢版主，已完成需求

lkk0063 · 发表于 2020-11-28 16:16

zjdh 发表于 2020-11-28 13:40

zjdh 版主你好,
若想新增图二, 若有资料则不复制资料, 请问如何修改? 谢谢

if Sheets("BB").Cells(n + 1, "B") > 1 then
MsgBox "资料重覆!!"
Exit Sub

复制代码

zjdh · 发表于 2020-11-29 17:52

'....
   If Sheets("Sheet1").Cells(n + 1, "B") <> "" Then
         MsgBox "数据重复！"
         Exit Sub
      Else:
         .Range("K2:L2").Copy Sheets("Sheet1").Cells(n + 1, "B")
      End If
End With

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