Question

如果符合特定条件，我会找到以下代码并给出计数：

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

我想做以下事情：

一旦满足此条件，不是将计数添加到指定的单元格，而是在＆＃34; M＆＃34; col（命名为＆＃34; LATENCY＆＃34;）应该复制并粘贴在＆＃34; D＆＃34; col in sheet。

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

使用VBA在不同工作表中粘贴列

1 个答案: