使用VBA粘贴不同的工作表中的柱子

我有下面的代码，如果它符合特定的标准将会发现并给予计数：

Sub WBR() Dim Count1Criteria As Variant Dim Count3Criteria As Variant Dim test As Variant Dim wf As WorksheetFunction Set wf = Application.WorksheetFunction Count1Criteria = Array(Array("AE4", "AE5", "Latency", "O:O", "Pass", "Fail")) For Each test In Count1Criteria With Worksheets(test(2)) Range(test(0)) = wf.CountIfs(.Range(test(3)), test(4)) Range(test(1)) = wf.CountIfs(.Range(test(3)), test(5)) End With End Sub 

我想要做到以下几点：

• 一旦满足这个标准，不是将计数加到指定的单元格，而是将“M”col（命名为“LATENCY”）中的值复制并粘贴在表格中的“D”栏中。

Answer 1

这样做的工作：

 Sub sbMoveData() Dim lRow As Integer, i As Integer, j As Integer 'Find last roe in Sheet1 lRow = Sheet1.Cells.SpecialCells(xlLastCell).Row j = 1 For i = 1 To lRow If UCase(Sheet1.Range("A" & i)) = "COMPATIBLE" And UCase(Sheet1.Range("B" & i)) = "PASS" Then Sheets("Sheet1").Range("M" & i).Copy Destination:=Sheets("Sheet2").Range("A" & j) j = j + 1 End If Next End Sub