| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Программирование, связанное с MS Office > помогите с макросом! |
| Автор: lilia90 26.5.2016, 21:01 |
| Вот этот макрос сцепляет ячейки,переносит значение столбца а затем копирует значения 2 столбцов в буфер обмена 1.Проблема в том,что нужно копировать не 50 значений а занятые значения столба и их же и копировать.А у меня получается только 50 не знаю как переделать Sub Макрос4() ' ' Макрос4 Макрос ' ' Сочетание клавиш: Ctrl+б ' Range("E1").Select ActiveCell.FormulaR1C1 = "9/2/1987" Columns("J:J").Select Selection.ColumnWidth = 14.14 Range("M1").Select ActiveCell.FormulaR1C1 = _ "=CONCATENATE(RC[-11]:R[49]C[-11],"" "",RC[-10]:R[49]C[-10],"" "",RC[-9]:R[49]C[-9])" Selection.AutoFill Destination:=Range("M1:M50"), Type:=xlFillDefault Range("M1:M50").Select ActiveWindow.SmallScroll Down:=-81 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 Columns("M:M").ColumnWidth = 35.71 Range("J1:J50").Select ActiveWindow.SmallScroll Down:=36 Range("J50").Select Selection.ClearContents Range("J50").Select ActiveWindow.SmallScroll Down:=-63 Range("J1:J50").Select Selection.Copy ActiveWindow.SmallScroll Down:=-39 Range("N1").Select ActiveSheet.Paste Columns("N:N").ColumnWidth = 17.43 Application.CutCopyMode = False Range([M1:N1], [M1:N1].End(xlDown)).Copy 'Range([M1], [M1].End(xlDown)).Copy 'Range([N1], [N1].End(xlDown)).Copy End Sub 2. А затем эти данные данные копируются из буфера в табличку Word Макросом Worda Sub Макрос9() ' ' Макрос9 Макрос ' ' Selection.PasteAndFormat (wdTableOverwriteCells) End Sub Как на картинке.Должна быть замена . 2.Не знаю как копировать значения 2 столбцов в буфер так чтобы не привязываться к содержимому и затирались ячейки Ворда Помогите пожалуйста разобраться. |