请教找出区域中相同数值的第一个格子怎么写

gzminge

1.把AG2536:AG2538复制；

2.找到AG列含有999的第一个格子，点击；
3.执行只粘贴数值的命令。



新建 XLSX 工作表.zip (26.95 KB, 下载次数: 0)

2024-8-4 00:26 上传

点击文件名下载附件

gzminge

用录制只能找到固定的格子，如果第一个999的位置变了就没法找了

gzminge

大家早上好，我自已搞了一下，不知道对不对，请帮忙修改：

Sub Macro1()

Dim searchRange As Range
Set searchRange = Range("AG2536:AG2538")

Dim findValue As Variant
findValue = "999"

Dim resultCell As Range
Set resultCell = searchRange.Find(findValue)

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

End Sub

ykcbf1100

如何找到這個單元格，我上個帖子的代碼中已經有寫了，你自己可以參考一下。

gzminge

ykcbf1100 发表于 2024-8-4 08:20
如何找到這個單元格，我上個帖子的代碼中已經有寫了，你自己可以參考一下。

可是我按照你的写法，不会修改使用

ykcbf1100

gzminge 发表于 2024-8-4 08:41
可是我按照你的写法，不会修改使用

r和c分別是那個單元格的行號和列號。