求一个代码：复制D6至“终止”行的上1行数据，粘贴数值到C6至“终止”行的上1行。...

tanglf188

1. Sub test6()
   
2.     Dim last&, arr
   
3.     last = ActiveSheet.Range("D6").End(xlDown).Row
   
4.     arr = ActiveSheet.Range("D6:D" & last)
   
5.     ActiveSheet.[C6].Resize(UBound(arr), 1) = arr
   
6. End Sub

复制代码

zyhui1961

chxw68 发表于 2023-4-10 09:31
详见附件。

老师您好！一定是我没说清楚，耽误你，不好意思！
就是将黄色区域的数据复制、粘贴数值到绿色区域：

zyhui1961

ykcbf1100 发表于 2023-4-10 09:37
附件供参考。。。

我的天，这帮老头们真厉害！
就是这样的效果，谢谢！
如果那个“终止”行不局限于某一列的单元格就更方便了（比如不管“终止”在24行的哪一个单元格都可以）。
不过这个已经很好了，感谢！！！

ykcbf1100

zyhui1961 发表于 2023-4-10 09:57
我的天，这帮老头们真厉害！
就是这样的效果，谢谢！
如果那个“终止”行不局限于某一列的单元格就更方 ...

把.Columns(4)改为Usedrange即可。

zyhui1961

ykcbf1100 发表于 2023-4-10 09:37
附件供参考。。。

.Columns(3) = ""’3是什么意思
        r = .Columns(4).Find("终止").Row’4是什么意思
解释一下，我试作更改应用，谢谢！！！

zyhui1961

ykcbf1100 发表于 2023-4-10 09:37
附件供参考。。。

我想改成从P列复制粘贴到E列，老出错，是哪没改对？谢谢！

ykcbf1100

zyhui1961 发表于 2023-4-10 12:30
我想改成从P列复制粘贴到E列，老出错，是哪没改对？谢谢！

上附件吧。

zyhui1961

tanglf188 发表于 2023-4-10 09:42

谢谢回复！
你这个很好，但是中间有断行（比如说这一列有一个单元格是空）后面的不会复制粘贴。
另外，我想自动选定区域复制、粘贴。

zyhui1961

ykcbf1100 发表于 2023-4-10 12:32
上附件吧。

重新上附件，您再帮我看一下，谢谢！！！

ykcbf1100

zyhui1961 发表于 2023-4-10 12:47
重新上附件，您再帮我看一下，谢谢！！！

代码没问题啊。