Здравствуйте! Как сделать так, чтобы заданные ячейки, в которых значения отличаются от нужного нам (в моем случае буква Х), становились бы пустыми, а затем ячейки, значения в которых совпадают с нужными нам значениями (буквой Х) заменялись бы на другие нужные нам значения (в моем случае нужно, чтобы на 1)?
Здравствуйте! Как сделать так, чтобы заданные ячейки, в которых значения отличаются от нужного нам (в моем случае буква Х), становились бы пустыми, а затем ячейки, значения в которых совпадают с нужными нам значениями (буквой Х) заменялись бы на другие нужные нам значения (в моем случае нужно, чтобы на 1)?biomirror
Sub ttt() Dim r As Range With Range("A1", Cells(Rows.Count, 1).End(xlUp)) Set r = .Find("X") If r Is Nothing Then Exit Sub .ColumnDifferences(r).ClearContents .SpecialCells(2).Value = 1 End With End Sub
[/vba]
biomirror, привет попробуйте [vba]
Код
Sub ttt() Dim r As Range With Range("A1", Cells(Rows.Count, 1).End(xlUp)) Set r = .Find("X") If r Is Nothing Then Exit Sub .ColumnDifferences(r).ClearContents .SpecialCells(2).Value = 1 End With End Sub
nilem, да, спасибо, это то, что мне нужно. Только я VBA не знаю, не могли бы вы подсказать, что здесь к чему) а именно - как я могу самостоятельно задать нужный мне диапазон ячеек?
nilem, да, спасибо, это то, что мне нужно. Только я VBA не знаю, не могли бы вы подсказать, что здесь к чему) а именно - как я могу самостоятельно задать нужный мне диапазон ячеек?biomirror
nilem, Ох уж этот эксель, пока сформулируешь, то что хочешь, - голову сломаешь... Как задать значения, скажем для диапазона A1:A5, Ячейки A8, Диапазона, A10:12?, строки 13, диапазона A15:C16 ?
nilem, Ох уж этот эксель, пока сформулируешь, то что хочешь, - голову сломаешь... Как задать значения, скажем для диапазона A1:A5, Ячейки A8, Диапазона, A10:12?, строки 13, диапазона A15:C16 ?biomirror