Учитывая, что об этом спросили 2 года назад, я уверен, что вы либо решили проблему, либо пошли дальше. Но это вошло в верхнюю часть списка без ответа, так что ... здесь-вперед!
Чтобы ответить на первый вопрос, есть ли более эффективный способ? Часть, которой вы поделились, кажется, будет запущена вручную, то есть программа не запустится, если вы не выполните действие. Я бы попытался автоматизировать эту задачу с помощью процесса, управляемого событиями. Это может быть сделано множеством разных способов, и мне нужно знать больше о вашем рабочем процессе, чтобы получить какую-либо значительную эффективность.
И второй вопрос, о смене электронной почты. Виды открытого вопроса с учетом текущего состояния кода. Краткое простое объяснение состоит в том, чтобы сохранить значение ячеек в переменной или двух, а затем использовать эту переменную в своем электронном письме.
Например, если у вас была переменная с ужасным именем variableX, и эта переменная содержала диапазон F3, тогда ваше электронное письмо могло бы использовать variableX.
Простое изменение, чтобы добавить информацию:
,Subject = "The cell at " & variableX.address & " is " & variableX. value & " test succeeded"