протянуть макрос До последнего значения

Пользователь

Сообщений: 187 Регистрация: 04.01.2013

24.11.2012 01:18:25

Добрый Вечер, кто то может изменить макрос что бы он протянулся до самого конца колонны?

не до определенного значения а именно до конца последнего значения.

всем спасибо

Sub Макрос38()
'
' Макрос38 Макрос
'

'
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[1]<>0,RC[1],R[-1]C)"
Range("A3").Select
End Sub

Kreol2013

Пользователь

Сообщений: 621 Регистрация: 01.01.1970

24.11.2012 03:41:16

Приветствую.
А можно поинтересоваться целью данного действия?
И вам надо протянуть до последнего столбца? или строки
И если я не ошибаюсь, в Office 2003 есть ограничения: максимальное количество столбцов - 255, В 2007 - максимально 16385 столбцов.
Зачем Вам такая цифра?

Range("A2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[1]<>0,RC[1],R[-1]C)"
Selection.Copy
Range(Selection, Selection.End(xlToRight)).Select
ActiveSheet.Paste
Range("XFD2").Select
Selection.ClearContents

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#3 24.11.2012 10:19:50 Range("A2", Cells(Rows.Count, 1).End(xlUp)).Formula = "=IF(RC[1]<>0,RC[1],R[-1]C)" Я сам - дурнее всякого примера! ...

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#4 24.11.2012 10:23:13 М-да, там же Insert...: Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("A2", Cells(Rows.Count, 2).End(xlUp).Offset(, -1)).Formula = "=IF(RC[1]<>0,RC[1],R[-1]C)" Я сам - дурнее всякого примера! ...

Guest Гость	#5 24.11.2012 10:28:33 ОГО, всем спасибо :) то что надо

Читают тему