怎样实现累加复制，谢谢老师！

ztd123

lsc900707 发表于 2019-10-22 17:33
就是之前复制过去的内容不清除。

对的，真诚的感谢版主达人，我弄复杂了，实际就是之前的内容不清楚！感谢！

YZC51

ztd123 发表于 2019-10-22 17:46
对的，真诚的感谢版主达人，我弄复杂了，实际就是之前的内容不清楚！感谢！

那一列的数据累加？

大灰狼1976

为什么样要加CDate()？转换成日期型？

ztd123

YZC51 发表于 2019-10-22 18:58
那一列的数据累加？

首先非常谢谢您，我都不好意思回帖了，“”f“”列的数字是选择复制时的选项，如选择数字“1”时，只复制带“1”的那些行；选择数字“2”时，复制过去的就是带“2”的那些行；复制到sheet3里面时不清除之前的数据，往下延续，再次感谢！

YZC51

ztd123 发表于 2019-10-23 07:47
首先非常谢谢您，我都不好意思回帖了，“”f“”列的数字是选择复制时的选项，如选择数字“1”时，只复制 ...

这样试试
Private Sub CommandButton15_Click()
    Dim r&, ar, br, cr, i&, j&, k&, m&, n&, s$, y&
    n = Val(ComboBox2.Value)
    If n = 0 Then Unload UserForm1: Exit Sub
    With Sheets("Sheet2")
            br = .[a5].CurrentRegion.Value
    End With
    ReDim cr(1 To UBound(br), 1 To UBound(br, 2))
    For i = 1 To UBound(br)
        m = Val(br(i, 6))
        If m = n Then
            k = k + 1
            For j = 1 To UBound(br, 2)
                cr(k, j) = br(i, j)
            Next
        End If
    Next
    With Sheets("Sheet3")
        If k > 0 Then .[a65536].End(xlUp).Offset(1).Resize(k, UBound(cr, 2)) = cr
    End With
    Unload UserForm1
End Sub

ztd123

YZC51 发表于 2019-10-23 09:54
这样试试
Private Sub CommandButton15_Click()
    Dim r&, ar, br, cr, i&, j&, k&, m&, n&, s$, y&
...

非常感谢，太好啦，祝您工作顺利！万事如意！今天没分啦，改天补上！

YZC51

ztd123 发表于 2019-10-23 10:50
非常感谢，太好啦，祝您工作顺利！万事如意！今天没分啦，改天补上！

不客气啦，能用就好