Meg lehetne oldani az alábbi makróval:

Sub kijeloles()
   Dim sor As Long, szoveg As String

   For sor = 12 To 9432 Step 10
      If sor < 9432 Then szoveg = szoveg & "A" & sor & "," Else szoveg = szoveg & "A9432"
   Next
   Range(szoveg).Select
End Sub

ha nem lenne a szoveg változó túl hosszú, 5549 karakter. A címek összefűzése helyett azt kellene megadnod, hogy mi legyen ezekben a cellákban, pl. Range("A" & sor).Interior.ColorIndex = 3