1

我正在尝试在 Excel VBA 2007 中创建一个宏来搜索选定的字段，如果它在一行中的任何位置找到某个字符串，它就会将该行复制并粘贴到另一个工作表中。

但是，我收到一个编译错误：在子级别（第 1 行）需要对象。到目前为止，我的代码如下。

Sub SearchCopyPaste()
'
' SearchCopyPaste Macro
' Searches for a string. If it finds that string in the line of a document then it copies and pastes it into a new worksheet.
'
' Keyboard Shortcut: Ctrl+Shift+W
'

    Dim sourceSheet, destinationSheet As Worksheet
    Set sourceSheet = Worksheets(1)               'Define worksheets
    Set destinationSheet = Worksheets(2)

    Dim selectedRange As Range                    'Define source range
    Set selectedRange = Selection

    Dim numRows, numColumns As Integer                            'Determine how many rows and columns are to be searched
    Set numRows = Range(selectedRange).Rows.Count
    Set numColumns = Range(selectedRange).Columns.Count

    Set destinationRowCount = 1                     'Counter to see how many lines have been copied already
                                                    'Used to not overwrite, can be modified to add header,etc

    Dim searchString As String                      'String that will be searched. Will eventually be inputted
    Set searchString = "bccs"                       'Will eventually be put into msgbox

    For rowNumber = 1 To numRows
        If InStr(1, selectedRange.Cells(i, numColumns), searchString) > 0 Then
            selectedRange.Cells(rowNumber, numColumns).Copy Destination:=destinationSheet.Range(Cells(destinationRowCount, numColumns))
            destinationRowCount = destinationRowCount + 1
    Next rowNumber

End Sub
4

1 回答 1

0

您使用的Set关键字错误。在上面的代码中，您只需要使用它来分配Worksheet和Range对象，而不是整数和字符串。删除Set这些行上的关键字。

End If此外，您的For循环中缺少一个。

于 2013-06-07T16:22:37.810 回答