VBA для копирования ячеек, если они содержат строку

Question

VBA для копирования ячеек, если они содержат строку

Откройте Preferences, а затем выберите Tools -> Terminal. Снимите флажок с Override IDE shortcuts, а затем вы сможете сфокусировать окно инструментов терминала с помощью Alt-F12 на Mac, а нажатие ESC вернет вас в редактор, в котором вы были последними.

Это может вызвать проблемы, если вы пытаетесь запустить программу в терминале, которая должна получать ключ ESC для правильной работы.

-4

excel vba

задан Lewis Blevins 21 February 2019 в 12:56

1 ответ

Другие вопросы по тегам:

excel vba

Похожие вопросы:

score 0 · Answer 1

Вы можете изменить этот код и попробовать.

Option Explicit

Sub test()

    Dim Lastrow As Long, i As Long
    Dim strToSearch As String
    Dim obj As Object

    Set obj = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

    With ThisWorkbook.Worksheets("Sheet1")

        strToSearch = "Ebay"

        Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = 1 To Lastrow
            'Have in mind that InStr is case sensitive.
            If InStr(1, .Range("A" & i).Value, strToSearch) > 0 Then
                'Just Copy
                .Range("A" & i).Copy
                'Put in clipboard
                obj.SetText .Range("A" & i).Value
                obj.PutInClipboard
                Set obj = Nothing
            End If
        Next i

    End With

End Sub