将值粘贴到excel VBA中的过滤表中

Question

我正在尝试将特定工作表中的值粘贴到我在不同工作表中的表格中。

我必须按工作表名称过滤表格，然后将我之前复制的值粘贴到“D”列中。

问题在于它将值粘贴在第一行中，而在列“D”的第一个过滤行中粘贴值

这是我正在使用的代码：

Sub copia()
    
    Application.ScreenUpdating = False
    
    Dim hotel As String
    
    hotel = ActiveSheet.Name
         
    Sheets("discounts").Select
    ActiveSheet.ListObjects("discount").Range.AutoFilter Field:=1, Criteria1:=hotel
    
    Sheets(hotel).Select
    Range("d43:d50").Select
    Selection.Copy
    
    Sheets("discounts").Select
    ActiveSheet.ListObjects("discount").ListColumns(4).Range.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    Sheets(hotel).Select
    Range("L33").Select
    
    Application.CutCopyMode = False
    
End Sub

Answer 1

你可以使用这样的东西：

Sub copia()
    Dim hotel As String
    Dim rSource As Range
    Dim rTarget As Range
    Dim cellTarget As Range
    Dim i As Long
    
    hotel = ActiveSheet.Name
    Set rSource = Sheets(hotel).Range("d43:d50")
    Set rTarget = Sheets("discounts").ListObjects("discount").DataBodyRange
    
    i = 1
    For Each cellTarget In rTarget.Parent.Range(rTarget.Columns(4).Address)
      If cellTarget.Offset(, -3) = hotel Then cellTarget = rSource(i)
      i = i + 1
    Next
    
End Sub