Ошибка вставки данных на других компьютерах

Question

Я закончил небольшой Проект на работе и разослал Файл моим коллегам.Я сохранил файл как .xlsm для включения макроса.Я использовал код около 2 недель, и у меня никогда не было проблем с ним.

Однако, когда я отправлял их своим коллегам, один макрос не работал.У меня есть несколько макросов в файле, и только один из них больше не работает, поэтому я считаю, что это проблема макроса, а не новой версии Excel:

Sub Loomisinsert()

    'Deletes old Data and inserts new


    Sheets("MSE").Range("B2:J1000").Clear
    Sheets("MSE").Range("B2:B2").Select
    Sheets("MSE").Paste


    'deletes unnecessary data

    Sheets("MSE").Range("K3:N5000").Delete
    Sheets("MSE").Range("P3:Q5000").Delete
    Sheets("MSE").Range("S3:U5000").Delete
    Sheets("MSE").Range("L3:L5000").Delete


End Sub

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

Как видите, я попытался указать, какой лист использовать для каждой команды.И это прекрасно работает для меня, но не на моем компьютере Coworkers.У них Excel 2013 и 2010 тоже самое, что и я.

Answer 1

Ниже приведены некоторые предложения.Измените и попробуйте:

Option Explicit

Sub Loomisinsert()

    With ThisWorkbook.Worksheets("Sheet1")

        'Deletes old Data and inserts new
        .Range("B2:J1000").Clear
        .Range("B5").Copy .Range("B2") '<- Easy way to copy - paste

        'Deletes unnecessary data
        .Range("K3:N5000,P3:Q5000,S3:U5000").Clear'<- Does not need to use "L3:L5000" because included in "K3:N5000". Additionally, have in mind that *.Delete* may cause problem with columns & rows. It s more preferable to use *.Clear* or *.Clearcontents*. *.Clear* used to clear both formats and value. In the other hand *.Cleatcontents* just empty the cell from value.

    End With

End Sub