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

zyhui1961

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

谢谢回复，一定是我没表述清楚误导你了，要不然像你这样大师出手，这一点“小事”一定全迎刃而解的！

zyhui1961

ykcbf1100 发表于 2023-4-10 12:54
代码没问题啊。

是不是我的电脑问题？
执行代码后，只复制了3行数据。我发视频您看一下，谢谢！

tanglf188

zyhui1961 发表于 2023-4-10 12:35
谢谢回复！
你这个很好，但是中间有断行（比如说这一列有一个单元格是空）后面的不会复制粘贴。
另外， ...

这是自己选定复制、粘贴区域的代码

1. Sub test6()
   
2.     On Error Resume Next
   
3.     Dim last&, arr
   
4.     Set mr = Application.InputBox("请选定待复制单元格区域:", Type:=8)
   
5.     If mr.Count = 0 Then MsgBox "操作已取消！": Exit Sub
   
6.     arr = mr.Value
   
7.     Set mc = Application.InputBox("请选定待粘贴起始单元格:", Type:=8)
   
8.     If mc.Count = 0 Then MsgBox "操作已取消！": Exit Sub
   
9.     mc.Resize(UBound(arr), UBound(arr, 2)) = arr
   
10. End Sub

复制代码

准提部林

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

1) 如果那个“终止”行不局限于某一列的单元格就更方便了??
__若“终止”只會有一個, 才可能正確取得

2) 原列若是公式, 用copy可能因參照位址變動而錯誤
   ,即使再貼成值也是錯的!!!

准提部林

"终止"不限列, 但限只有一個//

Sub TEST_A1()
Dim xF As Range
Set xF = Cells.Find("终止", Lookat:=xlWhole)
With Range(xF(0), Cells(6, xF.Column))
     [e6].Resize(xF.Row - 6) = .Value
End With
End Sub

ykcbf1100

zyhui1961 发表于 2023-4-10 13:14
是不是我的电脑问题？
执行代码后，只复制了3行数据。我发视频您看一下，谢谢！

如果范围用Usedrange，那表中只能有一个终止，不能有二个以上（代码中的find函数找到第一个遇到的“终止”就结束查找了，所以，行号不一定是最大行）。如果一定要有多个，那就固定列号。
范围还是改回Columns吧，这样不容易错。

zyhui1961

ykcbf1100 发表于 2023-4-10 16:38
如果范围用Usedrange，那表中只能有一个终止，不能有二个以上（代码中的find函数找到第一个遇到的“终止 ...

解释的很清楚，真的谢谢！！！