Вопрос : Извлекайте рядки и содержание

Мне нужно помощь специалистов написать сценарий может уничтожить рядок между линией 12 «для того чтобы подытожить часы» гребет и освобождает все содержание между линией 7 к «полным часам» гребет. Специалисты упования помогут мне написать этот сценарий. Прикреплен workbook для perusal специалистов.


class= " lastRow
>Attachments " имени " class= class= " значение "
>
class= " fileInfo "
title= " " filename class= " RemoveData.xls (93 KB)  яваскрипт " href= " " attachmentDetails class= (тип архива детали)  
class= " описание "
xls
class=
>
class=

Ответ : Извлекайте рядки и содержание

Oops, огорченное, вместо ясности, вы должны положить ClearContents, smogли увидеть его от вашего вопроса.

Sub DeleteRows ()
Тусклый lr, I как длиной
Тусклый ws как рабочий лист
Установите ws = ThisWorkbook.Worksheets («TaskTracker»)
lr = ws. Ряд («A65536»). Конец (xlUp). Рядок
Для I = lr - 1 до 12 разделу -1
    ws. Клетки (I, 1).EntireRow.Delete
Затем iий
Для I = от 11 до 7 разделу -1
    ws. Клетки (I, 1).EntireRow.ClearContents
Затем iий
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us