时间戳

首页 > 解决方案 > PasteSpecial 函数在 Excel 中不起作用

excel - PasteSpecial 函数在 Excel 中不起作用

问题描述

我需要制作一个粘贴数据的宏，当我记录宏时，我每次都有同样的问题。我希望有人可以帮助我解决我的问题。

每次调试时，我都会遇到与此功能相同的问题：

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

Range("AP5:AP43").Select
Selection.Clear
Range("AP5").Select
ActiveSheet.ListObjects("Table11").Range.AutoFilter Field:=4, Criteria1:="IT"

Range("C5:C51").Select
Selection.Copy
ActiveSheet.ListObjects("Table11").Range.AutoFilter Field:=4
Range("AP5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks 
    :=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("Table9[#All]").RemoveDuplicates Columns:=1, Header:= _
    xlYes
Range("Table9[Forecast på aktiviteter]").Select
With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent6
    .TintAndShade = 0.599993896298105
    .PatternTintAndShade = 0
End With
Range("AS29").Select

End Sub

标签： excelvba

解决方案

推荐阅读