☰

从特定单元格获取粘贴

tag-icon • tag-icon microsoft-excel user paste
从特定单元格获取粘贴

我想复制从单元格 B 开始到单元格 N 范围内的列，但在行中它可以达到 1000 我想要一个宏，从 B:10 开始粘贴任何数据而不粘贴到其他地方。PS 数据是动态的，用户可以根据他们的 ID 密码查看。

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

... 我想要一个宏，它可以从 B:10 开始粘贴任何数据，而不粘贴到其他地方。

为了实现这一点，添加行

Range("B10").Select

就在之前

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

它将强制粘贴从 开始B10。

相关内容