| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Программирование, связанное с MS Office > переделать код по столбцу В вместо А |
| Автор: zarrr 18.11.2008, 08:30 |
| Форумчане помогли отличным кодом... работающим по столбцу А Private Sub CommandButton2_Click() Dim xd As String Dim xxd As String Dim L As Integer L = 3000 For x = 1 To L xd = Cells(x, 1) For xx = x + 1 To L xxd = Cells(xx, 1) If x = L Then Exit Sub ElseIf xd = xxd Then Rows(xx).Delete xx = xx - 1 L = L - 1 End If Next xx = x + 1 Next End Sub плиз подскажите как заставить работать его по В? заранее благодарен |
| Автор: Akina 18.11.2008, 10:35 | ||
|
| Автор: zarrr 18.11.2008, 10:49 |
| спасибо |