Sub Макрос1()
' Макрос1 Макрос
' Макрос записан 22.12.2009 (Snipe)
Dim asd As String
For i = 1 To 40
Cells(i, 1).Select
asd = Selection.Address
If InStr(1, asd, ":") > 0 Then
If Mid(asd, InStr(1, asd, ":") + 2, 1) = "G" Then
Cells(i, 8) = "Группа"
Else
Cells(i, 8) = "Какой-то мудак объединил ячейки"
End If
End If
Next i
Cells(1, 1).Select
End Sub
|