复制并粘贴整个行 [英] Copy and Paste Entire Row

问题描述

功能：我正在开发一个小项目，我需要在列中搜索单词未知，如果它包含该单词，然后将整个行复制到新工作表。

问题：我收到对象不支持此属性方法。错误。我相信它是在复制语句（不是目的地）内的某处。这很简单，但我似乎无法解决这个问题。

  Sub CheckRows（）
 Dim b As Range 
 Dim SrchRng As Range 
 
设置b = ActiveWorkbook.Sheets（Sheet 2）。范围（A1）
设置SrchRng = ActiveWorkbook.Sheets（Sheet 1）。范围（G1）
 
 Do While SrchRng.Value<> 
 If SrchRng.Value =UnknownThen 
 Worksheets（Sheet 1）。SrchRng.EntireRow.Copy _ 
目标：=工作表b $ b设置b = b.Offset（1，0）
设置SrchRng = SrchRng.Offset（1，0）
否则：Set SrchRng = SrchRng.Offset（1，0）
 End If 
 Loop 
 
 End Sub 
  

解决方案

尝试 Range.EntireRow.Value 属性

  b.EntireRow.Value = SrchRng.EntireRow.Value 
  

在

  Do While SrchRng.Value<> 
如果SrchRng.Value =未知则
 b.EntireRow.Value = SrchRng.EntireRow.Value 
设置b = b.Offset（1，0）
 SrchRng = SrchRng.Offset（1,0）
否则：设置SrchRng = SrchRng.Offset（1，0）
结束如果
循环
  / pre> 
Function: I am working on a small project where I need to search each cell in a column for the word "Unknown" if it contains that word then copy that entire row on to a new sheet.

Problem: I am getting the "Object doesn't support this property method." error. I believe it is somewhere within the copy statement (not destination). It so simple but I cannot seem to solve this issue.
Sub CheckRows()
Dim b As Range
Dim SrchRng As Range

Set b = ActiveWorkbook.Sheets("Sheet 2").Range("A1")
Set SrchRng = ActiveWorkbook.Sheets("Sheet 1").Range("G1")

Do While SrchRng.Value <> ""     
    If SrchRng.Value = "Unknown" Then
        Worksheets("Sheet 1").SrchRng.EntireRow.Copy _
            Destination:=Worksheets("Sheet 2").b
        Set b = b.Offset(1, 0)
        Set SrchRng = SrchRng.Offset(1, 0)
    Else: Set SrchRng = SrchRng.Offset(1, 0)
    End If
Loop

End Sub

解决方案
Try Range.EntireRow.Value Property
b.EntireRow.Value = SrchRng.EntireRow.Value
In  
Do While SrchRng.Value <> ""
    If SrchRng.Value = "Unknown" Then
      b.EntireRow.Value = SrchRng.EntireRow.Value
    Set b = b.Offset(1, 0)
    Set SrchRng = SrchRng.Offset(1, 0)
    Else: Set SrchRng = SrchRng.Offset(1, 0)
    End If
Loop


                        
这篇关于复制并粘贴整个行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！