Question

我从一张纸上复制了一张值，然后尝试将其粘贴到另一张纸上。问题是我打开第二张纸的方式。我必须打开Excel工作表，然后使用activate方法打开第二个工作表并粘贴它。有没有其他方法可以直接通过给定的路径打开工作表？

Dim FindV As Range
Dim col, col1 As Long
Dim FAV, CC As String

//Relevant Working Code present here//

Selection.Copy
Windows("DS.xlsx").Activate
Set FindV = Range("A1:Z100").Find(What:="Dec Rel", LookIn:=xlValues, LookAt:=xlWhole, _
                MatchCase:=False, SearchFormat:=False)
FAV = FindV.Address(RowAbsolute:=False, ColumnAbsolute:=False)
ActiveCell = Range(FAV).Offset(0, 1)
ActiveCell.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Answer 1

怎么样

FindV.Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

设置FindV下面的一行，你不需要其余的

如何在未激活的情况下打开并将值复制到新工作表？

1 个答案: