在vba中粘贴特殊值

问题描述

我正在处理一个小项目，如果我在行中检测到true，我需要复制和粘贴某些列。我试图将这些选定的列粘贴到不同的工作表上，我只想粘贴其值而不是公式。

I am working on a small project which requires me to copy and paste certain columns if I detect "true" in the row. I am trying to paste these selected columns onto a different sheet and I want to paste only their values not the formulas.

这是我到目前为止，我遇到一个错误的粘贴特殊功能。请帮助。

This is what I have so far and I am getting an error with the paste special feature. Please help.

' CopyIfTrue()
Dim Col As Range, Cell As Excel.Range, RowCount As Integer
Dim nysheet As Worksheet
Set nysheet = Sheets.Add()
nysheet.Name = "T1"

Sheets("FemImplant").Select
RowCount = ActiveSheet.UsedRange.Rows.Count

Set Col = Range("I2:I" & RowCount) 'Substitute with the range which includes your True/False values
Dim i As Integer
i = 1

For Each Cell In Col      
     If Cell.Value = "True" Then                  
        Cell.Copy
        Sheets("T1").Select 'Substitute with your sheet
        Range("b" & i).Select
        ActiveSheet.Paste

        'Get sibling cell

        Sheets("FemImplant").Select
        Dim thisRow As Integer
        thisRow = Cell.Row
        Dim siblingCell As Range
        Set siblingCell = Cells(thisRow, 2)
        siblingCell.Copy
        Sheets("T1").Select 'Substitute with your sheet
        Range("a" & i).Select
        ActiveSheet.PasteSpecial Paste:=xlPasteValues

        Sheets("FemImplant").Select
         i = i + 1
    End If
Next

推荐答案

PasteSpecial必须为Range.PasteSpecial不是ActiveSheet.PasteSpecial。它们是不同的东西，ActiveSheet.PasteSpecial不知道任何参数粘贴。

PasteSpecial must be Range.PasteSpecial not ActiveSheet.PasteSpecial. They are different things and ActiveSheet.PasteSpecial does not know any parameter "Paste".

ActiveSheet.Range("a" & i).PasteSpecial Paste = xlPasteValues

这篇关于在vba中粘贴特殊值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！