Вопрос : Доработайте Эксел VBA для того чтобы включить ряд клеток

Мне нужно доработать это Кодего небольш ясное ряд клеток вместо освобождать как раз одну специфически клетку.  Все предложения?

class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
>Sub zapit2 " class= " id= " codeSnippet847420
class=

Ответ : Доработайте Эксел VBA для того чтобы включить ряд клеток

Я увидел ваш более предыдущий вопрос но не вывесил по мере того как cyberkiwi имело покрынный его

Это было мое усилие

Ряд можно изменить здесь

   Установите rng1 = пересеките (ActiveSheet.UsedRange, колонки («a»))

для всей пользы листа

   Установите rng1 = ActiveSheet.UsedRange

для колонок a: D

Установите rng1 = пересеките (ActiveSheet.UsedRange, колонки («a: D»))

etc

Приветственные восклицания

Дэйв
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

'Отожмите Alt + F11 для того чтобы раскрыть редактора Висуал Басич (VBE)
'От меню, выберите Вводить-Модуль.
'Наклеите Кодего в right-hand окно Кодего.
'Отожмите Alt + F11 для того чтобы закрыть VBE
'Идите к макросу инструментов……. Макросы и double-click DelRow_OnColumn

Sub DelRow_OnColumn ()
    Тусклое rng1 как ряд, rng2 как ряд, cel как ряд
    Тусклое FirstAddress как шнур
    Тусклое AppCalc как длиной
    Тусклое MyArr
    Тусклое varr

    MyArr = блок («Widget1», «Product1»)

    Установите rng1 = пересеките (ActiveSheet.UsedRange, колонки («a»))
    Если rng1 ничего после этого, то выходите подводная лодка

    С применением
        AppCalc =. Вычисление
        .ScreenUpdating = ложно
        . Вычисление = xlCalculationManual
    Конец с

    Для каждого varr в MyArr
        Установите cel = rng1.Find (varr, xlValues, xlPart, xlByRows)
        Если не cel ничего после этого
            FirstAddress = cel. Адрес
            Сделайте
                Установите cel = rng1.FindNext (cel)
                'испытайте для избежания закончиться вверх с выборами mutliple в одном рядке для того чтобы уничтожить
                Если cel. Адрес <> FirstAddress после этого
                    Если не rng2 ничего после этого
                        Установите rng2 = соединение (rng2, cel)
                    Еще
                        Установите rng2 = cel
                    Закончитесь если
                Закончитесь если
            Закрепите петлеть пока FirstAddress <> cel. Адрес
        Закончитесь если
    Следующее varr

    Если не rng2 ничего после этого rng2.Clear

    С применением
        .ScreenUpdating = True
        . Вычисление = AppCalc
    Конец с
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us