透过按钮，执行资料复制

lkk0063

爱疯 发表于 2019-11-28 17:11
Sub cp()
    Dim p, f, ID, wb, rng
    Application.ScreenUpdating = False

版主你好,
测试后已经可以使用了，另外我想在 Test-FQC 档案.批号-后面固定都改成-FQC
ex : 19032821-2320 ==>19032821-FQC
ex : 19032821-23    ==>19032821-FQC
ex : 19032821-2314 ==>19032821-FQC

爱疯

g.rar (38.39 KB, 下载次数: 5)

2019-11-29 11:15 上传

点击文件名下载附件