Скопируйте диапазон с помощью косвенного

Question

Скопируйте диапазон с помощью косвенного

Вот решение в словах.

Слева сдвиньте целое число с начальным значением 1 n раз, а затем выполните AND с исходным байтом. Если результат отличен от нуля, бит устанавливается иначе. :)

0

appscript

задан Marc 20 March 2019 в 01:29

1 ответ

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

appscript

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

score 0 · Answer 1

Надеюсь, этот код станет хорошим началом:

Sub CopyPaste()
    Dim rngCopy             As Excel.Range
    Dim rngPaste            As Excel.Range

    With Sheet1
        Set rngCopy = .Range(.Range("N1").Value)
        Set rngPaste = .Range("A1")
        rngCopy.Copy
        rngPaste.PasteSpecial (xlPasteAll)
    End With
End Sub

Этот код предполагает, что вы копируете данные из диапазона, указанного в ячейке N1, и вставляете их в ячейку A1 (вы можете легко изменить их). изменяя параметр rngPaste).

Дайте мне знать, если у вас есть какие-либо вопросы. Береги себя.