Question

有人知道我还需要使用什么其他命令来复制下面的4行中的“总WI费用”行标签吗？

以下代码将找到“总WI费用”并将其复制到一个范围，但是，我只想查找总数并将数据复制到4行以下。它们需要复制并粘贴为值。

Sub Test()
  Dim ws As Worksheet
  Set ws = ActiveSheet 
  Dim rw As Long, Cell As Range
  For Each Cell In ActiveSheet.Range("B:B")
    If Cell.Value = "Total WI Expenses" Then
      Cell.EntireRow.copy
      Range("A71").PasteSpecial (xlPasteValues)
      Application.CutCopyMode = False
    End If
  Next
End Sub

衷心感谢您的协助。

Answer 1

您可以首先检查（如果有）列中的内容，然后再检查所需值，而不是在整个（！）列上运行allprojects { repositories { jcenter() } }循环。如果找到结果，则可以使用它的行号。

您可以只分配For而不是复制/粘贴来获取值而无需格式化。

此代码将整行的值复制到下面的四行中。

.Find

查找总描述并复制粘贴值向下4行

1 个答案: