Получение пасты из определенной ячейки

244
abhay

я хочу скопировать диапазон, начиная с ячейки B до ячейки N в столбцах, но в строках он может доходить до 1000. Я хочу макрос, который начинает вставлять любые данные из B: 10 и нигде больше. PS Данные являются динамическими, которые можно просматривать пользователь на основе своего идентификатора пароля.

Sub Portfolio() ' ' Portfolio Macro '  ' Sheets("Master").Select Selection.End(xlToLeft).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.AutoFilter Range("Table1[[#Headers],[CRN]]").Select Selection.End(xlToRight).Select ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=13, Criteria1:= _ "TRUE" Selection.End(xlToLeft).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy ActiveSheet.Previous.Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveSheet.ListObjects.Add(xlSrcRange, Range("$B$10:$N$1000"),, xlYes).Name = _ "Table2" Range("Table2[#All]").Select ActiveSheet.ListObjects("Table2").TableStyle = "TableStyleLight9" Range("Table2[[#Headers],[CRN]]").Select End Sub

Я создал этот макрос, но когда я дал указатель на любую другую ячейку ячейки, а не на ячейку B: 10, данные начинают копироваться оттуда.

-1
Итак, что вы пытались сделать, чтобы достичь желаемого? Обратите внимание, что Superuser не является службой написания кода. Вы должны показать, какие усилия вы приложили к решению вашей проблемы. Подробнее о том, как спрашивать, вы можете прочитать в [как спрашивать] (https://superuser.com/help/how-to-ask) Tom Brunberg 5 лет назад 0
Я сделал изменения, которые вы можете проверить @Tom Brunberg abhay 5 лет назад 0
Пожалуйста, прочитайте [Что мне делать, когда кто-то отвечает на мой вопрос] (https://superuser.com/help/someone-answers) Tom Brunberg 5 лет назад 0

1 ответ на вопрос

0
Tom Brunberg

... Я хочу макрос, который начнет вставлять любые данные из B: 10 и больше нигде.

Для этого добавьте строку

Range("B10").Select

как раз перед 

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

Это заставит вставку начать с B10.

Похожие вопросы