Здраствуйте
Я уже зделал кое что для себя но у меня не получается следующие етапы.
Программа копирует данные с Range("A5:AH5") и должна вставить в другом книге ("Книга1.xls") в
Range("A5")
с транспортом .
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
В следуюший раз чтоб делал Paste не на Range("A5") а на Range("B5") на один столбец в право(и.т.п. около 50 ячеек).Но ето должна быть так что бы программа видела если в Range("A5") есть цыфры то COPY делает на Range("B5") и.т.п.
Спосибо вам заранее...
Ответить
|