Question

我试图遍历各种工作簿并将数据粘贴到另一个基于单元格值的“合并”工作簿中。

工作簿工作簿包含我想要循环的数据，并与相邻的两列一起复制。

工作簿B是我要粘贴数据的地方。

工作簿A - A列包含数值。我想仅在列A2的值在1-299之间时才复制数据的单元格A2，B2，C2。将这些复制的单元格粘贴到两个工作簿B列A，B，C中，从下面粘贴的最后一个值开始。

然后遍历下一行，检查其值是否在1-299之间。

然后我会将其应用到许多电子表格中，但是现在我只想获得一个副本并粘贴工作，这样我就可以理解如何应用它。

Answer 1

你有多少VBA知识？您可以尝试更改以下用于类似内容的代码，尽管它有一个输入框。

    Option Compare Text
Public Sub TeamReport()
    Dim strFind As String
    Dim i As Long, j As Long
    Dim wsFind As Worksheet
    Dim wsPaste As Worksheet

    strFind = InputBox("Enter Team Name Here")

    Set wsFind = Sheets("Complete Listing")

    Set wsPaste = Sheets("Team Report")


    j = 3


Worksheets("Team Report").Range("A3:DJ300").ClearContents
    For i = 2 To wsFind.UsedRange.Rows.Count
        If wsFind.Range("C" & i) = strFind Then
            wsFind.Range(i & ":" & i).Copy Destination:=wsPaste.Range(j & ":" & j)
            j = j + 1
        End If
    Next i


Worksheets("Team Report").Select
End Sub

它有一个输入框来查找特定值，但可能可以帮助您入门。

根据单元格值复制和粘贴

1 个答案: