关于筛选写值

sampsonpon

将工作表"Picking List"里筛选后的值I列、K列、D列、Q列分别写入到工作表"ZLWM_EXPICK" A、B、C、D列(递增写入)

ykcbf1100

看来你跟筛选过不去了。

sampsonpon

ykcbf1100 发表于 2024-7-30 20:48
看来你跟筛选过不去了。

也是，碰到好多筛选问题，老师帮看看吧

longwin

Sub copytest()
With Sheet1
    iRow = .Range("D" & Rows.Count).End(3).Row
    Set Rng = .Range("A5:Z" & iRow)
    arr = Rng.SpecialCells(xlCellTypeVisible).Value
End With
With Sheet5
    iRow = .[a1].End(xlDown).Row + 1
    ReDim brr(1 To UBound(arr), 1 To 5)
    For i = 1 To UBound(arr)
        brr(i, 1) = arr(i, 9)
        brr(i, 2) = arr(i, 11)
        brr(i, 3) = arr(i, 4)
        brr(i, 4) = arr(i, 17)
        brr(i, 5) = "Y"
    Next
    .Cells(iRow, 1).Resize(UBound(brr), UBound(brr, 2)) = brr
End With
End Sub

醉眼看尘世

录个定位可见单元格，复制，粘贴，删除的宏，就行了。

sampsonpon

醉眼看尘世 发表于 2024-7-30 22:14
录个定位可见单元格，复制，粘贴，删除的宏，就行了。

哎！搞不定啊

longwin

sampsonpon

longwin 发表于 2024-7-30 22:01
Sub copytest()
With Sheet1
    iRow = .Range("D" & Rows.Count).End(3).Row

报错了，如下图


因为是在下图这里call它的，所以它是在这儿被循环的，
也就是它单纯的在这儿将一次筛选后的值I列、K列、D列、Q列对应写入到工作表"ZLWM_EXPICK" A、B、C、D列(递增写入)然后给E列标记"Y",直到A列空白为准；然后它在这儿被循环将第二次、第三次……筛选后的内容复制粘贴到工作表"ZLWM_EXPICK"里……

longwin

这样试试：

Sub copytest()
    iRow = Sheet1.Range("D" & Rows.Count).End(3).Row
    Set Rng = Sheet1.Range("A5:Z" & iRow)
    arr = Rng.SpecialCells(xlCellTypeVisible).Value
    iRow = Sheet5.[a1].End(xlDown).Row + 1
    ReDim brr(1 To UBound(arr), 1 To 5)
    For p = 1 To UBound(arr)
        brr(p, 1) = arr(p, 9)
        brr(p, 2) = arr(p, 11)
        brr(p, 3) = arr(p, 4)
        brr(p, 4) = arr(p, 17)
        brr(p, 5) = "Y"
    Next
   Sheet5.Cells(iRow, 1).Resize(UBound(brr), UBound(brr, 2)) = brr
End With
End Sub