一个筛选后复制粘贴的问题如何解决

seven_xl

如图，筛选完的数据，如果从右边复制粘贴到左边的红框里面去？前提是不要一个一个复制粘贴，要一起粘贴过去，怎么搞法。

seven_xl

平时碰到太多这种这种状况了，不知道该怎么搞，费劲

Peny2020

试了一下。
Sub TEST()
Application.DisplayAlerts = False

Dim rng, a, b As Range
    Set rng = Sheet1.Range("A1").CurrentRegion
    Set a = Range("F2:F" & Range("K65536").End(3).Row)
    Set b = Range("L2:L" & Range("K65536").End(3).Row)
    rng.AutoFilter
    rng.AutoFilter Field:=12, Criteria1:="304-F-C"
    a.SpecialCells(xlCellTypeVisible).Value = b.SpecialCells(xlCellTypeVisible)
    rng.AutoFilter
   
Application.DisplayAlerts = True
End Sub

seven_xl

Peny2020 发表于 2023-4-26 16:12
试了一下。
Sub TEST()
Application.DisplayAlerts = False

亲，你这段VBA的作用是什么呀？

Peny2020

seven_xl 发表于 2023-4-26 16:38
亲，你这段VBA的作用是什么呀？

?你不是要筛选”304-F-C"，然后将物料描述内容复制到参考编号吗？
还是说我理解错了？

金小墨

为什么要这么复杂呀，不能直接用公式F列=L列吗？
一定要复制的话，可以用可见单元格，选择L列要复制的区域数据，按F5，跳出定位窗口，选择可见单元格，再按ctrl+c，鼠标点到F列，右键，选择性黏贴，黏贴值到单元格。

金小墨

建议你可以设置条件，对于要筛选的值都标个颜色，然后对于该颜色，一次性对应复制过去，或者用辅助列公式对应过去，这样不用一个一个的复制了。

seven_xl

各位你们可能没看懂我的意思，或者说我没说清楚。我再举个例子吧。


比方说这个表格，我是筛选了一些数据，筛选了物料编号都是4开头的物料，然后我要把红框里面绿色那一部分的数据，就是标绿的那部分复制粘贴到橙色框里面去，是在筛选的状态下一比一的粘贴过去。

如果你直接复制粘贴的话就是这个样子的，他不会沾到我想要的单元格的。我要的是这样的效果：

但是我不知道该怎么一次性完成这个复制粘贴的动作，注意是在不取消筛选的状态下完成，或者你们有什么比较简单的方法完成这样的复制粘贴，用公式也不行，公式无法直接填充，必须一个一个去选。
我这么说不知道各位能不能明白呢？

Peny2020

Sub TEST()
Application.DisplayAlerts = False

Dim rng, a, b As Range
    Set rng = Sheet1.Range("A1").CurrentRegion
    Set a = Range("F2:F" & Range("K65536").End(3).Row)
    Set b = Range("L2:L" & Range("K65536").End(3).Row)
    rng.AutoFilter
    rng.AutoFilter Field:=12, Criteria1:="304-F-C" '你要变成筛选物料号，那这里把12变成7，“304-F-C"变成你要的物料号就好了。
    a.SpecialCells(xlCellTypeVisible).Value = b.SpecialCells(xlCellTypeVisible)
    rng.AutoFilter
   
Application.DisplayAlerts = True
End Sub
我这个代码就是在筛选状态下把H的内容复制到G列，然后取消筛选状态。
就跟你说的效果一样啊？没看懂哪不对了，还是说你想保留在筛选的状态？

seven_xl

Peny2020 发表于 2023-4-27 14:51
Sub TEST()
Application.DisplayAlerts = False

我这个是需要一下子搬运多个不同的数据的话， 你这个编码怎么写法，你看我后面的那个案例，我通常是会筛选出很多不同的数据，要同时一起粘贴过去呢。