y = WorksheetFunction.Substitute([p2], "~", "至") 'p2單元格的"~"替換成 "至"
With Sheets("" & y).Range("A5:AU20")
A = [a65536].End(xlUp).Row '給變量A賦值為A列最後壹個非空單元格行號
For r = 4 To A '建立循環從第4行開始到最後壹行
Set rng0 = .Find(what:=Cells(r, 1)) '查找A列r行的值
If Not rng0 Is Nothing Then
hang = rng0.Row '查找到該行號
End If
t = Worksheets("" & y).Cells(hang, 45) '給t賦值為查找到的行第45列的值
If t <> 0 Then '根據t值進行不同的運算
o = (Cells(r, 4) * 3) - ((Cells(r, 3) - t - Cells(r, 4)) * 8)
Else
o = (Cells(r, 4) * 3) - ((Cells(r, 3) - Cells(r, 4)) * 8)
End If
If Cells(r, 1) <> "" Then Cells(r, 6) = o '給該行A列賦值為o
Next
End With
Call 另2 '運行宏另2
End Sub