Приветствую, Умные Люди.
Прошу сразу за тупость, но только-только пытаюсь освоить макросы.
Почитал форумы, но всё равно не догоняю.
Есть такое:
Вопрос:
Как в
а точнее в 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 вставить не столбец со значениями в ячейках до бесконечности, а только в те ячейки столбца в строках которых присутствуют данные.
Заранее Спасибо.
И кстати, однажды зашёл к вам в поиске методов, и наткнулся на макросы... Вы открыли для меня мир ОГРОМНЫХ возможностей. В разы облегчился мой труд.
СПАСИБО.
