Vba 如何将单元格值复制并粘贴到同一工作簿中的其他工作表

目前我正在制作一个宏，需要做以下事情

1它查看顶行，返回一个命名列

2然后选择该列

3然后在列中循环查找第一个大于零的值

4然后取第一个实例的行值

5从我的公共变量中，我得到一个列值

6我结合行值和列值来查找数据点

最后，我想将此值复制到同一工作簿中的另一个工作表，称为临界信号

这就是我遇到麻烦的地方。每次我运行代码时，都会出现错误1004。我似乎无法将所选单元格复制并粘贴到第二张工作表中。有什么想法吗

Sub Locate_Start_Of_Test()
'Use the Find Method to identify signal columns
Dim SigCol As Integer
Dim SigRow As Integer
Dim Cell As Range
Dim CritRow As Integer
'Variables to hold critical point of Start of Test

SigRow = 1 'Row Location of Signal Names

SigCol = Sheet1.Cells(SigRow, 1).EntireRow.Find(What:="EngAout_N_Actl (rpm)",     LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Column
'SigCol now holds the value of rpm column


Columns(SigCol).Select

CritRow = 1

For Each Cell In Selection
    If Cell.Value > 0 And Cell.Value <> "EngAout_N_Actl (rpm)" Then
        Exit For
    End If
    CritRow = CritRow + 1
Next Cell

Sheets(1).Range(Cells(CritRow, Trip_point)).Copy
Sheets("Critical Signals").Activate
Range("E4").Select
ActiveSheet.Paste

End Sub

---

您已接近，只需从此行中删除范围：

Sheets(1).Range(Cells(CritRow, Trip_point)).Copy

所以它看起来像这样：

Sheets(1).Cells(CritRow, Trip_point).Copy

另外，我建议不要使用Active或Select语句。例如，您要复制和粘贴的4行代码可能会如下所示：

Sheets("Critical Signals").Range("E4") = Sheets(1).Cells(CritRow, Trip_point)

---

非常感谢你！我会投票给你，但遗憾的是，我需要超过15名代表。不用担心，很乐意帮助。