Question

我有一些代码可以搜索我需要复制的文本，但我意识到这是继承公式。我需要它来简单地粘贴单元格的值。我不知道如何编辑以下内容以实现这一目标。有什么想法吗？

 With Initiatives.Range("B3:B500")

    Rcount = 0

    For I = LBound(MyArr) To UBound(MyArr)


        Set Rng = .Find(What:=MyArr(I), _
                        After:=.Cells(.Cells.Count), _
                        LookIn:=xlFormulas, _
                        LookAt:=xlPart, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)
        If Not Rng Is Nothing Then
            FirstAddress = Rng.Address
            Do
                Rcount = Rcount + 1

                Rng.EntireRow.Copy NewSh.Rows(Rcount)



                Set Rng = .FindNext(Rng)
            Loop While Not Rng Is Nothing And Rng.Address <> FirstAddress
        End If
    Next I
End With

Answer 1

尝试将复制代码修改为：

TinyTds::Error: Invalid object name 'genus'.: EXEC sp_executesql N'SELECT [genus].* FROM [genus]'
Extracted source (around line #14):
12
13  <tbody>
14    <% @genera.each do |genus| %>
15      <tr>
16        <td><%= genus.name %></td>
17        <td><%= link_to 'Show', genus %></td>

这使您可以选择复制整行，并选择所需的粘贴方法。

Answer 2

而不是将来源从一个范围复制到目的地范围

.on()

目的地范围值=源范围值。就像使用数组填充范围值一样。

Rng.EntireRow.Copy NewSh.Rows(Rcount)

编辑代码只复制值而不是公式

2 个答案: