копирование данных из одной таблицы в другую

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

копирование данных из одной таблицы в другую (Макросы Sub)

Espada

Дата: Вторник, 27.08.2013, 10:06 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 0 ±

Замечаний: 40% ±

Всем Привет. Появилась проблемка, вроде бы в простом деле. Необходимо скопировать Итоги из одной таблицы(на листе 1) в другую таблицу(на листе 2). Я делал просто
" [vba]

Код

Sheets("Лист2").Select
Range("B8:I8").Select
Range("I8").Activate
Selection.Copy
Sheets("Лист1").Select
Range("B14").Select
ActiveSheet.Paste
Range("J14").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-1])"
Range("J15").Select

[/vba]
Копировал тупо 10 чисел и вставлял в нужную таблицу. Однако когда тестил столкнулся с тем, что здесь фиксированное число элементов. Так вот в чем и вопрос: Как сделать чтобы копировалось то число элементов которое есть? пример прилогается

К сообщению приложен файл: 4479018.xls (39.0 Kb)

Ответить

Hugo

Дата: Вторник, 27.08.2013, 12:51 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3703

Репутация: 792 ±

Замечаний: 0% ±

365

Вот такой вот непрактичный код:

[vba]

Код

Sub tt()
     Dim a()

     With Sheets("Лист2")
         a = .Range(.[b8], .Cells(8, .Columns.Count).End(xlToLeft)).Value
     End With
     With Sheets("Лист1")
         With .[b14]
             .Resize(1, UBound(a, 2)) = a
             .Offset(, UBound(a, 2)).Formula = "=sum(" & .Address & ":" & .Offset(, UBound(a, 2) - 1).Address & ")"
         End With
     End With

End Sub

[/vba]

Непрактичный потому, что скачущая вправо-влево итоговая сумма в зависимости от количества данных не больно то практична

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Espada

Дата: Вторник, 27.08.2013, 16:30 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 0 ±

Замечаний: 40% ±

Спасибо

Ответить

копирование данных из одной таблицы в другую (Макросы Sub)

Страница 1 из 1
1