Sub 亂數工作表() Dim TempNumber As Long Dim TempName As String For i = 1 To UserForm1.CountPeople + 1 Sheets(4).Cells(i, 1) = Sheets(1).
確定! 回上一頁