Приветствую, Умные Люди.
Прошу сразу за тупость, но только-только пытаюсь освоить макросы.
Почитал форумы, но всё равно не догоняю.
Есть такое:
Вопрос:
Как в
а точнее в Range("С:С").Select вставить не столбец со значениями в ячейках до бесконечности, а только в те ячейки столбца в строках которых присутствуют данные.
Заранее Спасибо.
И кстати, однажды зашёл к вам в поиске методов, и наткнулся на макросы... Вы открыли для меня мир ОГРОМНЫХ возможностей. В разы облегчился мой труд.
СПАСИБО.
Прошу сразу за тупость, но только-только пытаюсь освоить макросы.
Почитал форумы, но всё равно не догоняю.
Есть такое:
Код |
---|
Sub fileexОДИпу_outОДИпу_for_ПоказанияОДИпу() ' Открыть файл экспорта ОДПУ по пути: Dim ФайлЭкспортаОДпу As Workbook Set ФайлЭкспортаОДпу = Application.Workbooks.Open("d:\...temp\_ACTIVe_\ОДИПУ.xlsx") Sheets("Сведения о ПУ").Select ФайлЭкспортаОДпу.Application.Run "PERSONAL.XLSB!fileexОДИпу_УдалениеДлинныхАдресов" 'Columns("H:H").Select Selection.Cut Columns("A:A").Select Selection.Insert Shift:=xlToRight ' Добавление столбцов для работы с формулами Columns("C:C").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Columns("C:C").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Columns("C:C").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("C3").Select ActiveCell.FormulaR1C1 = _ "=IF(RC[-1]=""Коллективный (общедомовой)"",CONCATENATE(RC[-2],RC[42]),"""")" Range("С:С").Select ActiveSheet.Paste ' Сохранить файл экспорта ОДПУ под новым именем ChDir "D:\...temp\_ACTIVe_" ActiveWorkbook.SaveAs Filename:="D:\...temp\_ACTIVe_\ОДИпу_for_ПоказанияОДИпу.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ' Закрыть файл экспорта ОДПУ ФайлЭкспортаОДпу.Close (True) End Sub |
Вопрос:
Как в
Код |
---|
Range("C3").Select ActiveCell.FormulaR1C1 = _ "=IF(RC[-1]=""Коллективный (общедомовой)"",CONCATENATE(RC[-2],RC[42]),"""")" Range("С:С").Select ActiveSheet.Paste |
а точнее в Range("С:С").Select вставить не столбец со значениями в ячейках до бесконечности, а только в те ячейки столбца в строках которых присутствуют данные.
Заранее Спасибо.
И кстати, однажды зашёл к вам в поиске методов, и наткнулся на макросы... Вы открыли для меня мир ОГРОМНЫХ возможностей. В разы облегчился мой труд.
СПАСИБО.