Как заставить работать приведенный ниже синтаксис (ячейки ("$ variable", "Q"))?

Question

Sub omnama()
ActiveSheet.Range(Cells("$1", "$A"), Cells("$39930", "$Q"))._
RemoveDuplicates Columns:=Array(1, 2, 6, 7, 8, 9), Header:=xlYes
End Sub

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

cells("$39930","$Q") should be replaced with the below code
cells("$variable"),"$Q"))  but gives the error Type mismatch -- run time error 13

Как мне заставить это работать?Если я скажу

cells($variable,"$Q") ' says that invalid character

Итак, как мне поставить переменную Value для приведенного выше кода.Пожалуйста, дайте мне знать. Спасибо заранее

Answer 1

Попробуйте что-то вроде этого:

Sub omnama()

Dim intRow as integer

intRow = 39930

ActiveSheet.Range(Cells("$1", "$A"), Cells("$" & CStr(intRow), "$Q"))._
RemoveDuplicates Columns:=Array(1, 2, 6, 7, 8, 9), Header:=xlYes
End Sub