粘貼特殊值 - 僅限值

Question

我正在嘗試創建一個審計跟蹤數據庫，並設法制定一些代碼將每行代碼分配到第2張表格，但是我已倒在最後，並且無法計算出如何粘貼值？

這是我的代碼到目前爲止;任何幫助非常感謝

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim nxtRow As Integer, b As Boolean 
    'Determine if change was to Column I (9) 
    If Target.Column = 9 Then 
     'If Yes, Determine if cell >= 1 
     If IsError(Target.Value) Then 
     b = True 
    Else 
     If Target.Value >= 1 Then 
      b = True 
     Else 
      b = False 
     End If 
     End If 
     If b Then 
     'If Yes, find next empty row in Sheet 2 
     nxtRow = Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 1 
     'Copy changed row and paste into Sheet 2 
     Target.EntireRow.Copy _ 
     Destination:=Sheets(2).Range("A" & nxtRow) 
      End If 
    End If 
End Sub 

感謝 馬特

Answer 1

這可能不會解決問題，但它會提高你的代碼。
你打開一些If語句，但你不關閉一些會讓你的代碼做別的事情比你想要的。

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim nxtRow As Integer, b As Boolean 
    'Determine if change was to Column I (9) 
    If Target.Column = 9 Then 
     'If Yes, Determine if cell >= 1 
     If IsError(Target.Value) Then ' You open this If but you don't close it 
     b = True 
     'if you don't close it here the next line (else) will be the else of this if 
     End If 
    Else 
     If Target.Value >= 1 Then 
      b = True 
     Else 
      b = False 
     End If 
     'this line had an else if as well. which would just stop your main if statement 
     If b = True Then 
     'you say 'if b then' on the line above, which basically does nothing 
     'If you want to check if b = True for example, do what I did above 

     'If Yes, find next empty row in Sheet 2 
      nxtRow = Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 1 
      'Copy changed row and paste into Sheet 2 
      Target.EntireRow.Copy _ 
      Destination:=Sheets(2).Range("A" & nxtRow) 
     End If 
    End If 
End Sub 

Answer 2

要粘貼值，您可以複製到剪貼板中，然後用PasteSpecial方法，例如：

Target.EntireRow.Copy 
Sheets(2).Range("A" & nxtRow).PasteSpecial Paste:=xlPasteValues