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

zyhui1961

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

注意“终止”行在哪一行，根据文档内容的多少，在哪一行是不固定的，也许在30行，也许在90行！！！

liulang0808

没有附件，猜一下
楼主可以尝试使用end来定位所谓的“终止行”，看看是否可行，或者find函数，usedrange等

zyhui1961

liulang0808 发表于 2023-4-10 07:45
没有附件，猜一下
楼主可以尝试使用end来定位所谓的“终止行”，看看是否可行，或者find函数，usedrange等

版主您好！
说了不怕你笑话，我小学二年级毕业，上学的时候大部分时间在秧田里，没见过什么是ABC，六十多的糟老头一枚，悟性又差。到这来也学到了很多东西，但是好多东西都是靠热心老师朋友们伸出的援手，说白了就是伸手拿现成的（脸红）。你说的Enb对我来说真的不懂，确实惭愧，给这个大家庭丢脸了！谢谢版主！！！
但是在这拿到的东西，用在现实中，单位好多人“佩服”我是“高手”，谢谢版主，谢谢这个平台！

zyhui1961

liulang0808 发表于 2023-4-10 07:45
没有附件，猜一下
楼主可以尝试使用end来定位所谓的“终止行”，看看是否可行，或者find函数，usedrange等

版主有宽余时间伸一下援手，没有时间忽略，还是非常感谢您的回复，谢谢！

下面是昨天一个叫“半百”的朋友给我的代码，短短几句代码解决了我的大问题（是另外一个问题），非常感谢！
贴出来一是表示感谢，二是作为同龄人感到自己的惭愧，三是分享给像我这样的“老白先生”也许有用。

liulang0808

zyhui1961 发表于 2023-4-10 08:18
版主有宽余时间伸一下援手，没有时间忽略，还是非常感谢您的回复，谢谢！

下面是昨天一个叫“半百”的 ...

解决就好了
不过以后如果提问，建议上传模拟附件，便于大家理解处理

zyhui1961

liulang0808 发表于 2023-4-10 08:24
解决就好了
不过以后如果提问，建议上传模拟附件，便于大家理解处理

没有解决，这是昨天的另外一个求助完美解决了。这个贴子还没解决，我又补上了附件，谢谢！

liulang0808

如果楼主的最后一个单元格中有“终止”字样，可以考虑find定位处理

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim rng As Range
   
5.     With Worksheets("sheet1")
   
6.         Set rng = .Columns(4).Find(what:="终止", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious)
   
7.         If Not rng Is Nothing Then
   
8.             .Range("c6:d6").Copy
   
9.             .Range("c6:d" & rng.Row - 1).Select
   
10.             .Paste
    
11.         End If
    
12.     End With
    
13. End Sub
    

复制代码

chxw68

详见附件。

ykcbf1100

附件供参考。。。