Добрый день, уважаемые пользователи!
Прошу Вашей помощи!
Понимаю, что все должно быть элементарно, но что-то не получается...
У меня на листе "Rank" есть некие результаты расчетов среднего бала студента. Но не у всех он есть и программа, вместо бала, указывает "#ДЕЛ/0!". Мне необходимо скопировать на лист "Zag" только те строки, где есть средний бал.
При запуске макроса выдает ошибку на строке "If Sheets("Rank").Cells(a, 3).Value <> "#ДЕЛ/0!" Then". Я понимаю, что здесь вопрос в типах данных, но как исправить не знаю.
Заранее спасибо за помощь!
Код макроса:
Прошу Вашей помощи!
Понимаю, что все должно быть элементарно, но что-то не получается...
У меня на листе "Rank" есть некие результаты расчетов среднего бала студента. Но не у всех он есть и программа, вместо бала, указывает "#ДЕЛ/0!". Мне необходимо скопировать на лист "Zag" только те строки, где есть средний бал.
При запуске макроса выдает ошибку на строке "If Sheets("Rank").Cells(a, 3).Value <> "#ДЕЛ/0!" Then". Я понимаю, что здесь вопрос в типах данных, но как исправить не знаю.
Заранее спасибо за помощь!
Код макроса:
Код |
---|
Sub Ñêðóãëåííûéïðÿìîóãîëüíèê2_Ùåë÷îê() Dim a As Integer For a = 3 To a + 800 If Sheets("Rank").Cells(a, 3).Value <> "#ДЕЛ/0!" Then Sheets("Zag").Cells(a, 2) = Sheets("Rank").Cells(a, 2) Sheets("Zag").Cells(a, 3) = Sheets("Rank").Cells(a, 3) End If Next a Sheets("Zag").Select End Sub |