查找复制选择性粘贴

sero61

查找复制选择性粘贴

烦请大佬指点，在线等   拜谢

通过find查找相应值所在单元格，以此定位，选择性粘贴到定位区域

sero61

请帮忙看看我的问题出在哪 find返回的是值?不是单元格对象？

sero61

顶顶  咪咪妈呀 大神出现

夏天的风shh4695

公式即可搞定。
=IF(LEFT($C1,1)="D",OFFSET($C1,COLUMN(A$1)-1,),"")
另回答你上面的问题：VBA里FIND返回的是单元格对象。

bxm78

没看懂需求.

sero61

bxm78 发表于 2023-6-2 15:25
没看懂需求.

需要的结果在旁边边啊

sero61

夏天的风shh4695 发表于 2023-6-2 15:20
公式即可搞定。
=IF(LEFT($C1,1)="D",OFFSET($C1,COLUMN(A$1)-1,),"")
另回答你上面的问题：VBA里FIND返 ...

公式没问题
能否赐教代码的方法

sdytsxd991122

不知理解正确与否？

18380222672

Sub s()
Dim rg As Range
For Each rg In Range("c1:c55")
    If Not rg.Find("D") Is Nothing Then
    rg.Resize(5, 1).Copy
    rg.Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
    End If
Next rg
End Sub

sero61

sdytsxd991122 发表于 2023-6-2 15:57
不知理解正确与否？

感谢解惑
Sub s()
Dim rg As Range
For Each rg In Range("c1:c55")
   ' Debug.Print rg.Find("D")
    If Not rg.Find("D") Is Nothing Then
    Debug.Print rg.Address
    rg.Resize(5).Copy        ‘这一句为什么是.resize(5),用resize(5,0)就报错？
    rg.Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    End If
Next rg
End Sub