上次发帖沉了，再次求助

ylm1098

A这列设为保护状态---先解除保护呀

白云家

ylm1098 发表于 2022-11-1 21:48
A这列设为保护状态---先解除保护呀

我知道，改了之后可以跑，就是为了防止自己误删设为保护状态后跑不起来。

白云家

cutecpu 发表于 2022-10-26 14:12
Sub demo()
   rs = Sheets(1).[c65536].End(xlUp).Row
   If rs < 4 Then Exit Sub

大神，上次根据你的公式进行不断调试，已经可用了，不过不知道为什么，用了一段时间后就会提出这个提示如同1，然后重新弄个一模一样的没用过的表格就又可以用了。试问公式还有那可以改进的吗？C:\Users\Administrator\Desktop\图一.png刚才有事中断了下，抱歉。

cutecpu

白云家 发表于 2023-3-6 15:38
大神，上次根据你的公式进行不断调试，已经可用了，不过不知道为什么，用了一段时间后就会提出这个提示如 ...

會不會是 下面這段出問題:

Sheets(1).Range("c4:z" & rs).Copy
.Range("a" & r + 1).PasteSpecial Paste:=xlPasteValues


可以
debug.print rs
debug.print r

看 rs 跟 r 的值有沒有異常

白云家

cutecpu 发表于 2023-3-6 15:44
會不會是 下面這段出問題:

Sheets(1).Range("c4:z" & rs).Copy

以上图2的公式可用，不过有时候不知道那碰到了，就会出现图1的提示，于是要重新复制到没用过的表里再开始，又可以了

白云家

cutecpu 发表于 2023-3-6 15:44
會不會是 下面這段出問題:

Sheets(1).Range("c4:z" & rs).Copy

你说的try是要怎么操作呢？能具体点吗？