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

问题描述：

我有以下代码，如果它符合特定标准，将会找到并给出计数：

I have the below code that will find and give the count if it matches the specific criteria:

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"中。在表格中。

答

您要复制哪张表？您可以使用类似

Which sheet would you like to copy? You can use something like

Sheets("Sheet2").Activate
Range("D1").value=Range(test(0))
Sheets("Sheet1").Activate

您可以将一个计数器变量放入D列，以便它在下一个中粘贴值每次你有一个新的匹配行。

You can put a counter variable in for the D column so that it pastes values in the next row each time you have a new match.

希望这会有所帮助。

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

相关推荐