根据案例计算值并粘贴到另一张表中

Question

我有张＆＃34; BW＆＃34;和另一张表＆＃34;结果＆＃34;。工作表结果有一个表，其中包含A列中的周数。

我想在表单中查找周数＆＃34;结果＆＃34;如果周数与我的工作表中的周数相同＆＃34; BW＆＃34;在列＆＃34; AX＆＃34;那么，我想算一下＆＃34; 1＆＃34;在表格＆＃34; BW＆＃34;在专栏＆＃34; T＆＃34;和＆＃34;你＆＃34;。

但问题是我有两个案例来计算＆＃34; 1＆＃34;在T栏和U栏中

1. AA列不应等于null。
2. Z栏应该包含＆＃34; Ontime＆＃34;。

如果这两种情况满足，那么我想查看列中T和U以及1的wount计数。

我试过了代码。但案件并未令人满意。任何领导都会有所帮助。

Sub results()

Dim i As Integer, j As Integer, cntT As Integer, cntu As Integer, ws As Worksheet
Set ws = Sheets("Result")
Sheets("BW").Select
For i = 2 To WorksheetFunction.CountA(ws.Columns(1))
cntT = 0
cntu = 0
If ws.Range("A" & i) = Val(Format(Now, "ww")) Then Exit For
Next i

For j = 5 To WorksheetFunction.CountA(Columns(50))

If ws.Range("AA" & i) <> "" And ws.Range("Z" & i) = "PSW Ontime" Then
ElseIf ws.Range("A" & i) = Range("AX" & j) And Range("T" & j) = 1 Then cntT = cntT + 1
ElseIf ws.Range("A" & i) = Range("AX" & j) And Range("U" & j) = 1 Then cntu = cntu + 1

Next j
If cntT <> 0 Then ws.Range("B" & i) = cntT
If cntu <> 0 Then ws.Range("C" & i) = cntu
If cntT + cntu <> 0 Then
ws.Range("D" & i) = cntT + cntu
ws.Range("E" & i) = cntT / (cntT + cntu)
ws.Range("F" & i) = cntu / (cntT + cntu)
End If

ws.Range("E" & i & ":F" & i).NumberFormat = "0%"
End If
End Sub





有人可以帮助我，我如何在我的代码中介绍这个案例。