Вопрос : Данные по экземпляра и затира

Hi специалисты, специалисты потребности

I помогают создать макрос для того чтобы скопировать данные от колонки c, h и j (листа источника) и затира в колонке a, c и e (примирите лист). Я ручно скопировал эти данные внутри примиряю лист для специалистов для того чтобы получить более лучший взгляд. Специалисты упования smogли помочь мне создать эту характеристику.

Attached workbook для специалистов perusal.


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

Ответ : Данные по экземпляра и затира

Этим небольшим изменением освобождает все содержание для того чтобы быть наклеенный лист перед делать затир экземпляра

Sub Button1_Click ()
Тусклый ws как рабочий лист, ds как рабочий лист
Тусклое lRow как длиной
Установите ws = ThisWorkbook.Worksheets («источник»)
Установите ds = ThisWorkbook.Worksheets («примирите»)
ds. Ряд (ds. Клетки (5, 1), ds. Клетки (ds.UsedRange.Rows.Count, ds.UsedRange.Columns.Count)). Ясность
lRow = ws. Ряд («C65536»). Конец (xlUp). Рядок
ws. Ряд («C5: C» & lRow). Скопируйте ds. Ряд («A5»)
ws. Ряд («H6: H» & lRow). Скопируйте ds. Ряд («C5»)
ws. Ряд («J6: J» & lRow). Скопируйте ds. Ряд («E5»)
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us