请教如何实现复制排序之后再复制？

gzminge

1.把区域C1:V80复制；

2.以粘贴数值的方式，粘贴在AA1:AT80；
3.对AA1:AT80的每一列进行降序排序；
4.再把Y1:AT80复制；


新建 Microsoft Excel 工作表.zip (12.86 KB, 下载次数: 4)

2024-8-1 21:41 上传

点击文件名下载附件

quqiyuan

参与一下，仅供参考。。。

gzminge

quqiyuan 发表于 2024-8-1 22:26
参与一下，仅供参考。。。

排序不成功

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.2
   
2.     Application.ScreenUpdating = False
   
3.     r = Cells(Rows.Count, 3).End(3).Row
   
4.     arr = [c1].Resize(r, 20)
   
5.     [aa1].Resize(10000, 20) = ""
   
6.     [aa1].Resize(UBound(arr), UBound(arr, 2)) = arr
   
7.     arr = [aa1].Resize(r, 20)
   
8.     For j = 27 To UBound(arr, 2) + 26
   
9.         Set Rng = Cells(1, j).Resize(r)
   
10.         Rng.Sort Cells(1, j), 2
    
11.     Next
    
12.     Set Rng = Nothing
    
13.     Application.ScreenUpdating = True
    
14.     MsgBox "OK！"
    
15. End Sub
    

复制代码

quqiyuan

gzminge 发表于 2024-8-1 23:00
排序不成功

把你的需求和样板做一下，才知道你的具体想法

gzminge

ykcbf1100 发表于 2024-8-2 06:57
参与一下。。。

谢谢大哥！
我在MSBOX前加上了这一段
Range("Y1:AT25").Select
    Selection.Copy

请问可以吗？

ykcbf1100

gzminge 发表于 2024-8-2 21:15
谢谢大哥！
我在MSBOX前加上了这一段
Range("Y1:AT25").Select

可以。。。

gzminge

ykcbf1100 发表于 2024-8-4 08:03
可以。。。

早上好，
我查找A1:A110里第一个999的格子，并进行数值粘贴，你看看这样写行不行：

Sub Macro1()


Dim searchRange As Range
Set searchRange = Range("A1:A110")

Dim findValue As Variant
findValue = "999" '
Dim resultCell As Range
Set resultCell = searchRange.Find(findValue) '使用Find方法查找值 resultCell.Activate

resultCell.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False

End Sub