½Ð°Ý¦³¤°»ò¿ù,¿ù¦b­þ¸Ì

john2006168

sub namerecord()
Dim friendname As String
Dim i As Integer
i = 2
For i = 2 To 50

Worksheets("sample").Copy after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).name = friendname
If Worksheets("Main").Cells(2, 2).Value = "friendname" Then Worksheets(Worksheets.Count).Cells(2, 2).Value
i = i + 1
End If

End Sub

john2006168

¦^´_ 3# GBKEE


    If Worksheets("Main").Cells(i, 2).Value = friendname Then Worksheets(Worksheets.Count).Cells(i, 2).Value=friendname