This line of code:
这行代码:
Y.Sheets(1).Cells(i, 1) = Y.Sheets(1).Cells(i, 1).value & " (" & Right(UserAndEid, Len(UserAndEid) - InStr(1, UserAndEid, "Emp") - 7) & ")"
Y.Sheets(1).CeThis line of code:
这行代码:
Y.Sheets(1).Cells(i, 1) = Y.Sheets(1).Cells(i, 1).value & " (" & Right(UserAndEid, Len(UserAndEid) - InStr(1, UserAndEid, "Emp") - 7) & ")"
Y.Sheets(1).Ce