请教如何把对应的单元格复制粘贴过来，谢谢！

gzminge

在区域AI1585:BB2584中，根据每个单元格的名字，在区域AE1284:AE1583中找出相同的名字，然后在在区域AE1284:BB1583中，把对应的单元格复制，连公式在内全部粘贴到AI1585:BB2584中。

比如，AI1618的内容是是“X9右空得”，在AE1373找到相同的名字，然后找出对应的单元格是AI1373，复制AI1373，连公式在内全部粘贴到AI1618。

谢谢老师！



能定（1）.rar (384.54 KB, 下载次数: 10)

2024-7-26 07:17 上传

点击文件名下载附件

ykcbf1100

看不懂。你这样不是自己复制自己吗？

quqiyuan

参与一下，供参考。。。

peteryhr

Sub byPeteryhr()
    Dim i&, j&, arr, r As Range, d As Object
    Set d = CreateObject("Scripting.Dictionary")
    With Worksheets("亲民")
        arr = .Range("AE1284:AE1583").Value
        For i = 1 To UBound(arr)
            If arr(i, 1) <> "" Then d(arr(i, 1)) = i + 1283
        Next
        Set r = .Range("AI1585:BB2584")
        arr = r.Value
        For i = 1 To UBound(arr)
            For j = 1 To UBound(arr, 2)
                If d.exists(arr(i, j)) Then
                    .Cells(d(arr(i, j)), j + 34).Copy r.Cells(i, j)
                End If
            Next
        Next
    End With
    Set r = Nothing
    Set d = Nothing
End Sub

gzminge

ykcbf1100 发表于 2024-7-26 08:01
看不懂。你这样不是自己复制自己吗？

是先把对应的单元格找出来，然后复制，粘贴在指定的位置。

ykcbf1100

gzminge 发表于 2024-7-26 13:25
是先把对应的单元格找出来，然后复制，粘贴在指定的位置。

有人帮你解决就行。

gzminge

quqiyuan 发表于 2024-7-26 08:11
参与一下，供参考。。。

刚试了不行，只把数值复制过去，能不能把公式等全部复制粘贴过去？

gzminge

peteryhr 发表于 2024-7-26 09:31
Sub byPeteryhr()
    Dim i&, j&, arr, r As Range, d As Object
    Set d = CreateObject("Scripting. ...

大哥好，刚试了不行，只把数值复制过去，能不能把公式等全部复制粘贴过去？

gzminge

ykcbf1100 发表于 2024-7-26 13:38
有人帮你解决就行。

刚试了，只是把对应的单元格的数值粘贴过去。能不能把公式复制过去？

gzminge

peteryhr 发表于 2024-7-26 09:31
Sub byPeteryhr()
    Dim i&, j&, arr, r As Range, d As Object
    Set d = CreateObject("Scripting. ...

谢谢大哥，经过反复试验，你的方法是对的！