求助一个宏，可以按需求复制数据

玥儿妈妈

求助一个宏，每次执行的时候可以从月计划表复制自动粘贴周计划表【未来7天的】

格式位置一样，就是按日期提取！！

谢谢老师，高手，指点，在线等，非常感谢

玥儿妈妈

在线等，求指点

HSIAOQIANG

玥儿妈妈 发表于 2023-3-2 12:15
在线等，求指点

這個直接用公式吧

liulang0808

Sub 按钮1_Click()
    Application.ScreenUpdating = False

    For r = 3 To 47
        For c = 2 To 14 Step 2
            If CDate(Cells(2, 2)) = CDate(Sheets("月计划").Cells(r, c)) Then
                For k = 1 To 7
                    Sheets("月计划").Cells(r, c).Offset(1, 0).Resize(10, 2).Copy Cells(5, k * 2)
                    c = c + 2
                    If c > 14 Then
                    c = 2
                        r = r + 11
                    End If
                Next k
                GoTo l1
            End If
        Next c
    Next r
l1:
    Application.ScreenUpdating = True
End Sub

liulang0808

看看理解对不对

玥儿妈妈

liulang0808 发表于 2023-3-2 12:38
看看理解对不对

谢谢老师，就是这样滴，就是这样滴

玥儿妈妈

liulang0808 发表于 2023-3-2 12:38
看看理解对不对

老师，今天的日期执行宏就是提示错误  需要复制的转行了，不能复制了呢

liulang0808

玥儿妈妈 发表于 2023-3-5 17:54
老师，今天的日期执行宏就是提示错误  需要复制的转行了，不能复制了呢

建议上传一下报错文档